|
分享源码
界面截图: |
- |
是否带模块: |
调用了模块 |
备注说明: |
- |
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | dm | dmsoft | | 程序集_起点X | 整数型 | | 程序集_起点Y | 整数型 | | 程序集_屏幕宽度 | 整数型 | | 程序集_屏幕高度 | 整数型 | | 程序集_图片路径 | 文本型 | | 程序集_寻找 | 自定义寻找甲 | 0 | 程序集_记录甲 | 整数型 | | 程序集_循环标记 | 逻辑型 | | 程序集_按下左X | 整数型 | | 程序集_按下左Y | 整数型 | | 程序集_找到图片X点 | 整数型 | | 程序集_找到图片Y点 | 整数型 | |
程序集_起点X = 0 程序集_起点Y = 0 程序集_屏幕宽度 = 取屏幕宽度 ()程序集_屏幕高度 = 取屏幕高度 ()程序集_图片路径 = 取运行目录 () + “\pic\”窗口_热键注册 (_启动窗口. 取窗口句柄 (), 2, #Q键, &_按钮点鼠_被单击, 1 )清除数组 (程序集_寻找 )程序集_记录甲 = 1 程序集_循环标记 = 真 编辑框提示信息区.内容 = “”变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_找图 | 文本型 | | 0 | 计次 | 整数型 | | | 计次连几图 | 整数型 | | | 程序_延时 (1000, 0 )子程序初始化程数据 () 加入成员 (局部_找图, “征战001.bmp||左单击||18||10||1200||1”)加入成员 (局部_找图, “征战002.bmp||左单击||30||46||1000||1”)加入成员 (局部_找图, “征战003.bmp||左单击||16||9||1000||1”)加入成员 (局部_找图, “征战004.bmp||左单击||16||9||3000||1”)加入成员 (局部_找图, “征战005.bmp||左单击||18||20||2000||1”)加入成员 (局部_找图, “征战006.bmp||左单击||30||46||2000||1”)加入成员 (局部_找图, “征战007.bmp||左单击||8||8||2000||2”)加入成员 (局部_找图, “征战007-1.bmp||左单击||8||8||2000||1”)计次循环首 (取数组成员数 (局部_找图 ), 计次 )子程序添加数组 (局部_找图 [计次 ])计次循环尾 ()输出调试文本 (取数组成员数 (程序集_寻找 )) 判断循环首 (取数组成员数 (程序集_寻找 ) ≥ 程序集_记录甲 )编辑框提示信息区.内容 = “找” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + #换行符 + 编辑框提示信息区.内容 子程序找图一 (程序集_寻找 [程序集_记录甲 ])程序集_记录甲 = 程序集_记录甲 + 程序集_寻找 [程序集_记录甲 ].成员连几图 判断循环尾 ()计次循环首 (4, 计次 )程序集_记录甲 = 3 判断循环首 (取数组成员数 (程序集_寻找 ) ≥ 程序集_记录甲 )编辑框提示信息区.内容 = “找” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + #换行符 + 编辑框提示信息区.内容 子程序找图一 (程序集_寻找 [程序集_记录甲 ])程序集_记录甲 = 程序集_记录甲 + 程序集_寻找 [程序集_记录甲 ].成员连几图 判断循环尾 ()计次循环尾 ()程序集_记录甲 = 5 编辑框提示信息区.内容 = “找” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + #换行符 + 编辑框提示信息区.内容 子程序找图一 (程序集_寻找 [程序集_记录甲 ])输出调试文本 (“=====================================”)编辑框提示信息区.内容 = “找” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + #换行符 + 编辑框提示信息区.内容 子程序找图一 (程序集_寻找 [程序集_记录甲 ])编辑框提示信息区.内容 = “运行完毕!” + #换行符 + 编辑框提示信息区.内容 变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_位置 | 文本型 | | | 局部_位置数组 | 文本型 | | 0 | i | 整数型 | | | 局部_X移数 | 整数型 | | | 局部_Y移数 | 整数型 | | | 计次 | 整数型 | | | 局部_临时甲 | 整数型 | | | 局部_临时乙 | 整数型 | | | 计次连几图 | 整数型 | | |
局部_临时甲 = 1 判断循环首 (局部_临时甲 = 1 )计次循环首 (程序集_寻找 [程序集_记录甲 ].成员连几图, 计次连几图 )如果真 (局部_临时乙 = 1 )dm. MoveTo (10, 10 ) 子程序提示信息 (“正在处理” + 参数_找图.成员图片名 + “图片!”)局部_位置 = dm. FindPicE (程序集_起点X, 程序集_起点Y, 程序集_屏幕宽度, 程序集_屏幕高度, 程序集_图片路径 + 参数_找图.成员图片名, “080808”, 0.9, 0 )输出调试文本 (参数_找图.成员图片名 )输出调试文本 (局部_位置 )局部_位置数组 = 分割文本 (局部_位置, “|”, )如果 (到整数 (局部_位置数组 [1 ]) > -1 )子程序提示信息 (“找到图片:” + 局部_位置 )计次循环首 (3, i )输出调试文本 (局部_位置数组 [i ])计次循环尾 ()程序集_找到图片X点 = 到整数 (局部_位置数组 [2 ])程序集_找到图片Y点 = 到整数 (局部_位置数组 [3 ])如果真 (参数_找图.成员处理方式 = “左单击”)dm. MoveTo (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )输出调试文本 (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移 )输出调试文本 (到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )程序_延时 (800, 0 )dm. LeftClick ()输出调试文本 (“左单击”)如果真 (参数_找图.成员处理方式 = “右单击”)dm. MoveTo (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )输出调试文本 (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移 )输出调试文本 (到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )程序_延时 (800, 0 )dm. RightClick ()输出调试文本 (“右单击”)如果真 (参数_找图.成员处理方式 = “左双击”)dm. MoveTo (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )输出调试文本 (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移 )输出调试文本 (到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )程序_延时 (800, 0 )dm. LeftDoubleClick ()输出调试文本 (“左双击”)如果真 (参数_找图.成员处理方式 = “按下左键”)dm. MoveTo (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移, 到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )输出调试文本 (到整数 (局部_位置数组 [2 ]) + 参数_找图.成员相对X移 )输出调试文本 (到整数 (局部_位置数组 [3 ]) + 参数_找图.成员相对Y移 )程序_延时 (800, 0 )dm. LeftDown ()输出调试文本 (“按下左键”)如果真 (程序集_按下左X ≠ 0 或 程序集_按下左Y ≠ 0 ) 如果 (程序集_按下左X > 0 )计次循环首 (程序集_按下左X, 计次 )dm. MoveR (1, 0 )程序_延时 (10, 0 )计次循环尾 ()计次循环首 (取绝对值 (程序集_按下左X ), 计次 )dm. MoveR (-1, 0 )程序_延时 (10, 0 )计次循环尾 ()如果 (程序集_按下左Y > 0 )计次循环首 (程序集_按下左Y, 计次 )dm. MoveR (0, 1 )程序_延时 (10, 0 )计次循环尾 ()计次循环首 (取绝对值 (程序集_按下左Y ), 计次 )dm. MoveR (0, -1 )程序_延时 (10, 0 )计次循环尾 ()程序_延时 (200, 0)dm.LeftUp ()程序集_按下左X = 0 程序集_按下左Y = 0 局部_临时甲 = 2程序_延时 (参数_找图.成员等待毫秒, 0 )返回 (真)程序_延时 (100, 0 )计次循环尾 ()如果真 (局部_临时乙 > 20 )子程序提示信息 (“找不到” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + “图片。”)跳出循环 ()局部_临时乙 = 局部_临时乙 + 1程序_延时 (200, 0 )判断循环尾 ()返回 (假)变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_临时数组 | 文本型 | | 0 | 局部_临时甲 | 自定义寻找甲 | | |
局部_临时数组 = 分割文本 (参数文本型, “||”, )如果真 (取数组成员数 (局部_临时数组 ) ≠ 6 )信息框 (“添加【程序集_寻找】数组出错”, 0, , )返回 ()局部_临时甲.成员图片名 = 局部_临时数组 [1]局部_临时甲.成员处理方式 = 局部_临时数组 [2 ]局部_临时甲.成员相对X移 = 到整数 (局部_临时数组 [3 ])局部_临时甲.成员相对Y移 = 到整数 (局部_临时数组 [4 ])局部_临时甲.成员等待毫秒 = 到整数 (局部_临时数组 [5 ])局部_临时甲.成员连几图 = 到整数 (局部_临时数组 [6 ])加入成员 (程序集_寻找, 局部_临时甲 )变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_找图 | 文本型 | | 0 | 计次 | 整数型 | | | 计次连几图 | 整数型 | | | 局部_整数型个数 | 整数型 | | | 程序_延时 (1000, 0 )子程序取消聊天窗口 ()子程序初始化程数据 () 加入成员 (局部_找图, “酒店001.bmp||左单击||30||46||1000||1”)加入成员 (局部_找图, “酒店002.bmp||按下左键||5||5||1000||1”)计次循环首 (取数组成员数 (局部_找图 ), 计次 )子程序添加数组 (局部_找图 [计次 ])计次循环尾 ()局部_整数型个数 = 取数组成员数 (程序集_寻找 )输出调试文本 (局部_整数型个数 )判断循环首 (局部_整数型个数 ≥ 程序集_记录甲 )编辑框提示信息区.内容 = “找” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + #换行符 + 编辑框提示信息区.内容 如果真 (程序集_记录甲 = 2 )程序集_按下左Y = 110 子程序找图一 (程序集_寻找 [程序集_记录甲])程序集_记录甲 = 程序集_记录甲 + 程序集_寻找 [程序集_记录甲 ].成员连几图 判断循环尾 ()编辑框提示信息区.内容 = “酒店,操作完成!” + #换行符 + 编辑框提示信息区.内容 变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_找图 | 文本型 | | 0 | 计次 | 整数型 | | | 计次连几图 | 整数型 | | | 局部_位置 | 文本型 | | | 子程序初始化程数据 () 加入成员 (局部_找图, “聊天001.bmp||左单击||5||5||100||1”)加入成员 (局部_找图, “聊天001-1.bmp||左单击||5||5||100||1”)加入成员 (局部_找图, “聊天001-1.bmp||左单击||5||5||100||1”)加入成员 (局部_找图, “聊天002.bmp||不单击||5||5||100||1”)计次循环首 (取数组成员数 (局部_找图 ), 计次 )子程序添加数组 (局部_找图 [计次 ])计次循环尾 ()输出调试文本 (取数组成员数 (程序集_寻找 )) 如果 (子程序找图一 (程序集_寻找 [4 ])) 计次 = 10 计次 = 100 判断循环首 (取数组成员数 (程序集_寻找 ) ≥ 程序集_记录甲 且 计次 = 10 )编辑框提示信息区.内容 = “找” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + #换行符 + 编辑框提示信息区.内容 子程序找图一 (程序集_寻找 [程序集_记录甲 ])程序集_记录甲 = 程序集_记录甲 + 程序集_寻找 [程序集_记录甲 ].成员连几图 判断循环尾 ()编辑框提示信息区.内容 = 参数提示信息 + 到文本 (取现行时间 ()) + #换行符 + 编辑框提示信息区.内容 变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_找图 | 文本型 | | 0 | 计次 | 整数型 | | | 计次连几图 | 整数型 | | | 程序_延时 (1000, 0 )子程序初始化程数据 () 加入成员 (局部_找图, “征战001.bmp||左单击||18||10||1200||1”)计次循环首 (取数组成员数 (局部_找图 ), 计次 )子程序添加数组 (局部_找图 [计次 ])输出调试文本 (计次 )计次循环尾 ()输出调试文本 (取数组成员数 (程序集_寻找 )) 判断循环首 (取数组成员数 (程序集_寻找 ) ≥ 程序集_记录甲 )子程序提示信息 (“找图:” + 程序集_寻找 [程序集_记录甲 ].成员图片名 + “开始!”)子程序找图一 (程序集_寻找 [程序集_记录甲 ])程序集_记录甲 = 程序集_记录甲 + 程序集_寻找 [程序集_记录甲 ].成员连几图 判断循环尾 ()输出调试文本 (“继续开始”)如果 (按钮点鼠.标题 = “点”)时钟1.时钟周期 = 500 按钮点鼠.标题 = “停”按钮点鼠.标题 = “点”时钟1.时钟周期 = 0 dm. LeftClick ()窗口_热键卸载 (_启动窗口. 取窗口句柄 (), 1 )
|
评分
-
查看全部评分
|