- 跳转到标记 开始交易
- 条件结束
- 条件结束
- 子程序结束
- 子程序 交易请求检查xp
- 从左上到右下查找图片 "Attachment:\是.bmp",把找到的坐标保存到 (jjqqX, jjqqY),指定区域(左:0 上:0 右:640 下:640),相似度 0.9
- 如果 jjqqX > 0 并且 jjqqY > 0 则
- (鼠标)移动到 (jjqqx, jjqqy)
- 延时 50 毫秒
- (鼠标)左键单击, 1次
- 延时 500 毫秒
- (鼠标)移动到 (5, 5)
- 延时 3000 毫秒
- 调用 确认交易框存在
- 如果 jyzt1 = 0 并且 jyzt2 = 0 则
- 跳转到标记 开始交易(子程序 交易请求检查xp)
- 条件结束
- 条件结束
- 子程序结束
- (语句无法识别,可能有错误): Sub 交易请求检查2//找点确定
- 延时 100 毫秒
- 令 jycx1 = dm.CmpColor(537,285,"ffffff-000000",0.9)
- 令 jycx2 = dm.CmpColor(556,290,"ffffff-000000",0.9)
- 令 jycx3 = dm.CmpColor(518,404,"ddc58d-000000",0.9)
- 弹出窗口 jycx1
- 如果 jycx1 = 0 并且 jycx2 = 0 并且 jycx3 = 0 则
- (鼠标)移动到 (518, 404)
- 延时 400 毫秒
- (鼠标)左键单击, 2次
- 条件结束
- 延时 500 毫秒
- (鼠标)移动到 (5, 5)
- 延时 3000 毫秒
- 调用 确认交易框存在
- 如果 jyzt1 = 0 并且 jyzt2 = 0 则
- 跳转到标记 开始交易
- 条件结束
- 子程序结束
- 子程序 确认交易框存在
- 令 jyzt1 = dm.CmpColor(166,121,"ffffff-000000",0.9)
- 令 jyzt2 = dm.CmpColor(303,123,"ffed8d-000000",0.9)
- 子程序结束
- 子程序 确认交易框存在xp
- 从左上到右下查找图片 "Attachment:\交易框.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:644 下:644),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 令 jyzt1 = 0
- 令 jyzt2 = 0
- 条件结束
- 子程序结束
- 子程序 输入金币7
- (语句无法识别,可能有错误): FindPic 176,270,217,321,"Attachment:\金币.bmp",0.9,jbX,jbY //金币的坐标
- 如果 jbX > 0 并且 jbY > 0 则
- (鼠标)移动到 (jbx, jby)
- 延时 150 毫秒
- (鼠标)左键单击, 1次
- 延时 55 毫秒
- (鼠标)移动到 (6, 5)
- 条件结束
- 标记 a1(子程序 输入金币7)
- (语句无法识别,可能有错误): jbs = dm.Ocr(158, 264, 295, 303, "ffe3ab-000000", 1.0) //再次输入时确保金币框里边没有钱
- 如果 jbs > 0 则
- 注释:jbs确保再次输入时 金币框里数字为0
- 条件结束
- 调用 Window.Active(Hwnd)
- (键盘)按 "BackSpace" 键, 2次
- 延时 20 毫秒
- (语句无法识别,可能有错误): Goto a1 //对金币框进行初始 回到标记a1
- 条件结束
- 循环 6 次
- (键盘)按 "BackSpace" 键, 1次
- 延时 50 毫秒
- 循环结束
- 令 i = 1
- 循环 len(zj) 次
- 令 anjian = Mid(zj,i,1)
- (键盘)按下 asc(anjian) 键
- 延时 20 毫秒
- (键盘)弹起 asc(anjian) 键
- 令 i = i + 1
- 延时 50 毫秒
- (语句无法识别,可能有错误): Next //输入钱数
- 循环当 1 时
- 令 jbdqx = 0
- 令 jbqdy = 0
- 从左上到右下查找图片 "Attachment:\金币确定.bmp",把找到的坐标保存到 (jbqdX, jbqdY),指定区域(左:135 上:261 右:235 下:330),相似度 0.9
- 如果 jbqdX > 0 并且 jbqdY > 0 则
- (鼠标)移动到 (jbqdX, jbqdY)
- 注释:MessageBox "zhaodao"
- 延时 300 毫秒
- (鼠标)左键单击, 1次
- 延时 200 毫秒
- (鼠标)移动到 (5, 5)
- 延时 300 毫秒
- 条件结束
- 令 jbdqx = 0
- 令 jbqdy = 0
- 从左上到右下查找图片 "Attachment:\金币确定.bmp",把找到的坐标保存到 (jbqdX, jbqdY),指定区域(左:135 上:261 右:235 下:330),相似度 0.9
- 如果 jbdqx > 0 并且 jbqdy > 0 则
- 否则
- 跳出循环