;KeyInfo
;By jgpaiva
;date: June 2006
;function: Gives information about the state of the keyboard keys in the systray.

ScriptVersion = 1.0

#singleinstance,force
;This is the order of the icons:
;1 - all off
;2 - Caps on  Num off Scroll off
;3 - Caps off Num on  Scroll off
;4 - Caps off Num off Scroll on
;5 - Caps on  Num on  scroll off
;6 - Caps on  Num off Scroll on
;7 - Caps off Num on  Scroll on
;8 - all on

Menu,TRAY, Icon, 1.ico
Menu,TRAY, Tip, KeyInfo by jgpaiva
loop
{
Caps   :=GetKeyState("CapsLock","T")
Num    :=GetKeyState("NumLock","T")
Scroll :=GetKeyState("ScrollLock","T")

If Caps
  If Num
    If Scroll
      Menu,TRAY, Icon, 8.ico
    else
      Menu,TRAY, Icon, 5.ico
  else
    If Scroll
      Menu,TRAY, Icon, 6.ico
    else
      Menu,TRAY, Icon, 2.ico
else
  If Num
    If Scroll
      Menu,TRAY, Icon, 7.ico
    else
      Menu,TRAY, Icon, 3.ico
  else
    If Scroll
      Menu,TRAY, Icon, 4.ico
    else
      Menu,TRAY, Icon, 1.ico

sleep 200
}