#Region Service Attributes
#StartAtBoot: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim nNotify As Notification
Dim SI As SmsInterceptor
End Sub
Sub Service_Create
nNotify.Initialize
'nNotify.Icon = "icon.png"
'nNotify.SetInfo("Medi", "Tap to open player.", TMM_Run)
nNotify.Sound=False
nNotify.Vibrate=False
nNotify.Light=False
nNotify.OnGoingEvent=True
Service.StartForeground(1,nNotify)
SI.Initialize2("SI", 999)
End Sub
Sub Service_Start (StartingIntent As Intent)
ToastMessageShow("Service Start", True)
End Sub
Sub Service_Destroy
End Sub
'Gestisco Messaggi
Sub SI_MessageReceived (From As String, Body As String) As Boolean
If Body = messaggio Then
ToastMessageShow(From, True)
Return True
End If
End Sub