'Service module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim PE As PhoneEvents
' Dim PhoneId As Phoneid --> unknown?
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
' PE.InitializeWithPhoneState("PE", PhoneId) --> unknown?
PE.Initialize("PE")
End Sub
Sub Service_Destroy
End Sub
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
Log(state)
If state="RINGING" Then
Msgbox(IncomingNumber,"")
End If
End Sub