#Region Module Attributes
#StartAtBoot: False
#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region
'Service module
Sub Process_Globals
Dim PE As PhoneEvents
Dim AC As AnswerCall
Dim PhoneId As PhoneId
Dim AStreamsClient As AsyncStreams
Dim Socket2 As Socket
Dim gelen_telefon As String
End Sub
Sub Service_Create
PE.InitializeWithPhoneState("PE",PhoneId)
AC.Initialize("AnswerCall")
ToastMessageShow("SERVICES START",True)
End Sub
Sub Service_Start
ToastMessageShow("SERVİS START",True)
Dim noti As Notification 'shows in the notification window
noti.Initialize
noti.Icon ="icon"
noti.Sound = True
noti.Vibrate = True
noti.Light = False
'this runs the next Activity (smstext)
noti.SetInfo("Tel ,"LISTENING...",Main)
noti.Notify(1)
Service.StartForeground(1, noti)
End Sub