取得本機的IP地址 (vb.net)

    Private Function GetIP() As String



        Dim IPs() As IPAddress



        Dim hostEntry As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)



        IPs = hostEntry.AddressList



        Return IPs(0).ToString()

    End Function