XProfan

Window 0,0-640,200
Print "Hallo Meister, jetzt bitte Fenster verkleinern oder Focus wechseln."
Print "Und dann F2 oder eine Maustaste drücken..."
Declare Ende%,Handle%
Def @GetAsyncKeyState(1) !"User32","GetAsyncKeyState"
Zurücksetzen
@GetAsyncKeyState($71) F2-Taste
@GetAsyncKeyState(2) rechte Maustast
@GetAsyncKeyState(65) Taste a

Whilenot Ende%

    Sleep 10

    If @GetAsyncKeyState($71)<>0

        @destroywindow(Handle%)
        LET Handle%=@createdialog(@getactivewindow(),"F2!",50,50,400,0)

    elseIf @GetAsyncKeyState(2)<>0

        @destroywindow(Handle%)
        LET Handle%=@createdialog(@getactivewindow(),"Maustaste rechts!",0,0,400,0)

    elseIf @GetAsyncKeyState(65)<>0

        @destroywindow(Handle%)
        LET Handle%=@createdialog(@getactivewindow(),"Taste a!",0,0,400,0)

    endif

    IF %MENUITEM=-2

        setmenuitem 0
        @destroywindow(Handle%)

    endif

wend

end

windowtitle "iF's lil scankey ^^"
cls
long y

do {

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

ont>