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

前端之家收集整理的这篇文章主要介绍了使用VB.net获取本地IPv4计算机前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在尝试获取本地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()

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

原文链接:https://www.f2er.com/vb/255012.html

猜你在找的VB相关文章