Sub keyguard(enable As Boolean)
Log("keyguard sub initiated")
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "keyguard", "java.lang.String")
r.Target = r.RunMethod2("newKeyguardLock", "keyguard", "java.lang.String")
If enable = False Then
Log("disabling the keyguard")
r.RunMethod("disableKeyguard")
Else
Log("enabling the keyguard")
r.RunMethod("reenableKeyguard")
End If
End Sub