使用vb.net获取我的计算机的ipv4

我得到了这个代码来获取我计算机的IPV4

        Dim tmpHostName As String = System.Net.Dns.GetHostName()
        Label3.Text = System.Net.Dns.GetHostByName(tmpHostName).AddressList(0).ToString()

但后来我得到一个警告，我应该将GetHostByName替换为GetHostEntry

---

这种方法可以奏效。但我担心这个警告。我该怎么办？

您可以使用主机名获取主机条目：

Dim hostEntry As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())

之后，您可以使用以下代码从地址列表中获取计算机的ipv4：

hostEntry.AddressList.FirstOrDefault(Function(i As IPAddress) Not i.IsIPv6LinkLocal AndAlso Not i.IsIPv6Multicast AndAlso Not i.IsIPv6SiteLocal)

---

您可以使用主机名获取主机条目：

Dim hostEntry As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())

之后，您可以使用以下代码从地址列表中获取计算机的ipv4：

hostEntry.AddressList.FirstOrDefault(Function(i As IPAddress) Not i.IsIPv6LinkLocal AndAlso Not i.IsIPv6Multicast AndAlso Not i.IsIPv6SiteLocal)