得到本机IP地址的代码.

发表于:2007-06-30来源:作者:点击数: 标签:
可以用以下代码得到本机IP地址.

        Dim abc() As IPAddress
        Dim aaa As IPHostEntry
        MsgBox(Dns.GetHostName())
        aaa = Dns.GetHostByName(Dns.GetHostName())
        abc = aaa.AddressList
        MsgBox(abc(0).ToString)

原文转自:http://www.ltesting.net