#Region Service Attributes
#StartAtBoot: False
#End Region
Sub Process_Globals
Dim lettura As TextReader
Dim titolo,body As String
Dim n As Notification
End Sub
Sub Service_Create
StartServiceAt("", DateTime.Now + 100000, True)
End Sub
Sub Service_Start (StartingIntent As Intent)
lettura.Initialize(File.OpenInput(File.DirInternal,"titolo.txt"))
titolo = lettura.ReadAll
lettura.Close
lettura.Initialize(File.OpenInput(File.DirInternal,"body.txt"))
body = lettura.ReadAll
lettura.Close
n.Initialize
n.Icon="icon"
n.SetInfo(titolo,body,"Main")
n.Notify(23)
End Sub
Sub Service_Destroy
End Sub