1.     注释：设置识别题目的初始坐标。具体看说明
  2.     令 St_x = 410
  3.     令 St_y = 250
  4.     令 Str = Maple.GetCharRect(St_x,St_y,143,11,1,&H312507,&H281414,0)
  5.     如果 var2 = 2 则
  6.         循环 2 次
  7.             响一声
  8.             延时 2000 毫秒
  9.         循环结束
  10.         循环 30 次
  11.             响一声
  12.             延时 2000 毫秒
  13.             令 Xc = （键盘）等待按任意键
  14.             如果 Xc 则
  15.                 跳转到标记 题库收集01(子程序 题库收集)
  16.             条件结束
  17.         循环结束
  18.         跳转到标记 题库收集02(子程序 题库收集)
  19.         标记 题库收集01(子程序 题库收集)
  20.         (语句无法识别，可能有错误): Input = InputBox("输入答案", "西瓜网络",,4000,7000)
  21.         延时 1000 毫秒
  22.         令 a = 0
  23.         如果 a = input 则
  24.             跳转到标记 题库收集结速(子程序 题库收集)
  25.         条件结束
  26.         令 Str = Input & "|" & Str
  27.         调用 File.WriteFileEx("d:\题库.txt",Str)
  28.         跳转到标记 行脚出题(子程序 题库收集)
  29.     条件结束
  30.     如果 var2 = 1 则
  31.         标记 题库收集02(子程序 题库收集)
  32.         注释：选择ABCD的坐标
  33.         （鼠标）移动到 (153, 55)
  34.         延时 300 毫秒
  35.         （鼠标）左键单击, 1次
  36.         注释：判断是否答错（图和坐标自己改了）
  37.         调用 从左上到右下查找图片 "答错.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：0 上：0 右：1024 下：768），相似度 0.9
  38.         注释：答错，跳出，结束
  39.         如果 intX < 0 并且 intY < 0 则
  40.             跳转到标记 题库收集结速(子程序 题库收集)
  41.         否则
  42.             注释：答对。。。选A这个地方就改成A B就改成B 以此类推
  43.             令 Str = "a" & "|" & Str
  44.             调用 File.WriteFileEx("d:\题库.txt",Str)
  45.         条件结束
  46.     条件结束
  47.     标记 题库收集结速(子程序 题库收集)
  48. 子程序结束
  49. 脚本停止运行
  50. 调用 从左上到右下查找图片 "Attachment:\主线01.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：770 上：86 右：776 下：95），相似度 0.8
  51. 如果 intX >= 0 并且 intY >= 0 则
  52. 条件结束
  53. 调用 按 从中心找 的方式查找颜色 "81FBFF"，把找到的坐标保存到 (x9, y9)，指定区域（左：489 上：373 右：510 下：391），相似度 0.8
  54. 如果 x9 > 0 并且 y9 > 0 则
  55. 条件结束
  56. 调用 从左上到右下查找图片 "Attachment:\主线2209.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：791 上：77 右：830 下：98），相似度 0.8
  57. 如果 intX >= 0 并且 intY >= 0 则
  58.     延时 1000 毫秒
  59.     （硬件模拟键盘）弹起 Right 键
  60.     跳转到标记 主线05
  61. 条件结束