'Service module
Sub Process_globals
Dim PE As PhoneEvents
Dim pi As PhoneId
Dim rr As Reflector
End Sub
Sub Service_Create
PE.InitializeWithPhoneState("PE",pi)
End Sub
Sub Service_Start (StartingIntent As Intent)
End Sub
Sub Service_Destroy
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
ToastMessageShow(State, 5000)
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
End Sub