vb.net - 使用VB.net获取计算机的本地IPv4

Question

我正在尝试获取本地 PC 的 IP 地址，而我的另一台 PC 可以很好地获取 v4 地址，但在这台 PC 上，代码为:

Dns.GetHostEntry(Dns.GetHostName).AddressList(0).ToString()

返回我猜测的 IPv6 地址:

fe80::9c09:e2e:4736:4c62%11

如何获取 IPv4 地址？

Answer 1

免责声明 - 我没有安装 IPv6，可能有更好的方法来执行此操作，但以下返回什么:

Dns.GetHostEntry(Dns.GetHostName()).AddressList
    .Where(a => !a.IsIPv6LinkLocal && !a.IsIPv6Multicast && !a.IsIPv6SiteLocal)
    .First()
    .ToString();

编辑 - 没有注意到你在 VB 中提问，所以我尝试将其翻译为:

Dim s As String = Dns.GetHostEntry(Dns.GetHostName()).AddressList _
    .Where(Function(a As IPAddress) Not a.IsIPv6LinkLocal AndAlso Not a.IsIPv6Multicast AndAlso Not a.IsIPv6SiteLocal) _
    .First() _
    .ToString()

这可能会崩溃，所以不要将其视为生产代码。