XProfan

DEF @mouse_event(5)!"User32","mouse_event"
Windowstyle 31
Windowtitle "Mausklick erzeugen"
Window 0,0-640,400
Declare Mausklick&,Y&,x&
Print "Irgendeine Taste drücken..."

While 0=0

    waitkey
    LET Y&=-(%MAXY+20)
    LEt X&=%MAXX-5
    @mouse_event(1+$8000,x&,Y&,0,0) Maus bewegen
    @mouse_event(2,0,0,0,0) Maus drücken
    @mouse_event(4,0,0,0,0) Maus loslassen

Wend