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

发布时间：2020-12-17 00:33:10 所属栏目：大数据来源：网络整理

导读：我正在尝试获取本地PC的IP地址,以及我的其他PC中的一个,它获得了v4地址,但是在这一个代码： Dns.GetHostEntry(Dns.GetHostName).AddressList(0).ToString() 返回我猜的IPv6地址： fe80::9c09:e2e:4736:4c62%11 我如何获得IPv4地址？免责声明 – 我没有安装I

我正在尝试获取本地PC的IP地址,以及我的其他PC中的一个,它获得了v4地址,但是在这一个代码：

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

返回我猜的IPv6地址：

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

我如何获得IPv4地址？

免责声明 – 我没有安装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()

这可能会爆炸,所以不要将其视为生产代码.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!