Hiho,

da hier schon ein paar mal gefragt wurde wie man denn seine Interne bzw. Externe Ip auslesen kann will ich hier mal ein kleines Beispiel geben:

Für die Interne IP: (Hier wird ausgelesen und aufgelistet)
Als erstes müssen wir System.Net importieren:



Und danach der eig. Prozess des auslesens und auflistens:



Den Code packt ihr einfach in einen Button oder wenn ihr eine dauerhafte Überprüfung haben wollt in einen Timer bzw. Schleife.


So und dann noch für die Externe IP:



Wie bei dem ersten einfach in nen Button packen und ihr bekommt eine MsgBox mit eurer IP.
Falls ihr ne dauerhafte Überprüfung der Externen Ip haben wollt könnt ihr den Code ja einfach ein bisschen abändern. (siehe Interne/Lokale IP)

Die beiden Codes sollten eig. verständlich sein aber falls sie jmd. nicht versteht einfach eine PN schreiben oder direkt im Thread fragen.

mfg

Erstens, wurden die Imports zum IO vergessen, des Zweiten ist der Code nicht Korrekt. Korrekt müsste es so heißen:

powerprogger schrieb:

Erstens, wurden die Imports zum IO vergessen, des Zweiten ist der Code nicht Korrekt. Korrekt müsste es so heißen:

VB.NET-Quellcode

1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
2. Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")Dim res As HttpWebResponse = req.GetResponse()
3. Dim Str As Stream = res.GetResponseStream()Dim sr As StreamReader = New StreamReader(Str)
4. MsgBox(sr.ReadToEnd())End Sub

das ist genausowenig korrekt.

Ok, eine Frage

Wieso sollte:



nicht korrekt sein? Funktioniert doch wie es soll. (Bei mir zumindest)

Weil Stream ein Ausdruck ist.

Wieso macht man es immer so kompliiziert, also ich lese mit 2 Zeilen Code die IP-Adresse aus.

Dim locip as string = New WebClient().DownloadString("http://whatismyip.com/automation/n09230945.asp")

ich benutz den code

user44 schrieb:

ich benutz den code

VB.NET-Quellcode

1. Imports System.Net
2. Public Class Form1
3. Private Sub Button1_Click(ByVal sender As System.Object, _
4. ByVal e As System.EventArgs) Handles Button1.Click
6. Dim Addresslist() As IPAddress = _
7. DNS.GetHostByName(Dns.GetHostName()).Addresslist
8. Dim IPs As IPAddress
10. ' alle IP-Adressen auflisten
11. ListBox1.Items.Clear
12. For Each IPs in Addresslist
13. ListBox1.Items.Add(IPs.ToString)
14. Next IPs
15. End Sub

Bei mir kommt da eine Fehlermeldung, dass die Public Shared Function GetHostByName(hostname As String) veraltet ist.
Gibt es dafür also eine "neuere" Methode?

Die IntelliSense sagt dir welche Funktion du nehmen sollst. Einfach die Meldung lesen.

Kann man die externe IP eigentlich auch ohne eine Webseite herausfinden? Weil wenn ich den Button dann anklicke, springt meine Firewall an..nich dass es mich stören würde, wollte nur fragen ob es auch ohne geht^^