Tipp-Upload: VB.NET 0370: IP Adresse auslesen (Web IP)

von Netonator

Hinweis zum Tippvorschlag

Dieser Vorschlag wurde noch nicht auf Sinn und Inhalt überprüft und die Zip-Datei wurde noch nicht auf schädlichen Inhalt hin untersucht.
Bitte haben Sie ein wenig Geduld, bis die Freigabe erfolgt.

Über den Tipp

Dieser Tippvorschlag ist noch unbewertet.

Der Vorschlag ist in den folgenden Kategorien zu finden:

Internet und Netzwerke

Dem Tippvorschlag wurden folgende Schlüsselwörter zugeordnet:
IP Adresse, Internet

Der Vorschlag wurde erstellt am: 15.05.2009 10:39.
Die letzte Aktualisierung erfolgte am 15.05.2009 10:47.

Zurück zur Übersicht

Beschreibung

Ermöglich das Auslesen der IP-Adresse. Im Gegensatz zu den Tipps: VB.NET Tipp 78 und VB.NET Tipp 16 liest dieser Tipp die Internet-IP und nicht die von der Netzwerkkarte.

Schwierigkeitsgrad

Schwierigkeitsgrad 2

Verwendete API-Aufrufe:

Download:

Download des Beispielprojektes [13,89 KB]

' Dieser Source stammt von http://www.activevb.de
' und kann frei verwendet werden. Für eventuelle Schäden
' wird nicht gehaftet.

' Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
' Ansonsten viel Spaß und Erfolg mit diesem Source!
'
' Beachten Sie, das vom Designer generierter Code hier ausgeblendet wird.
' In den Zip-Dateien ist er jedoch zu finden.

' ----------- Anfang Projektgruppe IP_Auslesen.sln -----------
' ---------- Anfang Projektdatei IP_Auslesen.vbproj ----------
' ------------------ Anfang Datei Form1.vb  ------------------

Imports System.Net
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles MyBase.Load

        Label2.Text = IPWeb()

    End Sub

    Shared Function IPWeb() As String

        Dim Request As WebRequest = WebRequest.Create("http://www.myip.ch/")

        Request.Credentials = CredentialCache.DefaultCredentials

        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

        Dim dataStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(dataStream)
        Dim responseFromServer As String = reader.ReadToEnd()

        responseFromServer = Replace(responseFromServer, "<html><head><title>Current IP " & _
            "Check</title></head><body>Current IP Address: ", "")

        responseFromServer = Replace(responseFromServer, "</body></html>", "")
        Return responseFromServer

        reader.Close()
        dataStream.Close()
        response.Close()

        reader.Dispose()
        dataStream.Dispose()

    End Function

End Class

' ------------------- Ende Datei Form1.vb  -------------------
' ----------- Ende Projektdatei IP_Auslesen.vbproj -----------
' ------------ Ende Projektgruppe IP_Auslesen.sln ------------

Diskussion

Diese Funktion ermöglicht es, Fragen, die die Veröffentlichung des Tipps betreffen, zu klären, oder Anregungen und Verbesserungsvorschläge einzubringen. Nach der Veröffentlichung des Tipps werden diese Beiträge nicht weiter verlinkt. Allgemeine Fragen zum Inhalt sollten daher hier nicht geklärt werden.
Folgende Diskussionen existieren bereits

IP Adresse - Kay-Ariane 29.09.2009 12:57

Um eine Diskussion eröffnen zu können, müssen sie angemeldet sein.