| | | |

2024年7月3日

摘要： procedure TForm6.Button79Click(Sender: TObject); begin setCursorPos(900,620) ; //点输入密码处 mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。 mouse_ev 阅读全文

posted @ 2024-07-03 18:33 yehuiyan 阅读(0) 评论(0) 推荐(0) 编辑

在delphi用移动鼠标左键配合shift的方法选择部分文字

摘要： procedure TForm1.ButtonPen1Click(Sender: TObject); begin SetCursorPos(694, 352); //设置开始的位置。 Sleep(300); // mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 阅读全文

posted @ 2024-07-03 18:27 yehuiyan 阅读(8) 评论(0) 推荐(0) 编辑