XProfan

Español

Michael
Wodrich

El API mouse_event producido una Mausklick oder una Mausbewegung.

P:L1: Flag dafür, welche Aktion ausgeführt voluntad se y cómo el Koordinaten a interpretar son =>
$8000 = El angegebenen Mauskoordinaten son absolute Koordinaten.
1 = Ratón 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 el Wheelmaus gedreht

P:L2: X-Koordinate ratón como LongInt.

P:L3: Y-Koordinate ratón como LongInt.

P:L4: Noch sin Función (0).

P:L5: Longint oder P:B5 oder 0 (null). Hier puede en Bedarf zusätzliche Daten übertragen voluntad, el el Empfänger con el API GetMessageExtraInfo auslesen kann (Kommunikation zwischen zwei Programmen).

Programmieren, das spannendste Detektivspiel der Welt.

06.07.2005 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

E.T.

Ein Ejemplo dazu:
Kompilieren Marca Separación

Def mouse_action(5) !"User32","mouse_event"
declare X&, Y&
cls
X& = (%MaxX/2)*65535/%MaxX'x-zentriert
Y& = (%MaxY/2)*65535/%MaxY'y-zentriert
mouse_action($8000 + 1, X&, Y&, 0, 0)
Print "Startposition : " + @str$(%MouseX) + " - " + @str$(%MouseY)
sleep 500
randomize

whileloop 1,10

    X& = @Rnd(%MaxX)'Zufall X-Pos.
    Y& = @Rnd(%MaxY)'Zufall y-Pos.
    print "Ziel " + @str$(&loop) + " : " + @str$(X&) + " - " + @str$(Y&)
    X& = X& * 65535 / %MaxX'Umrechnen!!
    Y& = Y& * 65535 / %MaxY'Umrechnen!!
    mouse_action($8000 + 1, X&, Y&, 0, 0)
    sleep 500

EndWhile

print "Ende mit klick ins Fenster..."
waitinput
end

Wichtig es el umrechnen el Koordinaten, siehe hierzu z.B. :
msdn: [...]

oder : [...]

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

27.11.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita