XProfan

sendkey(%desktop,20)

Def GetKeyboardState(1) ! "USER32.DLL","GetKeyboardState"
Declare Keyboardstate#
Dim Keyboardstate#,256
...

elseif Menuitem(103)

byte keyboardstate#,20=1           Caps Lock ein
setkeyboardstate(keyboardstate#)

elseif Menuitem(104)

byte keyboardstate#,20=0           Caps Lock aus
setkeyboardstate(keyboardstate#)

Def Getkeyboardstate(1) ! "USER32.DLL","GetKeyboardState"
Declare Keyboardstate#, status%
Dim Keyboardstate#,256
Getkeyboardstate(Keyboardstate#)
status% = @Byte(Keyboardstate#,20)         status% = 1 -> Caps Lock ein      status% = 0 -> Caps Lock aus