说明,显示初值是length/2,是因为IPv6和IPv4都会获取到,而v6集中在前,v4在后,所以直接跳过v6,只是show出v4的。
Dim HostName As String
Dim HostIP As String = "" '//定义主机IP地址集
Dim IPAddress As System.Net.IPAddress() ' //定义IP地址
HostName = System.Net.Dns.GetHostName ' //获取本地主机名称
IPAddress = System.Net.Dns.GetHostAddresses(Dns.GetHostName()) ' //获取本地主机的IP地址集
For i As Integer = CInt(IPAddress.Length / 2) To IPAddress.Length - 1
HostIP += IPAddress(i).ToString + " " + vbCrLf
Next
lbl_local_ip.Text = HostIP