XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Tastaturabfrage (TAB-Taste abfragen)
messagebox(Dieser Code ist nicht lauffähig!,I N F O,4160)
end
Da gibt es mehrere Möglichkeiten:
1. reagiert, glaube ich, nur auf dem Hauptfenster:
CLS

While 0=0

    IF %SCANKEY=9

        @messagebox(TAB-TAste wurde gedrückt!,Hinweis,0)
        @sendkey(%HWND,0)

    endif

wend

2.Möglichkeit ist per Controls und Dialoge:
Declare Taste&,Ende%
Window 0,0-640,200
Print Hallo Meister
def @GetState(1) !User32,GetKeyState API Funktion zum Abfragen von Tasten (9=TAB)

While @equ(Ende%,0)

    Let Taste&=@GetState(9) Funktion wird aufgerufen
    drawtext 100,10,@add$(@str$(TASTE&),          ) Funktion wird aufgerufen

    If @and(@neq(Taste&,0),@neq(Taste&,1))

        @messagebox(Die TAB-Taste wurde gedückt,Message,0)

    endif

wend

@messagebox(Taste F12 wurde gedückt,Message,0)
end
3.Möglickeit per inaktive Fenster im Hintergrund:
Declare Taste&,Ende%
Window 0,0-640,200
Print Hallo Meister
def @GetState(1) !User32,GetAsync    KeyState API Funktion zum Abfragen von Tasten (9=TAB)

While @equ(Ende%,0)

    Let Taste&=@GetState(9) Funktion wird aufgerufen
    drawtext 100,10,@add$(@str$(TASTE&),          ) Funktion wird aufgerufen

    If @and(@neq(Taste&,0),@neq(Taste&,1))

        @messagebox(Die TAB-Taste wurde gedückt,Message,0)

    endif

wend

@messagebox(Taste F12 wurde gedückt,Message,0)
end