- 令 jyY = 0
- 令 jjqqX = 0
- 令 jjqqY = 0
- 令 qrx = 0
- 令 qry = 0
- (鼠标)移动到 (36, 429)
- (鼠标)左键单击, 1次
- (语句无法识别,可能有错误): FindPic 113,387,260,436,"Attachment:\交易.bmp",0.9,jyX,jyY // 正确的坐标
- 从左上到右下查找图片 "Attachment:\是.bmp",把找到的坐标保存到 (jjqqX, jjqqY),指定区域(左:213 上:130 右:417 下:350),相似度 0.9
- 从左上到右下查找图片 "Attachment:\金币确定.bmp",把找到的坐标保存到 (qrX, qrY),指定区域(左:199 上:293 右:439 下:348),相似度 0.9
- 调用 确认交易框存在
- 如果 jyx > 0 并且 jyy > 0 则
- (鼠标)移动到 (jyx + 5, jyy + 5)
- 延时 200 毫秒
- (鼠标)左键单击, 1次
- 否则如果 jjqqx > 0 并且 jjqqy > 0 则
- (鼠标)移动到 (jjqqx + 5, jjqqy + 5)
- 注释:MessageBox "jixu"
- 延时 150 毫秒
- (鼠标)左键单击, 1次
- 否则如果 qrx > 0 并且 qry > 0 则
- 调用 日志
- (语句无法识别,可能有错误): Call lib.图像.无限屏幕截图(199,119,442,386,jtlj,aa) //截图并保存 ,坐标正确
- (鼠标)移动到 (qrX + 2, qrY + 2)
- 延时 200 毫秒
- (鼠标)左键单击, 2次
- 令 sDate = Sys.GetDateTime()
- 注释:call plugin。file 是记录的日志
- 调用 取消所有
- 跳转到标记 开始(子程序 确认交易)
- 否则如果 jyzt1 < 0 并且 jyzt2 < 0 则
- 调用 取消所有
- 跳转到标记 开始(子程序 确认交易)
- 条件结束
- 延时 500 毫秒
- 令 i1 = i1 + 1
- 如果 i1 > 42 则
- 调用 取消所有
- 跳转到标记 开始(子程序 确认交易)
- 条件结束
- 循环结束
- 注释:MessageBox "xunhuan"
- 循环结束
- 子程序结束
- 子程序 取消所有
- 令 jsX = 0
- 令 jsY = 0
- (键盘)按 "Esc" 键, 1次
- 延时 30 毫秒
- (键盘)按 "Esc" 键, 1次
- 延时 30 毫秒
- (键盘)按 "Esc" 键, 1次
- 延时 100 毫秒
- 从左上到右下查找图片 "Attachment:\结束.bmp",把找到的坐标保存到 (jsX, jsY),指定区域(左:258 上:299 右:290 下:331),相似度 0.9
- 如果 jsX > 0 并且 jsY > 0 则
- 延时 50 毫秒
- (键盘)按 "Esc" 键, 1次
- 条件结束
- 子程序结束
- 子程序 读取输入金币数
- 令 ss1 = dm.Ocr(152,282,316,319,"fff000-000000",1.0)
- 令 ss2 = dm.Ocr(152,282,316,319,"ff8c00-000000",1.0)
- 令 ss3 = dm.Ocr(152,282,316,319,"ff5000-000000",1.0)
- 令 tempzj = ss1 & ss2 & ss3
- 子程序结束
- 子程序 附近检测
- 令 fj = dm.Ocr(38,389,125,426,"eeddaa-000000",1.0)
- 如果 fj = 99999 则
- 令 ifj = 0
- 条件结束
- 子程序结束
- 子程序 关机
- 令 gbjsj = (命令库 窗口)弹出对话框("游戏掉线是否关闭计算机?",60,"",4)
- 如果 gbjsj = 6 则
- 注释:值为6是选择是
- 条件结束
- 令 sDate = Sys.GetDateTime()
- 调用 File.WriteFileEx("c:\log.txt",sdate & "游戏掉线 关闭计算机")
- 令 sms = (命令库 网络)发送邮件("i0_0i_@139.com","521~jian",sjyx,yjnr,"【 -_-。sorry!悲剧了....】",0)
- 如果 sms = true 则
- 令 返回值 = (命令库 窗口)弹出对话框("发送邮件成功",10,"",1)
- 调用 File.WriteFileEx("c:\log.txt",sdate & "邮件发送成功")
- 条件结束
- (语句无法识别,可能有错误): Call Plugin.Sys.ExitOS(1) //关机
- 注释:MessageBox "guanji"
- 否则如果 gbjsj = 7 则
- 令 sDate = Sys.GetDateTime()
- 调用 File.WriteFileEx("c:\log.txt",sdate & "游戏掉线 推出脚本")
- 注释:MessageBox "推出脚本"
- ExitScript()
- 条件结束
- 注释:MessageBox "guanji"
- 令 sDate = Sys.GetDateTime()
- 调用 File.WriteFileEx("c:\log.txt",sdate & "游戏掉线 关闭计算机")
- 令 sms = (命令库 网络)发送邮件(fjyx,fjyxpwd,sjyx,yjnr,"【 -_-。sorry!悲剧了....】",0)
- 如果 sms = true 则
- 令 返回值 = (命令库 窗口)弹出对话框("发送邮件成功",10,"",1)
- 调用 File.WriteFileEx("c:\log.txt",sdate & "邮件发送成功")
- 条件结束
- (语句无法识别,可能有错误): Call Plugin.Sys.ExitOS(1) //关机