Determining screen lock or not

[rabiuls]

Hello,

Is it possible to detect whether screen is locked or not? I have seen the "UserPresent" of phone library. Is there any other method?

Thanks a lot.

 

[rabiuls]

Ok, I found a way with the Reflection library.

 

[SoyEli]

can you explain how its done ?

 

[rabiuls]

can you explain how its done ?

Sorry, I did not notice this, as I have not subscribed to this thread. I shall post it if you still there and want to know.

 

[NeoTechni]

I would like to know

 

[rabiuls]

I would like to know

Well, OK. Select the Reflection library. The sub bellow will set a variable - 'DeviceLocked' to either 0 or 1:

Sub CheckLock
Dim r As Reflector
Dim isLock As Boolean
r.Target = r.GetContext
r.Target = r.RunMethod2("getSystemService", "keyguard", "java.lang.String")
isLock = r.RunMethod("inKeyguardRestrictedInputMode")

If isLock = False Then
DeviceLocked = 0
Else
DeviceLocked = 1
End If
End Sub

 

[NeoTechni]

Thank you.

Don't take this the wrong way, I am just trying to teach you how to program faster/easier

Sub CheckLock as boolean

Dim r As Reflector

r.Target = r.GetContext

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

return  r.RunMethod("inKeyguardRestrictedInputMode")
end sub

 

[rabiuls]

Thank you.

Don't take this the wrong way, I am just trying to teach you how to program faster/easier

Sub CheckLock as boolean

Dim r As Reflector

r.Target = r.GetContext

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

return  r.RunMethod("inKeyguardRestrictedInputMode")
end sub

Indeed it's better :sign0142:. Thank you very much.

 

[NeoTechni]

You're welcome