Italian KillCall non va

[paoloA]

ciao a tutti
uso questa funzione trovata sul sito b4a

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

 

[arenaluigi]

Ti ho risposto nel post precedente.