Sub Check_WIFI
wifi_access.Initialize("wifi_access")
If Mylan.GetMyIP = "127.0.0.1" Then
Log( "We have lost WIFI access")
WIFI_Status = 0
wifi_access.Gravity = Gravity.FILL
wifi_access.Bitmap = LoadBitmap(File.DirAssets,"!Wi-Fi.png")
wifi_access.BringToFront
wifi_access.Invalidate
Else
WIFI_Status = 1
Log("We have WIFI connection")
wifi_access.Gravity = Gravity.FILL
wifi_access.Bitmap = LoadBitmap(File.DirAssets,"Wi-Fi-32.png")
wifi_access.BringToFront
wifi_access.Invalidate
End If
End Sub