Imports System Imports EnvDTE Imports EnvDTE80 Imports EnvDTE90 Imports EnvDTE90a Imports EnvDTE100 Imports System.Diagnostics

Public Module Module1

    Sub ClassNameGen()
        Dim res As String
        Dim req As System.Net.WebRequest = System.Net.HttpWebRequest.Create("http://www.classnamer.com/")
        Dim rsp = req.GetResponse()
        Using sr As New System.IO.StreamReader(rsp.GetResponseStream())
            res = sr.ReadToEnd()
        End Using

        Dim doc As Document = DTE.ActiveDocument
        Dim textDoc As TextDocument = CType(doc.Object("TextDocument"), TextDocument)
        textDoc.StartPoint.CreateEditPoint()

        Dim strstr As String = "<p id=""classname"">"
        Dim endstr As String = "</p>"
        Dim strt As Integer = res.IndexOf(strstr)
        textDoc.Selection.Insert(res.Substring(strt + strstr.Length, res.Length - (res.IndexOf(endstr, strt) + endstr.Length)))
    End Sub
    

If so you're onto a winner.

I like this one :-)

Think about it.

It a Big 5 consulting firm acquired this and used it in their enterprise web app practice, would anyone ever be able to tell the difference?