XProfan

DEF @keybd_event(4)!"User32","keybd_event"
WINDOWSTYLE 31
Windowtitle "Tastaturdruck in Editfeld"
WINDOW 0,0-640,400
DECLARE EDIT&,SEND&
LET EDIT&=@CREATEMULTIEDIT(%HWND,"",10,10,300,300)
LET SEND&=@CREATEBUTTON(%HWND,"Taste a drücken",10,320,150,30)

While 0=0

    Waitinput

    IF @getfocus(SEND&)

        @setfocus(EDIT&)
        @keybd_event(65,0,0,0)
        @keybd_event(65,0,2,0)

    endif

wend