Wifiの接続先のSSIDの一覧を取得する方法を記載します。

以下のサンプルは、接続されている全ての無線LANアダプターが受信しているSSIDを全て表示しています。

接続先SSIDを全て取得する

Imports NativeWifi


Dim client As WlanClient = New WlanClient()

For Each wlanIface As WlanClient.WlanInterface In client.Interfaces
    Console.WriteLine("{0}", wlanIface.InterfaceDescription)

    Dim wlanBssEntries As Wlan.WlanBssEntry() = wlanIface.GetNetworkBssList()
    For Each network As Wlan.WlanBssEntry In wlanBssEntries

        Dim ssid = System.Text.ASCIIEncoding.ASCII.GetString(network.dot11Ssid.SSID)
        ssid = ssid.TrimEnd(vbNullChar)

        Console.WriteLine(" SSID:{0}", ssid)
    Next
    Console.WriteLine()
Next

結果表示の例

Logitec LAN-W450AN/U2
 SSID:IODATA-832a4a-2G
 SSID:IODATA-832a4a-5G

・無線LANアダプターが接続されていなく、近くにルータも１つしかないので以上のような結果です。

接続されているWiFiレシーバー（無線LANアダプター）を取得する方法を記載します。

WiFiレシーバーを取得する

Imports NativeWifi

Dim client As WlanClient = New WlanClient()

For Each wlanIface As WlanClient.WlanInterface In client.Interfaces
    Console.WriteLine("{0}", wlanIface.InterfaceDescription)
    Console.WriteLine("{0}", wlanIface.InterfaceName)
    Console.WriteLine("{0}", wlanIface.InterfaceGuid)
Next

接続されている 無線LANアダプターが表示されます。

表示例

Logitec LAN-W450AN/U2
Wi-Fi
d3eeb93f-2c01-48b2-94ec-842030c28e65