模拟键盘动作, 模拟鼠标动作
2018-01-16 11:07
190 查看
keybd_event(TextToShortCut('ctrl+s'), 0, 0, 0);
LockWindowUpdate(Self.Handle);
try
GetCursorPos(OldPt);
NewPt:=Point(0, 0);
Windows.ClientToScreen(Application.Handle, NewPt);
SetCursorPos(NewPt.X, NewPt.Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X, NewPt.Y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X, NewPt.Y, 0, 0);
SetCursorPos(NewPt.X-10, NewPt.Y-10);
mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X-10, NewPt.Y-10, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X-10, NewPt.Y-10, 0, 0);
SetCursorPos(OldPt.X, OldPt.Y);
finally
LockWindowUpdate(0);
end;
LockWindowUpdate(Self.Handle);
try
GetCursorPos(OldPt);
NewPt:=Point(0, 0);
Windows.ClientToScreen(Application.Handle, NewPt);
SetCursorPos(NewPt.X, NewPt.Y);
mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X, NewPt.Y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X, NewPt.Y, 0, 0);
SetCursorPos(NewPt.X-10, NewPt.Y-10);
mouse_event(MOUSEEVENTF_LEFTDOWN, NewPt.X-10, NewPt.Y-10, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, NewPt.X-10, NewPt.Y-10, 0, 0);
SetCursorPos(OldPt.X, OldPt.Y);
finally
LockWindowUpdate(0);
end;
相关文章推荐
- 使用UInput模拟系统键盘鼠标动作
- 使用UInput模拟系统键盘鼠标动作 UInput driver分析
- python之模拟鼠标键盘动作
- linux下python之模拟鼠标键盘动作具体实现
- 用pywin32实现windows模拟鼠标及键盘动作
- 使用UInput模拟系统键盘鼠标动作 UInput driver分析
- 使用UInput模拟系统键盘鼠标动作
- 使用SendInput模拟键盘和鼠标动作
- VFP调用API实现代码模拟鼠标.键盘动作
- Python-模拟鼠标键盘动作
- keybd_event和mouse_event完全彻底细致的模拟鼠标键盘所有动作
- 2011-7 模拟鼠标键盘动作
- 使用UInput模拟系统键盘鼠标动作
- python之模拟鼠标键盘动作具体实现
- python之模拟鼠标键盘动作具体实现
- Python-模拟鼠标键盘动作
- VFP调用API实现代码模拟鼠标.键盘动作
- 在windows下pywin32模拟鼠标及键盘动作
- py库: pyautogui (自动测试模块,模拟鼠标、键盘动作)