Jump to content
Sign in to follow this  
SoulBlade

Program to check if Scroll Lock is ON

Recommended Posts

SoulBlade

Hi!

I'm new to Autoit, but i'm trying to write a very small program that checks if Scroll Lock is on and then exits.

If Scroll Lock is on a message box will appear saying that.

I've wrote the following code:

CODE
HotKeySet("{SCROLLLOCK on}", "SLON")

Func SLON()

msgbox(4096,""," SCROLL LOCK ON")

EndFunc

It doesn't work. What i'm i missing here?

:)

Edited by SoulBlade

Share this post


Link to post
Share on other sites
weaponx

From GAFrost: http://www.autoitscript.com/forum/index.ph...mp;#entry108146

Global Const $VK_NUMLOCK = 0x90
Global Const $VK_SCROLL = 0x91
Global Const $VK_CAPITAL = 0x14


MsgBox(0,"Keys","NumLock: " & _GetNumLock() & @LF & _
"Scroll Lock: " & _GetScrollLock() & @LF & _
"Caps Lock: " & _GetCapsLock())

Func _GetNumLock()
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_NUMLOCK)
    Return $ret[0]
EndFunc

Func _GetScrollLock()
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_SCROLL)
    Return $ret[0]
EndFunc

Func _GetCapsLock()
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_CAPITAL)
    Return $ret[0]
EndFunc

Share this post


Link to post
Share on other sites
SoulBlade

It works! Is just what i needed!

My thanks weaponx !!!

:)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.