Spanish [SOLICIONADO]detectar pantalla apagada y/o modo avion

[mvera]

hola.

Necesito detectar cuando el dispositivo se encuentra con la pantalla apagada y/o cuando el dispositivo se encuentra en modo avión.

como dato tengo un servicio que cada x momentos chequea informacion y necesito saber estos estados para actuar o no con otra accion.


espera me puedan orientar.


gracias.

 

[bgsoft]

Hola

Esto deberian ser dos preguntas, pero lo ignoraré

Ver si está la pantalla apagada:

Sub ComprobarPantallaApagada As Boolean


Dim ok As Boolean
Dim r As Reflector
r.Target = r.GetContext

r.Target = r.RunMethod2("getSystemService", "keyguard", "java.lang.String")

ok=  r.RunMethod("inKeyguardRestrictedInputMode") ' devuelve true si la pantalla está apagada

LogColor("ComprobarPantallaApagada " & ok,Colors.Blue)


Return ok

End Sub

Modo avión:

Dim ModoAvion As Toggle ' libreria Toggle

log("ModoAvion " & ModoAvion.AirplaneMode)

Tambien puedes saber si esta conectado el wifi y los datos moviles

log("Datos moviles " & ModoAvion.DataConnection)
log("Wifi " & ModoAvion.WiFi)

Y por el mismo precio y si quieres ver la pantalla si esta apagada y emplear la misma libreria (Toggle)

log("Pantalla encendida? " & ModoAvion.isScreenOn) ' devuelve true si esta encendida

Saludos

 

[mvera]

muchas graciasss. jajaja