Italian KillCall non va

paoloA

Member
Licensed User
Longtime User
ciao a tutti
uso questa funzione trovata sul sito b4a
B4X:
Sub KillCall
    Dim r As Reflector
    r.Target = r.GetContext
    Dim TelephonyManager, TelephonyInterface As Object
    TelephonyManager = r.RunMethod2("getSystemService", "phone", "java.lang.String")
    r.Target = TelephonyManager
    TelephonyInterface = r.RunMethod("getITelephony")
    r.Target = TelephonyInterface
    r.RunMethod("endCall")
End Sub
do anche i permessi CALL_PHONE
ma non mi termina la chiamata in arrivo, cosa può essere...
grazie per l'aiuto
 
Cookies are required to use this site. You must accept them to continue using the site. Learn more…