Dim StrHostName, IP As String
        StrHostName = ""
        ' 首先得到本地机器的主机名称  
        StrHostName = Dns.GetHostName.ToString
        '  然后通过主机名称得到IP地址列表 
        Dim ipEntry As IPHostEntry = Dns.GetHostByName(StrHostName)
        Dim Addr() As IPAddress
        Addr = ipEntry.AddressList
        Dim I As Integer
        For I = 0 To Addr.Length - 1
            IP += Addr(I).ToString + "@"
        Next
        IP = Addr(0).ToString
        CareFGetIP = IP