Question

我有这个代码来获取我的电脑的IPV4

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

但后来我收到一条警告，我应该将GetHostByName替换为GetHostEntry 可行的。但我担心这个警告。我该怎么办？

Answer 1

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

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)

使用vb.net获取我的机器的ipv4

1 个答案: