精易论坛

标题: 简单版鼠标连点器 [打印本页]

作者: foxiaoqiang1810    时间: 2024-5-28 00:12
标题: 简单版鼠标连点器
本帖最后由 foxiaoqiang1810 于 2024-5-28 00:15 编辑

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应用接口支持库



sshot-1.png (46.71 KB, 下载次数: 1)

sshot-1.png

鼠标连点.zip

1.61 MB, 下载次数: 34

成品


作者: a759303076    时间: 2024-5-28 01:12
鼠标连点.zip
作者: pshq123    时间: 2024-5-28 08:43

作者: yzhzhp1    时间: 2024-5-28 09:05

作者: 骑着白马非王子    时间: 2024-5-30 19:12
怎么暂停呢,一直在点.
作者: foxiaoqiang1810    时间: 2024-5-30 22:53
骑着白马非王子 发表于 2024-5-30 19:12
怎么暂停呢,一直在点.

点暂停就行了,用的循环有延迟,会多运行一次
作者: foxiaoqiang1810    时间: 2024-6-18 02:39
更新了一下,可以连续点击不同的位置,增加了快捷键。

1.png (46.1 KB, 下载次数: 0)

1.png

作者: bingqer    时间: 2024-7-26 23:52
学习中,一直在找方法




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4