Mausklicks usw.
Verfasst: 14.04.2009 12:22
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