可以用以下代碼得到本機IP地址.

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