XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Mausklick erzeugen
Def @Mouse_event(5)!User32,mouse_event
Die API mouse_event erzeugt einen Mausklick oder eine Mausbewegung.
L1(Param.1 Longint ): Flag dafür, welche Aktion ausgeführt werden soll und wie die Koordinaten zu interpretieren sind
=> $8000 = Die angegebenen Mauskoordinaten sind absolute Koordinaten.
=> 1    = Maus wurde bewegt
=> 2    = linker Mausbutton gedrückt
=> 4    = linker Mausbutton losgelassen
=> 8    = rechter Mausbutton gedrückt
=> $10  = rechter Mausbutton losgelassen
=> $20  = mittlerer Mausbutton gedrückt
=> $40  = mittlerer Mausbutton losgelassen
=> $0800 = Am Rad der Wheelmaus gedreht
L2(Param.2 Longint ): X-Koordinate der Maus als LongInt.
L3(Param.3 Longint ): Y-Koordinate der Maus als LongInt.
L4(Param.4 Longint ): Noch ohne Funktion (0).
L5(Param.5 Longint ): Longint oder B5(Param.5 Bereich ) oder 0 (null). Hier können bei Bedarf
zusätzliche Daten übertragen werden, die der Empfänger mit der API GetMessageExtraInfo auslesen
kann (Kommunikation zwischen zwei Programmen).
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