MAUS

[JanFredi]

Hi Leute
Wie kann man die Maus Bewegen und Klicken Lassen, mit PurePasic ferngesteuert?

[AndyX]

Code: Alles auswählen

SetCursorPos_(x,y)

Für Maustaste drücken fällt mir nichts ein.

Mfg,
AndyX

[FISCHAUGE]

Code: Alles auswählen

MouseButton(1)=1

Gaugle doch einfach Purebasic vor das der Button gedrückt wurde!
Oder mach eine If abfrage daraus das heist lass den Zeiger zuerst auf die Position fahren und sage dann PB wenn die Taste "NICHT" gedrückt wurde fürhe das und dass aus!

[125]

Leute, Es gibt schon sonen schönes CodeArchiv. Warum benutzt es keiner?

Mausklicks-emulator:

Code: Alles auswählen

;Mögliche Konstanten für das Ereignis 
#MOUSEEVENTF_MOVE = $1 
#MOUSEEVENTF_ABSOLUTE = $8000 
#MOUSEEVENTF_LEFTDOWN = $2 
#MOUSEEVENTF_LEFTUP = $4 
#MOUSEEVENTF_MIDDLEDOWN = $20 
#MOUSEEVENTF_MIDDLEUP = $40 
#MOUSEEVENTF_RIGHTDOWN = $8 
#MOUSEEVENTF_RIGHTUP = $10 


Procedure MouseEvent(Ereignis.l) 
  Mem.l=GlobalAlloc_(0,8) 
  GetCursorPos_(Mem) 
  mouse_event_(Ereignis|#MOUSEEVENTF_ABSOLUTE,PeekL(Mem)*($FFFF/GetSystemMetrics_(0)),PeekL(Mem+4)*($FFFF/GetSystemMetrics_(1)),0,GetMessageExtraInfo_()) 
  GlobalFree_(Mem) 
EndProcedure 

;Simuliert einen Klick mit der Rechten Maustaste an der aktuellen Cursorposition 
MouseEvent(#MOUSEEVENTF_RIGHTDOWN) 
MouseEvent(#MOUSEEVENTF_RIGHTUP) 

MausPosition:

Code: Alles auswählen

SetCursorPos_(x,y)

[freedimension]

Code: Alles auswählen

MouseButton(1)=1

Schonmal selber ausprobiert? Hat's bei dir funktioniert?

[JanFredi]

Danke

[FISCHAUGE]

Ok sorry hatte mich da verguckt geht ja nur als aktion mousebutton(1) gedrückt beenden!
Aber danke für deinen Hinweis!

Code: Alles auswählen

Until MouseButton(1) Or MouseButton(2)
End