XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage (3)
Window 0,0-640,200
Print Hallo Meister, jetzt bitte Fenster verkleinern oder Focus wechseln..
Declare Ende%,Zähler%
Festlegung der F2 Taste
Let Zähler%=$71
Diese API Funktion brauchst du
def @GetAsyncKeyState(1) !User32,GetAsyncKeyState
Zurücksetzen
@GetAsyncKeyState(Zähler%)

Whilenot Ende%

    If @GetAsyncKeyState(Zähler%)<>0

        @messagebox(Du hast F2 gedrückt!,Hallo Meister,0)
        let ende%=1

    endif

wend

end