vb.net连接到WIFI网络

Imports System.Net.NetworkInformation

Dim isConnected As Boolean = NetworkInterface.GetIsNetworkAvailable()
If isConnected Then
    ' 连接到网络
Else
    ' 未连接到网络
End If

Dim wifiInterface As NetworkInterface = Nothing
Dim interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
For Each networkInterface As NetworkInterface In interfaces
    If networkInterface.NetworkInterfaceType = NetworkInterfaceType.Wireless80211 Then
        wifiInterface = networkInterface
        Exit For
    End If
Next

If wifiInterface IsNot Nothing Then
    ' 找到WIFI接口
Else
    ' 未找到WIFI接口
End If

Imports NativeWifi

Dim client As New WlanClient()
Dim profileName As String = "WIFI网络名称"
Dim profileXml As String = "<?xml version=""1.0""?><WLANProfile xmlns=""http://www.microsoft.com/networking/WLAN/profile/v1""><name>" & profileName & "</name><SSIDConfig><SSID><name>" & profileName & "</name></SSID></SSIDConfig><connectionType>ESS</connectionType><connectionMode>auto</connectionMode><MSM><security><authEncryption><authentication>WPA2PSK</authentication><encryption>AES</encryption><useOneX>false</useOneX></authEncryption><sharedKey><keyType>passPhrase</keyType><protected>false</protected><keyMaterial>WIFI密码</keyMaterial></sharedKey></security></MSM></WLANProfile>"
client.Interfaces(0).Connect(Wlan.WlanConnectionMode.Profile, Wlan.Dot11BssType.Any, profileName, profileXml, Wlan.WlanConnectionFlags.None)

' 连接成功后的操作

client.Interfaces(0).Connect(Wlan.WlanConnectionMode.Profile, Wlan.Dot11BssType.Any, profileName, Nothing, Wlan.WlanConnectionFlags.None)