Sub Process_Globals
Dim PE As PhoneEvents
Dim PhoneId As PhoneId
End Sub
Sub Service_Create
PE.InitializeWithPhoneState("PE",PhoneId)
Log("Service created")
End Sub
Sub Service_Start (StartingIntent As Intent)
Log("Service started.")
'Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
End Sub
Sub Service_Destroy
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)
End Sub