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.
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 |
Verwendete API-Aufrufe: |
Download: |
' 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
Um eine Diskussion eröffnen zu können, müssen sie angemeldet sein.