Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
LogColor("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber, Colors.Magenta)
LogColor(Intent.ExtrasToString, Colors.Magenta)
KillCall
End Sub
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")
LogColor("Call Killed", Colors.Magenta)
End Sub