题
我正在尝试获取本地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()
这可能会爆炸,所以不要将其视为生产代码。
其他提示
这是我在不使用外部服务的情况下获取可路由IPv4 IP的解决方案:
Function GetLocalIP() As String
Dim IPList As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)
For Each IPaddress In IPList.AddressList
'Only return IPv4 routable IPs
If (IPaddress.AddressFamily = Sockets.AddressFamily.InterNetwork) AndAlso (Not IsPrivateIP(IPaddress.ToString)) Then
Return IPaddress.ToString
End If
Next
Return ""
End Function
Function IsPrivateIP(ByVal CheckIP As String) As Boolean
Dim Quad1, Quad2 As Integer
Quad1 = CInt(CheckIP.Substring(0, CheckIP.IndexOf(".")))
Quad2 = CInt(CheckIP.Substring(CheckIP.IndexOf(".") + 1).Substring(0, CheckIP.IndexOf(".")))
Select Case Quad1
Case 10
Return True
Case 172
If Quad2 >= 16 And Quad2 <= 31 Then Return True
Case 192
If Quad2 = 168 Then Return True
End Select
Return False
End Function
请注意,我的代码也验证范围是可路由的(IsPrivateIP)。如果您正在寻找其他内容,可以删除或修改该部分。
我认为你应该使用它:
Dim tmpHostName As String = System.Net.Dns.GetHostName()
myIPaddress = System.Net.Dns.GetHostByName(tmpHostName).AddressList(0).ToString()
GetHostByName
已过时,但这是获取IPv4的方法。为什么?因为getbyhostname
函数是在IPv6之前创建的,所以函数只获得IPv4连接,而不是fe80::9c09:e2e:4736:4c62%11
。
这个小功能可以显示计算机上的所有IP地址:
Public Function getOwnIp() As String
Dim hostIP As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
Dim position As Integer = 0
Dim ip As String = Nothing
While ipList < hostIP.AddressList.Length
ip += hostIP.AddressList(position).ToString & vbCrLf
position += 1
End While`enter code here`
Return ip
End Function
我一直在寻找这个问题的答案,我找不到适合我需要的答案。我设法在网上试验各种答案,直到我想出这个(效果很好!)。只是想我会分享,因为这篇文章是谷歌的最佳结果。
''''Routine to fetch IPv4 Network addresses for all local network interfaces.
Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
Dim adapter As NetworkInterface
For Each adapter In adapters
Dim properties As IPInterfaceProperties = adapter.GetIPProperties()
If properties.UnicastAddresses.Count > 0 Then
For Each unicastadress As UnicastIPAddressInformation In properties.UnicastAddresses
Dim ip As IPAddress = unicastadress.Address
If ip.AddressFamily = AddressFamily.InterNetwork Then
ComboBox1.Items.Add(ip.ToString)
End If
Next unicastadress
End If
Next adapter
首先需要将系统命名空间导入到您的应用程序中,然后创建 System.Net.NetworkInformation.IPAddressInformation
的实例并将其用作
实施例
Imports system.data.sqlclient
imports system
Public class Form1
Dim IPAdd As System.Net.NetworkInformation.IPAddressInformation
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("My IP Address is " & IPAdd.Address.ToString)
End Sub
End Class
Dim localIp As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName())
txtLocal.Text = localIp.AddressList(1).ToString
请注意,我将(0)
索引更改为(1)
。
不隶属于 StackOverflow