Sub Process_Globals
End Sub
Sub Globals
Dim Button1 As Button
Dim Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("test")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
If UserClosed AND Not(IsPaused(unlock)) Then
StopService(unlock)
End If
End Sub
Sub SetShowWhenLocked
Dim r As Reflector
r.Target = r.GetActivity
r.Target = r.RunMethod("getWindow")
r.RunMethod2("addFlags", 6815872, "java.lang.int")
End Sub
Sub Button1_Click ' unlock by activity
SetShowWhenLocked
End Sub
Sub Button2_Click ' unlock by service
StartServiceAt(unlock,DateTime.Now+20*1000,True)
End Sub