PureBoard

Verfasst: **27.03.2005 09:33**

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

Verfasst: **27.03.2005 19:43**

SetCursorPos_(x,y)

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

Mfg,
AndyX

Verfasst: **27.03.2005 20:16**

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!

Verfasst: **27.03.2005 20:19**

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)

Verfasst: **27.03.2005 23:17**

FISCHAUGE hat geschrieben:
Code: Alles auswählen
MouseButton(1)=1

Schonmal selber ausprobiert? Hat's bei dir funktioniert?

Verfasst: **28.03.2005 07:52**

Danke

Verfasst: **28.03.2005 11:15**

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

PureBoard

MAUS

MAUS