Program to check if Scroll Lock is ON

[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 August 24, 2007 by SoulBlade

[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

[SoulBlade]

It works! Is just what i needed!

My thanks weaponx !!!