如何在vb中获取无线局域网ip地址

Question

我想获取我的计算机的本地wlan ip。我的电脑同时连上了局域网和无线网络。我正在使用以下程序获取lan ip，但未获取wlan ip。如何获得它？？

Private Function GetIPv4Address() As String


            GetIPv4Address = String.Empty
            Dim strHostName As String = System.Net.Dns.GetHostName()
            Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName)

            For Each ipheal As System.Net.IPAddress In iphe.AddressList
                If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
                    GetIPv4Address = ipheal.ToString()
                End If
            Next

这个程序得到的ip地址的最后连接的ip的局域网和无线局域网，但我只想在任何情况下无线局域网ip

和下面的程序仅显示lan ip

Dim mem As String

Private Sub GetIPAddress1()

    Dim strHostName As String
    Dim strIPAddress As String
    strHostName = System.Net.Dns.GetHostName()
    strIPAddress = System.Net.Dns.GetHostByName(strHostName).AddressList(0).ToString()

    mem = strIPAddress
    MessageBox.Show("IP Address: " & strIPAddress)

End Sub

Answer 1

您可以使用NetworkInformation类来访问网络接口上的所有信息。

使用NetworkInterface.GetAllNetworkInterfaces()方法枚举NetworkInterface集合时，可以添加一个筛选器以仅选择具有NetworkInterfaceType = NetworkInterfaceType.Wireless80211的接口。

当/如果找到请求的接口时，我们只需要提取IPv4 UnicastAddress，其中包含IPAddress等详细信息。

Imports System.Net.NetworkInformation

Dim WirelessIPAddress As IPAddress = GetWirelessIPAddress()
'If the string form is required:
Dim WLSIPAddress As String = WirelessIPAddress.ToString()

Public Function GetWirelessIPAddress() As IPAddress
    Return NetworkInterface.
        GetAllNetworkInterfaces().
        FirstOrDefault(Function(NI) NI.NetworkInterfaceType = NetworkInterfaceType.Wireless80211).
        GetIPProperties().
        UnicastAddresses.Last().
        Address
End Function

请参阅this method (C#)以提取有关接口的更多信息。