Eigene Internet IP ermitteln – dotnet-snippets.de

Sprache: VB

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 Dieser Snippet ist eine Übersetzung aus dem C# Code von Jan Welker welcher in seinem Blog zu finden ist, inklusive Artikel.

''' <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

''' <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

Abgelegt unter IP Netztwerk

Alte URL: /snippet/eigene-internet-ip-ermitteln/652

1 Kommentar