简单版鼠标连点器

foxiaoqiang1810

TX哈勃分析系统-已完成 (qq.com)简单写了一下用的大漠（注：取的是桌面句柄）
本来想用精易模块写的，命令有问题无法使用，改用大漠。
鼠标按住图片拖动获取坐标点击有：左键单击，左键双击，右键单击
延迟有：毫秒，秒，分，时

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
x	整数型
y	整数型
z	整数型
dm	大漠类

子程序名	返回值类型	公开	备 注
_开始点击_被单击

z ＝ 1
判断循环首 (z ＝ 1)
如果 (单选框_后台.选中 ＝ 真)
dm.后台_绑定窗口 (窗口_取桌面句柄 (), “normal”, “windows3”, “normal”, 0)
dm.后台_绑定窗口 (窗口_取桌面句柄 (), “normal”, “normal”, “normal”, 0)

如果真 (组合框2.现行选中项 ＝ 0)
程序_延时 (到整数 (编辑框3.内容))
如果真 (组合框2.现行选中项 ＝ 1)
程序_延时 (到整数 (编辑框3.内容), 1)
如果真 (组合框2.现行选中项 ＝ 2)
程序_延时 (到整数 (编辑框3.内容), 2)
如果真 (组合框2.现行选中项 ＝ 3)
程序_延时 (到整数 (编辑框3.内容), 3)

如果真 (组合框1.现行选中项 ＝ 0)
dm.鼠标_移动 (x, y)
dm.鼠标_左键单击 ()

如果真 (组合框1.现行选中项 ＝ 1)
dm.鼠标_移动 (x, y)
dm.鼠标_双击左键 ()

如果真 (组合框1.现行选中项 ＝ 2)
dm.鼠标_移动 (x, y)
dm.鼠标_右键单击 ()

判断循环尾 ()
调试输出 (x, y)

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

图片框1.图片 ＝ {  }
捕获鼠标 (图片框1.取窗口句柄 ())

子程序名	返回值类型	公开	备 注
_图片框1_鼠标左键被放开	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
编辑框1.内容 ＝ 到文本 (x)
编辑框2.内容 ＝ 到文本 (y)
释放鼠标 ()
图片框1.图片 ＝ #图片1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

组合框1.现行选中项 ＝ 0
组合框2.现行选中项 ＝ 0
单选框_后台.选中 ＝ 真
皮肤_加载 ( #皮肤_中国风 )

子程序名	返回值类型	公开	备 注
_暂停点击_被单击

z ＝ 0

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 x, 整数型<br /> .程序集变量 y, 整数型<br /> .程序集变量 z, 整数型<br /> .程序集变量 dm, 大漠类<br /> <br /> .子程序 _开始点击_被单击<br /> <br /> z ＝ 1<br /> .判断循环首 (z ＝ 1)<br />     .如果 (单选框_后台.选中 ＝ 真)<br />         dm.后台_绑定窗口 (窗口_取桌面句柄 (), “normal”, “windows3”, “normal”, 0)<br />     .否则<br />         dm.后台_绑定窗口 (窗口_取桌面句柄 (), “normal”, “normal”, “normal”, 0)<br />     .如果结束<br /> <br />     .如果真 (组合框2.现行选中项 ＝ 0)<br />         程序_延时 (到整数 (编辑框3.内容))<br />     .如果真结束<br />     .如果真 (组合框2.现行选中项 ＝ 1)<br />         程序_延时 (到整数 (编辑框3.内容), 1)<br />     .如果真结束<br />     .如果真 (组合框2.现行选中项 ＝ 2)<br />         程序_延时 (到整数 (编辑框3.内容), 2)<br />     .如果真结束<br />     .如果真 (组合框2.现行选中项 ＝ 3)<br />         程序_延时 (到整数 (编辑框3.内容), 3)<br />     .如果真结束<br /> <br /> <br />     .如果真 (组合框1.现行选中项 ＝ 0)<br />         dm.鼠标_移动 (x, y)<br />         dm.鼠标_左键单击 ()<br />     .如果真结束<br /> <br />     .如果真 (组合框1.现行选中项 ＝ 1)<br />         dm.鼠标_移动 (x, y)<br />         dm.鼠标_双击左键 ()<br />     .如果真结束<br /> <br />     .如果真 (组合框1.现行选中项 ＝ 2)<br />         dm.鼠标_移动 (x, y)<br />         dm.鼠标_右键单击 ()<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> <br /> 调试输出 (x, y)<br /> <br /> .子程序 _图片框1_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> 图片框1.图片 ＝ {  }<br /> 捕获鼠标 (图片框1.取窗口句柄 ())<br /> <br /> .子程序 _图片框1_鼠标左键被放开, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> x ＝ 取鼠标水平位置 ()<br /> y ＝ 取鼠标垂直位置 ()<br /> 编辑框1.内容 ＝ 到文本 (x)<br /> 编辑框2.内容 ＝ 到文本 (y)<br /> 释放鼠标 ()<br /> 图片框1.图片 ＝ #图片1<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 组合框1.现行选中项 ＝ 0<br /> 组合框2.现行选中项 ＝ 0<br /> 单选框_后台.选中 ＝ 真<br /> 皮肤_加载 (#皮肤_中国风)<br /> <br /> .子程序 _暂停点击_被单击<br /> <br /> z ＝ 0

foxiaoqiang1810

更新了一下，可以连续点击不同的位置，增加了快捷键。

bingqer

学习中，一直在找方法

foxiaoqiang1810

骑着白马非王子 发表于 2024-5-30 19:12
怎么暂停呢，一直在点.

点暂停就行了，用的循环有延迟，会多运行一次

骑着白马非王子

怎么暂停呢，一直在点.

yzhzhp1

pshq123

a759303076

鼠标连点.zip