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.
GFU-Schulungen  [Anzeige]

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

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