Mausklicks usw.

[cxAlex]

Weils immer wieder gefragt wird hier ein paar Proceduren um Mausklicks systemweit zu simulieren:

Code: Alles auswählen

Procedure Left_Click()
  Protected xy.point
  GetCursorPos_(xy.point)
  mouse_event_(#MOUSEEVENTF_LEFTDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_LEFTUP, xy\x, xy\y, 0, 0)
EndProcedure

Procedure Left_DoubleClick()
  Protected xy.point
  GetCursorPos_(xy.point)
  mouse_event_(#MOUSEEVENTF_LEFTDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_LEFTUP, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_LEFTDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_LEFTUP, xy\x, xy\y, 0, 0)
EndProcedure

Procedure Right_Click()
  Protected xy.point
  GetCursorPos_(xy.point)
  mouse_event_(#MOUSEEVENTF_RIGHTDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_RIGHTUP, xy\x, xy\y, 0, 0)
EndProcedure

Procedure Right_DoubleClick()
  Protected xy.point
  GetCursorPos_(xy.point)
  mouse_event_(#MOUSEEVENTF_RIGHTDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_RIGHTUP, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_RIGHTDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_RIGHTUP, xy\x, xy\y, 0, 0)
EndProcedure

Procedure Middle_Click()
  Protected xy.point
  GetCursorPos_(xy.point)
  mouse_event_(#MOUSEEVENTF_MIDDLEDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_MIDDLEUP, xy\x, xy\y, 0, 0)
EndProcedure

Procedure Middle_DoubleClick()
  Protected xy.point
  GetCursorPos_(xy.point)
  mouse_event_(#MOUSEEVENTF_MIDDLEDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_MIDDLEUP, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_MIDDLEDOWN, xy\x, xy\y, 0, 0)
  mouse_event_(#MOUSEEVENTF_MIDDLEUP, xy\x, xy\y, 0, 0)
EndProcedure

[Andesdaf]

schick