ای پی سیستم

[hosein320]

سلام
چجوری میشه آی پی سیستم رو بدست اورد؟

[xxnagin]

سلام
http://stackoverflow.com/questions/2234757/how-do-i-get-a-computers-name-and-ip-address-using-vb-net

[shahryari]

اي پي سيستم را برميگرداند
Public Function GetIPAddress() As String
Dim ipHostInfo As System.Net.IPHostEntry = System.Net.Dns.Resolve(System.Net.Dns.GetHostName( ))
Dim ipAddress As System.Net.IPAddress = ipHostInfo.AddressList(0)
Return ipAddress.ToString()
End Function

[hosein320]

منظورم ای پی روی اینترنت هست دوستان

[the king]

منظورم ای پی روی اینترنت هست دوستان

باید سایتی باشه که این سرویس رو بهتون بده، معمولا سایت هایی که رایگان IP کاربر رو نشون می دهند سعی می کنند
جلوی سوء استفاده نرم افزار ها رو بگیرند تا فشار روی سرور شون کم بشه. اما گمان کنم smart-ip.net کار کنه :
geoip-xml (http://smart-ip.net/geoip-xml)

اون صفحه رو در برنامه تون می خوانید و مقدارش رو بکار می برید :

Private Function GetIP() As String
Try
Using client As New System.Net.WebClient()
Dim page As String = client.DownloadString("http://smart-ip.net/geoip-xml")
Dim hostStart As Integer = page.IndexOf("<host>")
Dim hostEnd As Integer = page.IndexOf("</host>", hostStart + 1)
If hostStart >= 0 And hostEnd >= 0 Then
Return page.Substring(hostStart + 6, hostEnd - hostStart - 6).Trim
End If
End Using
Catch ex As Exception
End Try
Return String.Empty
End Function


مثلا :

MessageBox.Show(GetIP())