XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage mit API GetKeyState
Wert  Bedeutung
 $01  - Linke Maustaste
 $02  - Rechte Maustaste
 $04  - Mittlere Maustaste
 $08  - Löschtaste (Pfeil)
 $09  - Tabtaste
 $0C  - Entf.
 $0D  - Entertaste
 $10  - Shift
 $11  - STRG
 $12  - Alt
 $13  - Pause
 $14  - Shift-Lock
 $1B  - Esc
 $20  - Leertaste
 $21  - Bild runter
 $22  - Bild hoch
 $23  - Ende
 $24  - Pos1 (Home)
 $25  - Cursor links
 $26  - Cursor hoch
 $27  - Cursor rechts
 $28  - Cursor runter
 $2C  - Druck
 $2D  - Einfg.
 $2E  - Entf.
 $30 - $39  - 0 bis 9
 $41 - $5A  - A bis Z
 $60 - $69  - Nummerntaste 0 bis 9
 $6A  - Multiplikationstaste
 $6B  - Additionstaste
 $6D  - Subtraktionstaste
 $6F  - Divisionstaste
 $70 - $87  - F1 bis F24
 $90  - Nummern-Lock
 $91  - Rollen
Declare Taste&,Ende%,Taste$,Taste2%,Taste2$,Taste2&
Window 0,0-640,200
Print Hallo Meister
Def @Getstate(1) !User32,GetKeyState

While @Equ(Ende%,0)

    Sleep 100
    Let Taste&=@Getstate($7B)
    Let Taste$=@Bin$(Taste&)
    Let Taste2&=@Getstate($90)
    Let Taste2$=@Bin$(Taste2&)
    Let Taste2%=@Val(@Right$(Taste2$,1))
    Drawtext 20,60,Taste$+@Space$(255)
    Drawtext 20,80,Taste2$+@Space$(255)

    If @Len(Taste$)>1

        Drawtext 20,100,Taste F12 wird Augenblicklich gedrückt!

    Else

        Drawtext 20,100,Taste F12 wird Augenblicklich nicht gedrückt!

    Endif

    If Taste2%=0

        Drawtext 20,120,Numlock Taste nicht eingerastet!

    Else

        Drawtext 20,120,Numlock Taste eingerastet!

    Endif

Wend

End