Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent1 As Intent)
If State="RINGING" Then
'Squillo
if IncomingNumber ="0039333xxxx" then KillCall
Else If State="OFFHOOK" Then
' OFF Hook
else If State="IDLE" Then
'IDEL
End If
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")
End Sub