易语言-模拟鼠标点击

.版本 2
.支持库 spec

.程序集 窗口程序集1
.程序集变量 程序集_捕获鼠标, 逻辑型
.程序集变量 程序集_窗口句柄, 整数型
.程序集变量 程序集_控件句柄, 整数型
.程序集变量 点击次数, 整数型

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

图片框_捕获鼠标.禁止 ＝ 假
图片框_捕获鼠标.鼠标指针 ＝ #手型

.子程序 _图片框_捕获鼠标_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

程序集_控件句柄 ＝ 图片框_捕获鼠标.取窗口句柄 ()
程序集_捕获鼠标 ＝ 真
图片框_捕获鼠标.鼠标指针 ＝ #精易鼠标
图片框_捕获鼠标.图片 ＝ {  }
处理事件 ()
SetCapture (图片框_捕获鼠标.取窗口句柄 ())

.子程序 _图片框_捕获鼠标_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (程序集_捕获鼠标)
    ReleaseCapture ()
    程序集_捕获鼠标 ＝ 假
    图片框_捕获鼠标.鼠标指针 ＝ #手型
    图片框_捕获鼠标.图片 ＝ #精易鼠标

.如果真结束

.子程序 _图片框_捕获鼠标_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (程序集_捕获鼠标)
    程序集_窗口句柄 ＝ WindowFromPoint (取鼠标水平位置 (), 取鼠标垂直位置 ())
    取窗口信息 ()
.如果真结束

.子程序 取窗口信息
.局部变量 窗口坐标, 精易_坐标

处理事件 ()
编辑框_窗口句柄.内容 ＝ 到文本 (程序集_窗口句柄)
编辑框_窗口标题.内容 ＝ 窗口_取标题 (程序集_窗口句柄)
窗口坐标 ＝ 鼠标_取窗口坐标 (程序集_窗口句柄)
编辑框_X.内容 ＝ 到文本 (窗口坐标.横)
编辑框_Y.内容 ＝ 到文本 (窗口坐标.纵)

.子程序 _时钟1_周期事件
.局部变量 句柄, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型

句柄 ＝ 到整数 (编辑框_窗口句柄.内容)
X ＝ 到整数 (编辑框_X.内容)
Y ＝ 到整数 (编辑框_Y.内容)
调试输出 (SendMessageA整数 (句柄, 513, 1, X ＋ 65536 × Y))  ' ’鼠标左键按下）
调试输出 (SendMessageA整数 (句柄, 514, 0, X ＋ 65536 × Y))  ' ’鼠标左键放开

.子程序 _按钮1_被单击

点击次数 ＝ 点击次数 ＋ 1
时钟1.时钟周期 ＝ 选择 (点击次数 ％ 2 ＝ 1, 到整数 (编辑框1.内容), 0)
按钮1.标题 ＝ 选择 (点击次数 ％ 2 ＝ 1, “点击停止”, “点击开始”)

代码查看资源拿