|

分享源码
界面截图: |
- |
是否带模块: |
调用了模块 |
备注说明: |
- |
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 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 )
|
评分
-
查看全部评分
|