XProfan

 $H Messages.ph
 $H Windows.ph
Var Ende& = 0
UserMessages ~wm_hotkey
cls
~RegisterHotkey(%hwnd,1,0,65)a
~RegisterHotkey(%hwnd,2,~MOD_SHIFT,65)A
~RegisterHotkey(%hwnd,3,~MOD_SHIFT | ~MOD_ALT | ~MOD_CONTROL | ~MOD_WIN,65)A für 5 Finger

WhileNot Ende&

    waitinput

    Select %UMessage

        Caseof ~wm_hotkey

        Select &uwParam

            Caseof 1

            Print a

            Caseof 2

            Print A

            Caseof 3

            Print 5 Finger-A

        EndSelect

    EndSelect

EndWhile

end

Var Ende& = 0
cls
AddHotKey 1,65,0 a
AddHotKey 2,65,1 A = Shift a
AddHotKey 3,65,7 A für 4 Finger = Shift/Strg/Alt a

WhileNot Ende&

    waitinput

    Select %MenuItem

        Caseof 1

        Print a

        Caseof 2

        Print A

        Caseof 3

        Print 4 Finger-A

    EndSelect

EndWhile

end