Sub WiFiTwo
Dim r As Boolean
Dim a As Int
Dim nFo As ABWifiInfo
r = myWifi.ABLoadWifi()
nFo = myWifi.ABGetCurrentWifiInfo()
Msgbox("Connected 0 :: " & nFo.IsConnected, "")
If r = True Then
Msgbox (myWifi.ABGetCurrentWifiInfo().SSID, "")
For a = 0 To myWifi.ABNumberOfAvailableWifiNetworks - 1
Msgbox(myWifi.ABGetWifiNetwork(a).SSID & " " &
myWifi.ABGetWifiNetwork(a).Level & " " &
myWifi.ABGetWifiNetwork(a).IsConnected, "")
Next
Else
Msgbox(myWifi.ABWifiLastError,"")
End If
End Sub