'Service module
Sub Process_Globals
Dim PE As PhoneEvents
Dim AC As AnswerCall
Dim PhoneId As PhoneId
End Sub
Sub Service_Create
PE.InitializeWithPhoneState("PE",PhoneId)
AC.Initialize("AnswerCall")
Log("Service created")
End Sub
Sub Service_Start
Log("Service started.")
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
Log(Intent.ExtrasToString)
ToastMessageShow(IncomingNumber,False)
If AC.isRinging == True Then
AC.AnswerPhone
End If
AC.enableSpeakerphone
End Sub
Sub Service_Destroy
End Sub