Sub ComprobarBloqueoPantalla As Boolean
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "keyguard", "java.lang.String")
Return r.RunMethod("inKeyguardRestrictedInputMode")
End Sub
Sub DesbloquearPantallaBloqueo
r.Target = r.GetActivity
r.Target = r.RunMethod("getWindow")
r.RunMethod2("addFlags", 6815872, "java.lang.int")
End Sub
Sub BloquearPantallaBloqueo
' volver a bloquear pantalla (poner como estaba)
r.Target = r.GetActivity
r.Target = r.RunMethod("getWindow")
r.RunMethod2 ("clearFlags", 0, "java.lang.int")
End Sub