获取本机IP ， VS2013 VB



说明，显示初值是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