Feedback

VB - Eigene Internet IP ermitteln

Veröffentlicht von am 02.11.2007
(2 Bewertungen)
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
Abgelegt unter IP, Netztwerk.

1 Kommentare zum Snippet

tamaleus schrieb am 13.10.2010:
Anscheinend fehlen hier noch die folgenden Namespaces:

Imports System.Net
Imports System.IO
Imports System.Text

Besten Dank an Jan.

 

Logge dich ein, um hier zu kommentieren!