[ابو ليلى]

جرب الدالة التالية

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