Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("1")
rup.CheckAndRequest(rup.PERMISSION_GET_ACCOUNTS)
Wait For Activity_PermissionResult(Permission As String, Result As Boolean)
If Result Then
Gaccount = Result
Else
End If
Dim Googleaccounts as string
Googleaccounts = GetGoogleaccounst
log("Email : " & Googleaccounts) 'is empty on android 8 and 9
End Sub
Sub GetGoogleaccounst As String
Dim r As Reflector
r.Target = r.RunStaticMethod("android.accounts.AccountManager", "get", _
Array As Object(r.GetContext), Array As String("android.content.Context"))
Dim accounts() As Object
accounts = r.RunMethod2("getAccountsByType","com.google", "java.lang.String")
For i = 0 To accounts.Length - 1
r.Target = accounts(i)
Dim accountName As String
accountName = r.GetField("name")
Log(accountName)
Next
Return accountName
End Sub