| |
|
|
Michael Wodrich | qui API mouse_event erzeugt une Mausklick ou bien une Mausbewegung.
P:L1: Flag pour, quelle Aktion fonctionnement volonté soll et comment qui Koordinaten trop interpretieren sommes => $8000 = qui angegebenen Mauskoordinaten sommes absolute Koordinaten. 1 = souris 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 roue qui Wheelmaus gedreht
P:L2: X-Koordinate qui souris comme LongInt.
P:L3: Y-Koordinate qui souris comme LongInt.
P:L4: encore sans Funktion (0).
P:L5: Longint ou bien P:B5 ou bien 0 (zéro). ici peut chez besoin zusätzliche données übertragen volonté, qui qui Empfänger avec qui API GetMessageExtraInfo auslesen peux (communication entre deux Programmen).
|
|
|
| Programmieren, das spannendste Detektivspiel der Welt. | 06.07.2005 ▲ |
|
|
|
|
E.T. | un Beispiel en supplément: KompilierenMarqueSéparationDef 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
important ist cela umrechnen qui Koordinaten, siehe hierzu z.B. : msdn: [...] ou bien : [...] |
|
|
| 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 ▲ |
|
|
|