Eigene Internet IP ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

''' <summary>
''' Diese Funktion ermittelt die vom Internetprovider zugewiesene IP Addresse.
''' Diese Funktion nutzt jedoch einen Internetdienst der die IP über eine Internetseite zurückgibt.
''' Getestete Provider: http://myip.bdsw.de/ , http://service.jan-welker.de/myip.ashx
''' </summary>
Public Function GetExternalIP(ByVal Provider As String) As String
    Dim WebReq As HttpWebRequest = HttpWebRequest.Create(Provider)
    Dim WebRes As HttpWebResponse = WebReq.GetResponse()

    Dim ResStream As System.IO.Stream = WebRes.GetResponseStream
    Dim ResStreamReader As New StreamReader(ResStream, Encoding.UTF8)

    Dim IP As String = ResStreamReader.ReadToEnd

    ResStream.Close()
    WebRes.Close()

    Return IP
End Function