- 令 DqTime = (命令库 网络)获取网络时间()
- 注释:获取网络时间,得到的时间格式为:2000-1-1 12:00:00
- 令 zzsj = "2011-6-1 11:59:59"
- 注释:zzsj=终止时间 终止时间为脚本使用限定的最后时间!
- 如果 CDate(DqTime) < CDATE(ZZSJ) 则
- Msgbox("系统认证成功!感谢你的支持。按回车脚本将会运行、")
- 否则
- Msgbox("系统认证失败!感谢你的支持。按回车脚本将会停止运行、")
- 脚本停止运行
- 条件结束
- 用户定义变量 军功任务循环=2 "循环军功次数"
- 用户定义变量 打怪速度=3000 "刷军功怪速度"
- 用户定义变量 脚本运行流畅度=0 "脚本运行流畅度"
- 用户定义变量 军功怪循环次数=10 "军功怪循环次数"
- 用户定义变量 延时时间=2000 "脚本运行时的延时时间"
- 用户定义变量 跑图时间=18000 "任务接受到刷军功的中间延时"
- 循环 军功任务循环 次
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找图片 "Attachment:\可接任务.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX, intY)
- (鼠标)左键双击, 1次
- 条件结束
- 循环结束
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找图片 "Attachment:\清缴扶桑浪人.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX, intY)
- (鼠标)左键双击, 1次
- (鼠标)移动到 (intX + 250, intY + 20)
- (鼠标)左键双击, 1次
- 条件结束
- 循环结束
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找图片 "Attachment:\刘醇1.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX, intY)
- (鼠标)左键双击, 1次
- 条件结束
- 循环结束
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找颜色 "71A4D0",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX + 40, intY)
- (鼠标)左键双击, 1次
- 条件结束
- 循环结束
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找颜色 "6ADEFF",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX + 40, intY)
- (鼠标)左键双击, 1次
- 条件结束
- 循环结束
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找颜色 "FFFAB4",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX, intY)
- (鼠标)左键双击, 1次
- 条件结束
- 循环结束
- 调用 Msg.HideScrTXT()
- 延时 500 毫秒
- 调用 Msg.ShowScrTXT(100,100,900,200,"军功任务已接、准备刷怪! " & PU,"8D65CF")
- 延时 500 毫秒
- 令 PU = PU + 1
- 延时 延时时间 毫秒
- 令 i = 0
- 循环当 i = 0 时
- 从左上到右下查找颜色 "0071FF",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
- 如果 intX > 0 并且 intY > 0 则
- 令 i = 1
- (鼠标)移动到 (intX, intY)
- (鼠标)左键单击, 1次
- 条件结束
- 循环结束
- 延时 跑图时间 毫秒
- 循环 军功怪循环次数 次
- 调用 Msg.HideScrTXT()
- 延时 500 毫秒
- 调用 Msg.ShowScrTXT(100,100,900,200,"军功任务刷怪开始! " & PU,"8D65CF")
- 延时 500 毫秒