XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Keyboard-Query (TAB-Button inquire)
messagebox(this code is not run!,I n F O,4160)
end
there gives it several Opportunities:
1. reacted, faith I, only on the Mainwindow:
CLS

While 0=0

    IF %SCANKEY=9

        @messagebox(TAB-TAste watts pressed!,Info,0)
        @Global(%HWND,0)

    endif

wend

2.Possibility is for Controls and dialogs:
Declare Taste&,end%
Window 0,0-640,200
Print Hello champion
def @GetState(1) !User32,GetKeyState API function to that inquire of Keys (9=TAB)

While @equ(end%,0)

    Let Taste&=@GetState(9) function becomes called
    drawtext 100,10,@add$(@st$(TASTE&),          ) function becomes called

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

        @messagebox(The TAB-Button watts gedückt,Message,0)

    endif

wend

@messagebox(Button F12 watts gedückt,Message,0)
end
3.Möglickeit for inaktive Window in the background:
Declare Taste&,end%
Window 0,0-640,200
Print Hello champion
def @GetState(1) !User32,GetAsync    KeyState API function to that inquire of Keys (9=TAB)

While @equ(end%,0)

    Let Taste&=@GetState(9) function becomes called
    drawtext 100,10,@add$(@st$(TASTE&),          ) function becomes called

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

        @messagebox(The TAB-Button watts gedückt,Message,0)

    endif

wend

@messagebox(Button F12 watts gedückt,Message,0)
end