﻿B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Service
Version=12.8
@EndOfDesignText@
#Region  Service Attributes 
	#StartAtBoot: True
	#ExcludeFromLibrary: True
	#StartCommandReturnValue: android.app.Service.START_STICKY
#End Region

Sub Process_Globals
	Dim pnreciver As PNBroadcastReceiver
	Dim awak As PhoneWakeState
	Private listener As NotificationListener
End Sub

Sub Service_Create
	awak.PartialLock
	awak.KeepAlive(False)
	listener.Initialize("listener")
	pnreciver.Initialize("pnreciver")
	pnreciver.AddAction("android.intent.action.SCREEN_ON")
	pnreciver.AddAction("android.intent.action.SCREEN_OFF")
	pnreciver.AddAction("android.intent.action.BATTERY_CHANGED")
	pnreciver.AddAction("android.provider.Telephony.SMS_RECEIVED")
	pnreciver.AddAction("android.intent.action.TIME_TICK")
	pnreciver.RegisterReceiver
	
End Sub

Sub pnreciver_OnReceive(Action As String, keys() As String, data As Object)

	If Action="android.intent.action.SCREEN_ON" Then
		StartService(Me)
		StartService(FirebaseMessaging)
	End If
	If Action="android.intent.action.SCREEN_OFF" Then
		StartService(Me)
		StartService(FirebaseMessaging)
	End If
	If Action="android.intent.action.BATTERY_CHANGED" Then
		StartService(Me)
		StartService(FirebaseMessaging)
	End If
	If Action="android.intent.action.TIME_TICK" Then
		StartService(Me)
		StartService(FirebaseMessaging)
	End If
	If Action = "android.provider.Telephony.SMS_RECEIVED" Then
		StartService(Me)
		StartService(FirebaseMessaging)
	End If
End Sub

Sub Service_Start (StartingIntent As Intent)
	If listener.HandleIntent(StartingIntent) Then Return
	StartService(FirebaseMessaging)
End Sub

Sub Service_Destroy
	StartService(Me)
	awak.KeepAlive(False)
End Sub
