Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_RECEIVE_SMS)
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access RECIVE SMS", "")
Return
Else
Log("OK")
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_SEND_SMS)
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access SEND SMS", "")
Return
Else
Log("OK")
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) '
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access lOCATION", "")
Return
Else
Log("OK")
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE) '
Wait For Activity_PermissionResult (Permission As String, PResult As Boolean)
If PResult = False Then
MsgboxAsync("No permission to access PHONE STATE", "")
Return
Else
Dim pid As PhoneId
Log("phone id: " & pid)
End If