[VB.NET] Lösung: Externe-IP auslesen

Computer: Software & Programmierung .NET & C#
#1

Hallo.

Für alle die einen Router haben stellt sich ja manchmal das Problem, dass sie die IP-Adresse mit der einem alle sehen können nicht aus dem Windows auslesbar ist.

Natürlich ist es möglich, eine Seite wie http://checkip.dyndns.org/ zu besuchen, oder (wer die Möglichkeit hat) sich eine eigene HP zu machen, die einem die Adresse anzeigt, aber der Code muss erst ins Programm gebracht werden.

Und weil ich über wer-weiss-was ettliche Unterstützung bekommen habe, möchte ich dieses Mal gleich den Lösungs-Code posten um seine Externe-IP mit Hilfe von dyndns zu bekommen.

Dim IPAdresse As String
'HTML-Datei herunterladen (hier in den Programmordner):
My.Computer.Network.DownloadFile(„http://checkip.dyndns.org/“, My.Application.Info.DirectoryPath & „\ip.tmp“)
'In den Buffer laden:
IPAdresse = My.Computer.FileSystem.ReadAllText(My.Application.Info.DirectoryPath & „\ip.tmp“)
'Die Datei kann wieder gelöscht werden:
My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath & „\ip.tmp“)
'IP-Adresse ausfiltern (hier steht sie zwischen ": " und "

#2

Auch hallo.

Und weil ich über wer-weiss-was ettliche Unterstützung
bekommen habe,

Innerhalb von 3 Wochen ? (Dabei seit 19.06.2006)

möchte ich dieses Mal gleich den Lösungs-Code
posten um seine Externe-IP mit Hilfe von dyndns zu bekommen.

…den pre-Tag sollte man besser nicht vergessen :wink:

 Dim IPAdresse As String
 'HTML-Datei herunterladen (hier in den
Programmordner):

My.Computer.Network.DownloadFile("http://checkip.dyndns.org/",
My.Application.Info.DirectoryPath & "\ip.tmp")
 'In den Buffer laden:
 IPAdresse =
My.Computer.FileSystem.ReadAllText(My.Application.Info.DirectoryPath
& "\ip.tmp")
 'Die Datei kann wieder gelöscht werden:

My.Computer.FileSystem.DeleteFile(My.Application.Info.DirectoryPath
& "\ip.tmp")
 'IP-Adresse ausfiltern (hier steht sie zwischen ": "
und "
#3

Und weil ich über wer-weiss-was ettliche Unterstützung
bekommen habe,

Innerhalb von 3 Wochen ? (Dabei seit 19.06.2006)

Google läuft auch über w-w-w. Bisher ist das auch mein 1. Post - bisher hab ich immer alles gefunden, was ich suchte, musste mich also nie anmelden und tat es nur um eben künftig selbst unterstützen zu können.

Hm, mit SharpDevelop RC2 (& .NET 1.1 & 2.0) will das irgendiwe
nicht richtig…

Seltsam… na vielleicht hilft das:

¶ Wenn er die Datei nicht downloaded, versuch mal einen WebClient zu definieren und mit dem downzuloaden:
Dim DL As New System.Net.WebClient
DL.DownloadFile(

¶ Manchmal will er mit dem Left und Right - Befehl nicht im String arbeiten.
Näher definiert sind die richtigen Befehle:
Strings.Right(
Strings.Left(

¶ Versuch mal den Zielordner vom Downloadbefehl auszutauschen.

#4

Hallo nochmal.

Google läuft auch über w-w-w.

Ach so :smile:

Hm, mit SharpDevelop RC2 (& .NET 1.1 & 2.0) will das irgendiwe
nicht richtig…

Seltsam… na vielleicht hilft das:

Gemeint war, dass das direkte copy’n’paste Verfahren des Codes innerhalb der pre-Tags nicht automatisch zu einem lauffähigen Programm führt. Und das kann mehrere Ursachen haben:
-der IDE fehlt was
-Falsche Projketeinstellung seitens des Nutzers
-Quellcode (tatsächlich) fehlerhaft
-…

mfg M.L.