鱼C论坛

 找回密码
 立即注册
查看: 2441|回复: 1

[技术交流] delphi 模拟鼠标点击

[复制链接]
发表于 2017-2-19 01:29:53 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
首先我们需要获取按钮相对于软件窗口的位置  

var
pt: TPoint;                                        //用来存放坐标


GetCursorPos(pt);                              //取得鼠标坐标

pt := ScreenToClient(pt);                   //把屏幕坐标转换成相对于软件窗口的坐标

edt1.text:=pt.x
edt2.text:=pt.y                                    //显示出来

这时我们已经获取按钮相对于主程序的位置了 接下来就是模拟点击


我们把获取到的位置转换成屏幕坐标(鼠标坐标)                  //这么做的目的主要是为了兼容不同宽度的屏幕

var
pt:TPoint;

pt.x:=edt1.text;
pt.y:=edt2.text;

ClientToScreen(pt);                                                              //相对于软件窗口坐标转屏幕坐标

SetCursorPos(pt.x,pt.y);                                                      //实现鼠标的移动     闪现     如果不想使用者看出端倪还可以闪现回来

mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);//模拟按下鼠标左键。

mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);//模拟放开鼠标左键。

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2017-2-19 16:39:57 | 显示全部楼层
不错,学习到了。。收藏一下。
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 12:39

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表