Beitrag, 15.07.2007 21:28: ;createCode()'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)endDa gibt es mehrere Möglichkeiten:1. reagiert, glaube ich, nur auf dem Hauptfenster:CLSWhile 0=0 IF %SCANKEY=9 @messagebox("TAB-TAste wurde gedrückt!","Hinweis",0) @sendkey(%HWND,0) endifwend2.Möglichkeit ist für Controls und Dialoge:Declare Taste&,Ende%Window 0,0-640,200Print "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) endifwend@messagebox("Taste F12 wurde gedückt","Message",0)end3.Möglickeit für inaktive Fenster im Hintergrund:Declare Taste&,Ende%Window 0,0-640,200Print "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) endifwend@messagebox("Taste F12 wurde gedückt","Message",0)end
Dies ist die Offlinevariante vom Thread [Tastaturabfrage (TAB-Taste abfragen)].
©2006 XProfan.Com