1.                 否则
  2.                     （鼠标）移动到 (449, 386)
  3.                     延时 500 毫秒
  4.                     （硬件模拟鼠标）左键单击, 1次
  5.                     延时 500 毫秒
  6.                 条件结束
  7.                 （鼠标）移动到 (450, 418)
  8.                 延时 500 毫秒
  9.                 （硬件模拟鼠标）左键单击, 1次
  10.                 延时 500 毫秒
  11.                 （鼠标）移动到 (825, 233)
  12.                 延时 500 毫秒
  13.             条件结束
  14.         条件结束
  15.     循环结束
  16.     调用 上线报警()
  17.     标记 已进入游戏02(子程序 自动上号)
  18.     （硬件模拟键盘）按 Esc 键, 1次
  19.     延时 1000 毫秒
  20.     调用 按 从中心找 的方式查找颜色 "000000"，把找到的坐标保存到 (x9, y9)，指定区域（左：324 上：747 右：370 下：759），相似度 0.8
  21.     如果 x9 > 0 并且 y9 > 0 则
  22.     否则
  23.         （鼠标）移动到 (73, 752)
  24.         延时 1000 毫秒
  25.         （硬件模拟鼠标）左键单击, 1次
  26.         延时 2000 毫秒
  27.     条件结束
  28.     跳转到标记 登陆start(子程序 自动上号)
  29. 子程序结束
  30. 子程序 持续报警()
  31.     标记 持续报警01(子程序 持续报警)
  32.     响一声
  33.     循环 1 次
  34.         延时 1000 毫秒
  35.     循环结束
  36.     跳转到标记 持续报警01(子程序 持续报警)
  37. 子程序结束
  38. 子程序 自动答题()
  39.     定义变量 St_x, St_y
  40.     注释：头文字坐标
  41.     令 St_x = 410
  42.     令 St_y = 250
  43.     注释：读取题库信息，取得题目数量
  44.     开始VBScript块
  45.         定义变量 Gx, Yz
  46.         令 fso = createobject("scripting.filesystemobject")
  47.         令 file = fso.opentextfile("d:\题库.txt")
  48.         令 Gx = file.readall
  49.         令 Yz = file.line
  50.         file.close()
  51.     结束VBScript块
  52.     令 i = Yz - 1
  53.     注释：创建题库数组，供识别用
  54.     重定义变量 Dct(i)
  55.     注释：讲题库内容写入数组，供识别用
  56.     令 t = 0
  57.     循环 i 次
  58.         令 Li = Li & ""
  59.         令 R1 = File.ReadFileEx("d:\题库.txt")
  60.         令 R2 = File.ReadFileEx("d:\题库.txt")
  61.         令 Dct(t) = R1 & R2
  62.         令 t = t + 1
  63.     循环结束
  64.     注释：开始识别
  65.     令 Zf = Maple.EamChar(Dct,1,30,St_x,St_y,143,11,1,&H312507,&H281414)
  66.     注释：识别完成，得出相应值，鼠标点击（坐标自己改）
  67.     如果 Zf = "a" 则
  68.         （鼠标）移动到 (414, 350)
  69.         延时 200 毫秒
  70.         （鼠标）左键单击, 1次
  71.         延时 1000 毫秒
  72.         （鼠标）移动到 (807, 227)
  73.         调用 答题结果()
  74.     否则如果 Zf = "b" 则
  75.         （鼠标）移动到 (413, 379)
  76.         延时 200 毫秒
  77.         （鼠标）左键单击, 1次
  78.         延时 1000 毫秒
  79.         （鼠标）移动到 (807, 227)
  80.         调用 答题结果()
  81.     否则如果 Zf = "c" 则
  82.         （鼠标）移动到 (414, 408)
  83.         延时 200 毫秒
  84.         （鼠标）左键单击, 1次
  85.         延时 1000 毫秒
  86.         （鼠标）移动到 (807, 227)
  87.         调用 答题结果()
  88.     否则如果 Zf = "d" 则
  89.         （鼠标）移动到 (414, 438)
  90.         延时 200 毫秒
  91.         （鼠标）左键单击, 1次
  92.         延时 1000 毫秒
  93.         （鼠标）移动到 (807, 227)
  94.         调用 答题结果()
  95.     条件结束
  96. 子程序结束
  97. 子程序 题库收集()
  98.     定义变量 St_x, St_y
  99.     定义变量 Input
  100.     注释：=========================================================