VB.NET 2008如何获取本机IP地址
如题，将本机的IP地址获取到textbox1中，如何实现，不要MAC地址
如图所示：
各位，小弟在线等，谢谢！！！
[解决办法]
Dim IPAdress As System.Net.IPAddressHostName = System.Net.Dns.GetHostName '获得本机的机器名
IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IPMe.TextBox1.Text = HostName '本机机器名
Me.TextBox2.Text = IPAdress.ToString '本机的IP
[解决办法]
Function GetIps() '获取本机所有ip地址，多个地址时，空格隔开,命名空间：Imports System.Net
Dim addrlist() As IPAddress = Dns.GetHostByName(Dns.GetHostName).AddressList
Dim j As Integer, ip$
ip = ""
For j = 0 To addrlist.Length - 1
ip &= addrlist(j).ToString & " "
Next
GetIps = Trim(ip)
End Function
[解决办法]
获取ip的代码楼上的已经差不多少了，但需要注意的是，获取到的ip地址可能为多个，并且其中可能同时存在ipv4和ipv6地址，用的时候最好判断一下。
[解决办法]
MsgBox(System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList(0).ToString)
