1. 令 DqTime = (命令库 网络)获取网络时间()
  2. 注释:获取网络时间,得到的时间格式为:2000-1-1 12:00:00
  3. 令 zzsj = "2011-6-1 11:59:59"
  4. 注释:zzsj=终止时间 终止时间为脚本使用限定的最后时间!
  5. 如果 CDate(DqTime) < CDATE(ZZSJ) 则
  6.     Msgbox("系统认证成功!感谢你的支持。按回车脚本将会运行、")
  7. 否则
  8.     Msgbox("系统认证失败!感谢你的支持。按回车脚本将会停止运行、")
  9.     脚本停止运行
  10. 条件结束
  11. 用户定义变量 军功任务循环=2 "循环军功次数"
  12. 用户定义变量 打怪速度=3000 "刷军功怪速度"
  13. 用户定义变量 脚本运行流畅度=0 "脚本运行流畅度"
  14. 用户定义变量 军功怪循环次数=10 "军功怪循环次数"
  15. 用户定义变量 延时时间=2000 "脚本运行时的延时时间"
  16. 用户定义变量 跑图时间=18000 "任务接受到刷军功的中间延时"
  17. 循环 军功任务循环 次
  18.     延时 延时时间 毫秒
  19.     令 i = 0
  20.     循环当 i = 0 时
  21.         从左上到右下查找图片 "Attachment:\可接任务.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  22.         如果 intX > 0 并且 intY > 0 则
  23.             令 i = 1
  24.             (鼠标)移动到 (intX, intY)
  25.             (鼠标)左键双击, 1次
  26.         条件结束
  27.     循环结束
  28.     延时 延时时间 毫秒
  29.     令 i = 0
  30.     循环当 i = 0 时
  31.         从左上到右下查找图片 "Attachment:\清缴扶桑浪人.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  32.         如果 intX > 0 并且 intY > 0 则
  33.             令 i = 1
  34.             (鼠标)移动到 (intX, intY)
  35.             (鼠标)左键双击, 1次
  36.             (鼠标)移动到 (intX + 250, intY + 20)
  37.             (鼠标)左键双击, 1次
  38.         条件结束
  39.     循环结束
  40.     延时 延时时间 毫秒
  41.     令 i = 0
  42.     循环当 i = 0 时
  43.         从左上到右下查找图片 "Attachment:\刘醇1.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  44.         如果 intX > 0 并且 intY > 0 则
  45.             令 i = 1
  46.             (鼠标)移动到 (intX, intY)
  47.             (鼠标)左键双击, 1次
  48.         条件结束
  49.     循环结束
  50.     延时 延时时间 毫秒
  51.     令 i = 0
  52.     循环当 i = 0 时
  53.         从左上到右下查找颜色 "71A4D0",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
  54.         如果 intX > 0 并且 intY > 0 则
  55.             令 i = 1
  56.             (鼠标)移动到 (intX + 40, intY)
  57.             (鼠标)左键双击, 1次
  58.         条件结束
  59.     循环结束
  60.     延时 延时时间 毫秒
  61.     令 i = 0
  62.     循环当 i = 0 时
  63.         从左上到右下查找颜色 "6ADEFF",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
  64.         如果 intX > 0 并且 intY > 0 则
  65.             令 i = 1
  66.             (鼠标)移动到 (intX + 40, intY)
  67.             (鼠标)左键双击, 1次
  68.         条件结束
  69.     循环结束
  70.     延时 延时时间 毫秒
  71.     令 i = 0
  72.     循环当 i = 0 时
  73.         从左上到右下查找颜色 "FFFAB4",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
  74.         如果 intX > 0 并且 intY > 0 则
  75.             令 i = 1
  76.             (鼠标)移动到 (intX, intY)
  77.             (鼠标)左键双击, 1次
  78.         条件结束
  79.     循环结束
  80.     调用 Msg.HideScrTXT()
  81.     延时 500 毫秒
  82.     调用 Msg.ShowScrTXT(100,100,900,200,"军功任务已接、准备刷怪! " & PU,"8D65CF")
  83.     延时 500 毫秒
  84.     令 PU = PU + 1
  85.     延时 延时时间 毫秒
  86.     令 i = 0
  87.     循环当 i = 0 时
  88.         从左上到右下查找颜色 "0071FF",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768)
  89.         如果 intX > 0 并且 intY > 0 则
  90.             令 i = 1
  91.             (鼠标)移动到 (intX, intY)
  92.             (鼠标)左键单击, 1次
  93.         条件结束
  94.     循环结束
  95.     延时 跑图时间 毫秒
  96.     循环 军功怪循环次数 次
  97.         调用 Msg.HideScrTXT()
  98.         延时 500 毫秒
  99.         调用 Msg.ShowScrTXT(100,100,900,200,"军功任务刷怪开始! " & PU,"8D65CF")
  100.         延时 500 毫秒