XProfan

Schleife:
print %scankey  Der Scancode (virtueller Code) der zuletzt gedrückten Taste.
print %key  Der ANSI-Code der zuletzt gedrückten Taste.
waitkey
goto Schleife

goto Schleife

Declare Ende%
CLS

WhileNot Ende%

    waitkey
    print %scankey
    print %key

EndWhile

windowtitle iFs lil scankey ^^
cls
long y

while 1 {

    locate 1,1
    y:=%scankey
    print y,=,GetAsyncKeyState(y),

}

Def GetASyncKeyState(1) !USER32 , GetASyncKeyState
declare k%
WindowTitle iFs lil ScanKey  edited by Nico
cls

while 1

    waitkey
    locate 1 , 1
    k% = %ScanKey
    print k%, = ,GetASyncKeyState((k%);

wend

PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Darf auch im Profan-Homepage-Form von  Lidos-Berlin veröffentlicht werden
Prüfen ob eine Taste gedrückt wurde mit dem KeyCode
oder Null für nichts gedrückt als Rückgabe
Benutzt WM_CHAR (= Message $0102)
Getestet ab 6.1-NT
Def KeyPressed(0) If(Equ(%message,$0102),&wparam,0)
Beispiel
Cls
Declare key%

While Neq(key%,27)

    Let key% = KeyPressed()
    Locate 1,1
    Print key%,

Wend