bonsoir
j'utilise un exemple fourni dans le forum pour intercepter un appel téléphonique
j'ai modifié pour lancer par exemple la calculatrice
cela fonctionne
puis je veux raccrocher l'appel en utilisant
Sub KillCall
'this Kills the call if needed
Log("Raccroche le numéro " & NumTel)
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
cela ne fonctionne pas
pouvez vous m'aider
cordialement
Pierre
j'utilise un exemple fourni dans le forum pour intercepter un appel téléphonique
j'ai modifié pour lancer par exemple la calculatrice
cela fonctionne
puis je veux raccrocher l'appel en utilisant
Sub KillCall
'this Kills the call if needed
Log("Raccroche le numéro " & NumTel)
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
cela ne fonctionne pas
pouvez vous m'aider
cordialement
Pierre