")(1)
Return strIP.Split("<")(0)

Catch ex As Exception
Return ex.Message
End Try
End Function[/code]
_________________

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Hab mal aus Langeweile ne kleine Funktion gescheiben, die vll. den Ein oder Anderen helfen könnte.
Visual Basic: [code]
Imports System.Net
Imports System.IO
Private Function GetIP() As String
Application.DoEvents()
Try
Dim req As HttpWebRequest = CType(WebRequest.Create("http://www.wieistmeineip.de/"), HttpWebRequest)
Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
Dim str As New StreamReader(res.GetResponseStream)

Dim puffer As String = str.ReadToEnd
Dim strIP As String = Split(puffer, "

")(1)
Return strIP.Split("<")(0)

Catch ex As Exception
Return ex.Message
End Try
End Function[/code]
_________________

^^kev#### · Verfasst am: 20.07.2008, 21:32

Kann man einfacher und schneller von http://checkip.dyndns.org/ auslesen Very Happy

_________________

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Splitten muss ich so oder so, nur dass der Code den ich bekomm etwas kürzer ist. ^^

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

Lol
ihr wisst schon, dass das Framework für genau sowas extra Klassen parat hat Very Happy

Da braucht ihr nix splitten oder schneiden

Visual Basic: [code]
Dim host As String = Dns.GetHostName

Dim ipentry As IPHostEntry = Dns.GetHostByName(host)
Dim addr() As IPAddress = ipentry.AddressList

MsgBox(addr(0).ToString)[/code]

^^kev#### · Verfasst am: 21.07.2008, 09:02

Ist aber nur die LAN IP :p
Kann sein das die richtige IP angezeigt wird, wenn man ein Modem benutzt :p
Die meinsten benutzten jedoch einen Router wie ich Very Happy

_________________

Marduk · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 374

joa kann sein, bei mir funktionierts auf jeden fall mit modem:p

LooneyToons · Poster Anmeldedatum: 01.05.2008 Beiträge: 125

Hier muss man so ziemlich gar nix schneiden ^^
http://pchelplive.com/ip.php
_________________

sollniss · Überflieger Anmeldedatum: 01.05.2008 Beiträge: 699

Ich bekomm ja den Header mitgesendet, daher muss ich immer splitten.

")(1) Return strIP.Split("<")(0) Catch ex As Exception Return ex.Message End Try End Function[/code]_________________

")(1)
Return strIP.Split("<")(0)

Catch ex As Exception
Return ex.Message
End Try
End Function[/code]
_________________