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

Visual Studio Team Foundation Server 2017/2015 (TFS) für Projektmitglieder - Kompakt

Nach Teilnahme an dieser Schulung sind Ihnen die Grundlagen von ALM geläufig. Sie planen und steuern Projekte effizient mit dem Visual Studio Team Foundation Server.

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