22-12-16, 09:47 PM
جرب الدالة التالية
PHP كود :
Private Function GetIP() As String
GetIP = String.Empty
Dim strHostName As String = System.Net.Dns.GetHostName()
Dim ip As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)
For Each ips As System.Net.IPAddress In ip.AddressList
If ips.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
GetIP = ips.ToString()
End If
Next
End Function
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال


