دریافت ip گوشی

[majid08 266]

سلام

من میخام وقتی گوشی به اینترنت وصل میشه توی یک مسیج باکس ای پی اون گوشی برام نمایش داده بشه

میشه کمک کنید که چطور ای پی گوشی رو بگیرم

ممنونم

[Negan 1,300]

کتابخونه نتورک رو تیک بزنید

توی ساب گلوبال بنویسید اینو

Dim x As ServerSocket

Sub GetIp() As String 
 x.Initialize(0,"")  

 If x.GetMyIP = "127.0.0.1" Then 
 Return "No internet connection" 
 Else ' اگه ای پی این بود ینی نت قطعه 127.0.0.1 
 Return x.GetMyIP ' ای پی رو ریترن میکنه
 End If 
End Sub