#Region Service Attributes
#StartAtBoot: False
#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 Broadcast As BroadCastReceiver
End Sub
Sub Service_Create
Broadcast.Initialize("BroadcastReceiver")
End Sub
Sub Service_Start (StartingIntent As Intent)
Broadcast.addAction("android.intent.action.SCREEN_OFF")
Broadcast.SetPriority(2147483647)
Broadcast.registerReceiver( "")
End Sub
Sub Service_Destroy
End Sub
Sub BroadcastReceiver_OnReceive (Action As String, i As Object)
Dim i2 As Intent = i
Log(i2.Action)
Dim i3 As Intent
i3.Initialize("android.intent.action.SCREEN_ON","")
Dim p As Phone
p.SendBroadcastIntent(i3)
End Sub