Lock key board or user not logged in

[AntiVirusGuy]

Does anyone know how to only make a Run statement to run if no one is logged in or the workstation is locked??

Please provide an example as I am very unfamiliar with how to do this Thank you in advance

[SpookMeister]

Well, I had a function way back in 2005 that worked with whatever the current version of AutoIt was at the time. However it is not functioning for me at the moment, probably because something has changed in how DllCall() works.

Maybe someone else can figure out why quicker than I can:

While 1
    Sleep(1000)
    If ScreenLocked() Then
        ConsoleWrite(@HOUR & @MIN & @SEC & "- Locked" & @CRLF)
    Else
        ConsoleWrite(@HOUR & @MIN & @SEC & "- Not Locked" & @CRLF)
    EndIf
WEnd
Func ScreenLocked()
    $locked = DllCall("user32.dll", "Long", "OpenInputDesktop")
    If $locked[0] = 0 Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc   ;==>ScreenLocked

[edit] typos

Edited February 14, 2008 by SpookMeister

[AntiVirusGuy]

I think it can be done with WMI but I am not very well versed with WMI

[baghenamoth]

Hi

I use exactly the same dllcall and it worked well with autoit 3.2.2.0 and now it crashes autoitexe (3.2.10.0)

Does someone knows how to call the dll correctly ?

Well, I had a function way back in 2005 that worked with whatever the current version of AutoIt was at the time. However it is not functioning for me at the moment, probably because something has changed in how DllCall() works.

Maybe someone else can figure out why quicker than I can:

While 1
    Sleep(1000)
    If ScreenLocked() Then
        ConsoleWrite(@HOUR & @MIN & @SEC & "- Locked" & @CRLF)
    Else
        ConsoleWrite(@HOUR & @MIN & @SEC & "- Not Locked" & @CRLF)
    EndIf
WEnd
Func ScreenLocked()
    $locked = DllCall("user32.dll", "Long", "OpenInputDesktop")
    If $locked[0] = 0 Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc   ;==>ScreenLocked

[edit] typos

[SpookMeister]

I poked around at this today and figured out that the DLLcall needed more information to function properly... not sure why it worked once upon a time... but anyway, here it is for future reference

HotKeySet("{ESC}", "Terminate")

While 1
    Sleep(1000)
    If ScreenLocked() Then
        ConsoleWrite(@HOUR & ":" & @MIN & ":" & @SEC & "- Locked" & @CRLF)
    Else
        ConsoleWrite(@HOUR & ":" & @MIN & ":" & @SEC & "- Not Locked" & @CRLF)
    EndIf
WEnd

Func ScreenLocked()
    $locked = DllCall("user32.dll", "long", "OpenInputDesktop", "dword", 0, "dword", 0, "dword", 0x0040)
    If @error Then Exit
    If $locked[0] = 0 Then
        Return 1
    Else
        Return 0
    EndIf
EndFunc   ;==>ScreenLocked

Func Terminate()
    Exit 0
EndFunc   ;==>Terminate