IsPressed

[tempman]

#include <misc.au3>
$dll = DllOpen("user32.dll")
While 1
    If _IsPressed("10", $dll) And _IsPressed("41", $dll) Then _KeyPress('A')    ; SHIFT + a
    If _IsPressed("14", $dll) And _IsPressed("41", $dll) Then _KeyPress('A')    ; CAPS LOCK + a
    If _IsPressed("41", $dll) Then _KeyPress('a')                               ; a
    Sleep(20)
WEnd
DllClose($dll)
Func _KeyPress($WhatIsPressed)
MsgBox(64, "You pressed:", $WhatIsPressed)
EndFunc

Is there any other simpler solution?

[guinness]

Not that I can think of! Maybe this...

#include <Misc.au3>

Global $DLL = DllOpen("user32.dll")

While 1
    If _IsPressed("41", $DLL) And (_IsPressed("10", $DLL) Or _IsPressed("14", $DLL)) Then _KeyPress('A') ; CapsLock Or Shift + A
    If _IsPressed("41", $DLL) Then _KeyPress('A') ; Only A
    Sleep(20)
WEnd
DllClose($DLL)

Func _KeyPress($WhatIsPressed)
    MsgBox(64, "You pressed:", $WhatIsPressed)
EndFunc   ;==>_KeyPress

[tempman]

If CapsLock and 'a' is pressed, $WhatIsPressed return A

but

If CapsLock is ON and 'a' is pressed, $WhatIsPressed return a

How that can be solved?

[guinness]

Use this to check if CapsLock is On or Off. Plus, look at Send() in the HelpFile! A Simple Search also found >>

Func _IsCapsLockOn()
    Local $gl_Return
    $gl_Return = DllCall("user32.dll", "long", "GetKeyState", "long", 0x14) ; 0 = OFF & 1 = ON
    Return $gl_Return[0]
EndFunc   ;==>_IsCapsLockOn

Edited January 21, 2011 by guinness