' this method gets the external ip address by reading out
    ' whatismyipaddress.com
    Private Function GetMyIPAddress() As String
        Dim myBuffer As String = ""
        Try
            ' WebRequest
            Dim myRequest As HttpWebRequest = _
                WebRequest.Create("http://www.whatismyipaddress.com/")
            myRequest.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1;" + _
                 " en-US; rv:1.8) Gecko/20060321 Firefox/2.0a1"
            myRequest.Referer = "http://www.test.de/"
            ' GET-Method
            myRequest.Method = "GET"
            ' get response from webserver
            Dim myResponse As WebResponse = myRequest.GetResponse()
            ' read data stream
            Dim myStream As New StreamReader(myResponse.GetResponseStream())
            myBuffer = myStream.ReadToEnd()
            myStream.Close()
            ' close connection
            myResponse.Close()
            ' return ip address
            myBuffer = myBuffer.Substring( _
                myBuffer.IndexOf("Your IP address is") + 19)
            myBuffer = myBuffer.Substring(0, myBuffer.IndexOf("<"))
            Return myBuffer
        Catch ex As Exception
            Throw New Exception()
        End Try
    End Function

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.