How to NUMLOCK / CAPSLOCK / SCROLLOCK OFF?

[Dirk98]

I need my script to shut down the above (no matter if they are on ar off) before the execution of the main rutine.

Pls advise how.

Many thanks.

Dirk.

[Fossil Rock]

What do you mean by "shut down" ? Disable ?

[BrettF]

I take it he means disable Num Lock, Caps Lock and Scroll lock...

[sandman]

Send("{NUMLOCK off}")
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")

[Dirk98]

Awesome, thank you, guys! Was thinking about the script I'm working on while writing my request.

[Fossil Rock]

Send("{NUMLOCK off}")
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")

Just to clarify, it does not diasable the keys, it justs sets the state to off. If someone presses one of the keys they will switch state.

To set the state of the capslock, numlock and scrolllock keys

Send("{NumLock on}") ;Turns the NumLock key on

Send("{CapsLock off}") ;Turns the CapsLock key off

Send("{ScrollLock toggle}") ;Toggles the state of ScrollLock

[BrettF]

Just to clarify, it does not diasable the keys, it justs sets the state to off. If someone presses one of the keys they will switch state.

This might work:

#include 
Send("{NUMLOCK off}")
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")

While 1
    Select 
        Case _IsPressed (90) = 1
            Send ("{NUMLOCK toggle}") 
        Case _IsPressed (91) = 1
            Send ("{SCROLLLOCK toggle}")
        Case _IsPressed (14) = 1
            Send ("{CAPSLOCK toggle}") 
        Case _IsPressed ('1B') = 1
            Exit
    EndSelect
WEnd

[Dirk98]

This might work:

#include 
Send("{NUMLOCK off}")
Send("{CAPSLOCK off}")
Send("{SCROLLLOCK off}")

While 1
    Select 
        Case _IsPressed (90) = 1
            Send ("{NUMLOCK toggle}") 
        Case _IsPressed (91) = 1
            Send ("{SCROLLLOCK toggle}")
        Case _IsPressed (14) = 1
            Send ("{CAPSLOCK toggle}") 
        Case _IsPressed ('1B') = 1
            Exit
    EndSelect
WEnd

Sorry, bear with me, #Include what?

[Nahuel]

Sorry, bear with me, #Include what?

It needs Misc.au3

It didn't work for me though...

Oh I see.. the light flashes if I keep the key pressed.. haha.

Edited September 29, 2007 by Nahuel

[BrettF]

It needs Misc.au3

It didn't work for me though...

Oh I see.. the light flashes if I keep the key pressed.. haha.

Ok... Thats weird, the #include <misc.au3> completely destroyed itself?? Meh. It theory it should have worked Sorry...

[Nahuel]

It does work, but you you have to press the key a little longer...

[BrettF]

It does work, but you you have to press the key a little longer...

Mmmmmm... The flashy thing is cool

[Fossil Rock]

It may be better to use this... it should set it back if it gets changed.

If _GetScrollLock() = 1 Then Send("{SCROLLLOCK Toggle}"); 0 = Off  /  1 = On


....


Func _GetScrollLock(); Checks to see if Scroll Lock is on
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_SCROLL)
    Return $ret[0]
EndFunc

[BrettF]

It may be better to use this... it should set it back if it gets changed.

If _GetScrollLock() = 1 Then Send("{SCROLLLOCK Toggle}"); 0 = Off  /  1 = On


....


Func _GetScrollLock(); Checks to see if Scroll Lock is on
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_SCROLL)
    Return $ret[0]
EndFunc

Yes. It would