本帖最后由 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
|