بدست آوردن آی پی سیستم

[SamaPic]

با سلام.
بنده می خواهم آی پی سیستم رو در اینترنت بدست بیاورم .
توی انجمن گشتم یکی دو مورد پیدا کردم ولی یا کار نکرد یا اجرا نمی شد.
لطفا راهنمایی نمایید.
با سپاس.

[damanpak]

سلام
یکم دیر پاسخ دادم اما امیدوارم بدردتون بخوره
ابتدا عبارت Imports System.Net رو به فرمت اضافه کن
بعد توی رویداد کلیک دکمه ات بنویس

Dim s As String = Nothing
Using wb As New WebClient
s = wb.DownloadString("http://www.whatsmyip.us/showipsimple.php")
End Using
s = Mid(s, InStr(s, """") + 1)
TextBox1.Text = Mid(s, 1, InStr(s, """") - 1)