#Region Service Attributes
#StartAtBoot: True
#StartCommandReturnValue: android.app.Service.START_STICKY
#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 n As Notification
Dim Aan As Boolean
End Sub
Sub Service_Create
'This is the program entry point.
'This is a good place to load resources that are not specific to a single activity.
End Sub
Sub Service_Start (StartingIntent As Intent)
'schedule the service to start every 2 minutes. Note that StartAtBoot is set to trye
StartServiceAt(Me, DateTime.Now + 2 * DateTime.TicksPerMinute, False)
If(Aan) Then
n.Cancel(1)
Aan=False
Else
DisplayIcon
Aan=True
End If
End Sub
Sub Service_TaskRemoved
'This event will be raised when the user removes the app from the recent apps list.
End Sub
'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub Service_Destroy
End Sub
Sub DisplayIcon
n.Initialize
n.Icon = "check"
n.SetInfo("CIRIS Example", "Nieuw berichten ontvangen...", Main)
n.AutoCancel = True
n.Notify(1)
End Sub