Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
Dim mytts As TTS
'ToastMessageShow(State, True)
If State = "OFFHOOK" Then
rr.Target = rr.GetContext
rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")
rr.RunMethod2("setMode", 2, "java.lang.int")
rr.RunMethod2("setSpeakerphoneOn", True, "java.lang.boolean")
End If
If State = "IDLE" Then
rr.Target = rr.GetContext
rr.Target = rr.RunMethod2("getSystemService", "audio", "java.lang.String")
rr.RunMethod2("setMode", 2, "java.lang.int")
rr.RunMethod2("setSpeakerphoneOn", False, "java.lang.boolean")
StopService("phone1_SM1") ' stop this service
End If
End Sub