Dim ctxt As JavaObject
ctxt.InitializeContext
Dim telecom As JavaObject = ctxt.RunMethod("getSystemService", Array("telecom"))
Dim accounts As List = telecom.RunMethod("getCallCapablePhoneAccounts", Null)
Log(accounts)
Dim p As PhoneId 'ignore, required for the permission
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim SubscriptionManager As JavaObject = ctxt.RunMethod("getSystemService", Array("telephony_subscription_service"))
Dim infolist As List = SubscriptionManager.RunMethod("getActiveSubscriptionInfoList", Null)
For Each info As JavaObject In infolist
Log("Number: " & info.RunMethod("getNumber", Null))
Next
Dim p As PhoneId 'ignore, required for the permission
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim SubscriptionManager As JavaObject = ctxt.RunMethod("getSystemService", Array("telephony_subscription_service"))
Dim infolist As List = SubscriptionManager.RunMethod("getActiveSubscriptionInfoList", Null)
For Each info As JavaObject In infolist
Log("Number: " & info.RunMethod("getNumber", Null))
Next
This is the information that is returned from the official API. It means that the phone number is not stored in the SIM or maybe there is a different problem.