模拟鼠标点击 源码 谢谢

火狐狸软件

大家好 求一个 模拟鼠标点击的代码 （外部窗口，隐藏运行）

外部窗口的 按钮句柄已经得到   
使用
发送消息整数 (句柄, 513, 0, 0)
发送消息整数 (句柄, 514, 0, 0)
测试 不隐藏的情况有效 窗口隐藏之后无效

可能是不支持隐藏的窗口

浩瀚sky

[e].版本 2
.支持库 spec
.支持库 WebBrowser
.支持库 shellEx

.程序集 窗口程序集1
.程序集变量 坐标, 精易_坐标
.程序集变量 热键

.子程序 _按钮_开始_被单击
.局部变量 hwnd, 整数型

延迟 (5000)
hwnd ＝ FindWindowEx (FindWindowEx (FindWindowEx (网页浏览框1.取窗口句柄 (), 0, 0, 0), 0, 0, 0), 0, 0, 0)
PostMessageA (hwnd, 512, 0, 0)
PostMessageA (hwnd, 513, 0, 到数值 (编辑框_横坐标.内容) ＋ 到数值 (编辑框_纵坐标.内容) × 65536)
PostMessageA (hwnd, 514, 0, 到数值 (编辑框_横坐标.内容) ＋ 到数值 (编辑框_纵坐标.内容) × 65536)

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1
网页浏览框1.浏览 (“www.baidu.com”, , , )

热键 ＝ 注册热键 (网页浏览框1.取窗口句柄 (), 标签_横坐标.取窗口句柄 (), 0, #F4键)

.子程序 _时钟1_周期事件
.局部变量 元素名称, 文本型

坐标 ＝ 鼠标_取窗口坐标 (网页浏览框1.取窗口句柄 ())
标签_横坐标.标题 ＝ “横坐标:” ＋ 到文本 (坐标.横)
标签_纵坐标.标题 ＝ “纵坐标:” ＋ 到文本 (坐标.纵)

.子程序 _标签_横坐标_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

参数一 ＝ 热键
编辑框_横坐标.内容 ＝ 到文本 (坐标.横)
编辑框_纵坐标.内容 ＝ 到文本 (坐标.纵)

[/e]

火狐狸软件

顶起来让大家看到{:3_226:}{:3_226:}{:3_226:}

浩瀚sky

按热键将坐标记录，再点击按钮，可以自动点击，可以后台运行

火狐狸软件

liloqi8 发表于 2011-8-27 18:54
按热键将坐标记录，再点击按钮，可以自动点击，可以后台运行

打不开  版本太低 不支持 - -

浩瀚sky

guxuefeng 发表于 2011-8-27 19:17
打不开  版本太低 不支持 - -

我将代码直接写上，

qq644581568

后台的,正寻找呢.

﹏Ｂ°o╮

看看，日。