vs2005获取64位系统IP地址和使用sockets报错问题

[hbhuo2008]

1、如何获取window64位操作系统的IP地址？
32位XP系统：
IPAdress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(0)
32位win7系统：
IPAdress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(1)
64位系统报错，却是：


2、64位系统下运行程序报错：
提示System.Net.Sockets.Socket问题，如下图




请各位大侠帮忙，非常感谢。

[於黾]

你获取到的是IPV6的地址,不是IPV4的

[hbhuo2008]

引用 1 楼 Z65443344 的回复:

你获取到的是IPV6的地址,不是IPV4的

64位操作系统的IPV4的地址如何获取？

[hbhuo2008]

确实是获取IP地址错误引起的。没有配置IPv6。 下面自己写的查看IP地址程序，运行后不再出错。

Imports system.net.Sockets
Public Class Form1

    '获取本机机器名和IP地址
    Dim IPAdress As System.Net.IPAddress
    Dim hostname As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.Length
        TextBox4.Text = System.Net.Dns.GetHostName()
        TextBox2.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        TextBox2.Text = ""
        TextBox3.Text = ""
        For i = 0 To TextBox1.Text.Trim - 1
            If System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList(i).IsIPv6LinkLocal = False Then 'IPV4地址

                IPAdress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(i)
                TextBox2.Text = TextBox2.Text & i & "：" & IPAdress.ToString & vbCrLf
            Else

                IPAdress = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName()).AddressList.GetValue(i)
                TextBox3.Text = TextBox3.Text & i & "：" & IPAdress.ToString & vbCrLf
            End If
        Next
    End Sub
End Class