Sub Process_Globals
Private WiFi As MLwifi
Private rp As RuntimePermissions
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log(WiFi.isOnLine)
Log(WiFi.isWifiConnected)
Log(WiFi.SSID)
Else
Log("no permission")
End If
End Sub