'Service -llamando- module
Sub Process_Globals
Dim PE As PhoneEvents
End Sub
Sub Service_Create
PE.Initialize("PE")
End Sub
Sub Service_Start
End Sub
Sub PE_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent)
Log("BatteryChanged: Level = " & Level & ", Scale = " & Scale & ", Plugged = " & Plugged)
End Sub
Sub PE_ScreenOff (Intent As Intent)
Log("ScreenOff")
End Sub
Sub PE_ScreenOn (Intent As Intent)
Log("ScreenOn")
End Sub
Sub PE_PhoneStateChanged(State As String, IncomingNumber As String, Intent As Intent) As String
Log("PhoneStateChanged, State = " & State & ", IncomingNumber = " & IncomingNumber)
Log(Intent.ExtrasToString)
Log(Intent.ACTION_CALL)
End Sub
Sub Service_Destroy
End Sub