Click and Mouse Up delayed events
- To test whether the click at 1:1 works or not. Mouse UP should be done before moving back
This commit is contained in:
parent
5e0537cb20
commit
f321a6ebea
3 changed files with 46 additions and 44 deletions
Binary file not shown.
2
main.pas
2
main.pas
|
|
@ -97,6 +97,8 @@ begin
|
||||||
// Simulate mouse button press and release
|
// Simulate mouse button press and release
|
||||||
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 1, 1, 0);
|
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 1, 1, 0);
|
||||||
Sleep(150);
|
Sleep(150);
|
||||||
|
mouse_event(MOUSEEVENTF_LEFTUP, 0, 1, 1, 0);
|
||||||
|
Sleep(50);
|
||||||
mouse_event(MOUSEEVENTF_LEFTUP, 0, 1, 1, 0);
|
mouse_event(MOUSEEVENTF_LEFTUP, 0, 1, 1, 0);
|
||||||
// Get back to position
|
// Get back to position
|
||||||
mouse.CursorPos := currentPos ;
|
mouse.CursorPos := currentPos ;
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue