Sub wifi1_Tick wifilbl.Text = "WIFI = "&wifi.IsWifiConnected iplbl.Text = "My IP = "&wifi.getIPAddress If wifi.IsWifiConnected = True Then ' would often report true and throw exception If wifi.getWifiStrength > 50 Then ' added to prevent exception from above inetlbl.Text = "Internet = "&wifi.isOnline&" SSID: "&wifi.getSSID End If Else inetlbl.Text = "Internet = "&wifi.isOnline&" SSID: none" End If maclbl.Text = "MAC address = "&wifi.getMACAddress dblbl.Text = wifi.getWifiSignal & " DB" levellbl.Text = wifi.getWifiStrength & "%" End Sub
Will do and thanks again!Harris,
Sorry about that I completely missed it. try version 1.07 in the first post.
I have also made a couiple changes to the wifitest project included in the zip file.