1.                 MouseClick(intX + 3,intY + 3,1)
  2.                 令 IsError = False
  3.                 跳出循环
  4.             否则
  5.                 调用 MyDelay()
  6.                 如果 IsTimeout > 20 则
  7.                     注释:超时 10s
  8.                 条件结束
  9.                 跳出循环
  10.             条件结束
  11.         条件结束
  12.     循环结束
  13.     注释:修改兵源数量
  14.     令 IsTimeout = 0
  15.     循环当 True 时
  16.         从左上到右下查找图片 "Attachment:\数量.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  17.         如果 intX > 0 并且 intY > 0 则
  18.             锁定鼠标位置
  19.             (鼠标)移动到 (intX + 5, intY + 2)
  20.             延时 50 毫秒
  21.             (鼠标)左键双击, 1次
  22.             延时 50 毫秒
  23.             (键盘)按 "1" 键, 1次
  24.             延时 50 毫秒
  25.             解除鼠标锁定
  26.             令 IsError = False
  27.             跳出循环
  28.         否则
  29.             调用 MyDelay()
  30.             如果 IsTimeout > 20 则
  31.                 注释:超时 10s
  32.             条件结束
  33.             跳出循环
  34.         条件结束
  35.     条件结束
  36. 循环结束
  37. 注释:确定修改
  38. 令 IsTimeout = 0
  39. 循环当 True 时
  40.     从左上到右下查找图片 "Attachment:\确定.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  41.     如果 intX > 0 并且 intY > 0 则
  42.         MouseClick(intX,intY,1)
  43.         令 IsError = False
  44.         跳出循环
  45.     否则
  46.         调用 MyDelay()
  47.         如果 IsTimeout > 20 则
  48.             注释:超时 10s
  49.         条件结束
  50.         跳出循环
  51.     条件结束
  52. 条件结束
  53. 循环结束
  54. 注释:出征
  55. 令 IsTimeout = 0
  56. 循环当 True 时
  57.     从左上到右下查找图片 "Attachment:\出征.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  58.     如果 intX > 0 并且 intY > 0 则
  59.         MouseClick(intX,intY,1)
  60.         令 IsError = False
  61.         跳出循环
  62.     否则
  63.         调用 MyDelay()
  64.         如果 IsTimeout > 20 则
  65.             注释:超时 10s
  66.         条件结束
  67.         跳出循环
  68.     条件结束
  69. 条件结束
  70. 循环结束
  71. 注释:选择出征目标输入框
  72. 令 IsTimeout = 0
  73. (语句无法识别,可能有错误): Do While True //选择功击目标
  74. 从左上到右下查找图片 "Attachment:\请选择.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:6 上:300 右:95 下:768),相似度 0.9
  75. 如果 intX > 0 并且 intY > 0 则
  76.     MouseClick(intX,intY,1)
  77.     令 IsError = False
  78.     跳出循环
  79. 否则
  80.     调用 MyDelay()
  81.     如果 IsTimeout > 20 则
  82.         注释:超时 10s
  83.     条件结束
  84.     跳出循环
  85. 条件结束
  86. 条件结束
  87. 循环结束
  88. 注释:选择目标(标记第一行)
  89. 令 IsTimeout = 0
  90. 循环当 True 时
  91.     从左上到右下查找图片 "Attachment:\标记.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:1024 下:768),相似度 0.9
  92.     如果 intX > 0 并且 intY > 0 则
  93.         锁定鼠标位置
  94.         (鼠标)移动到 (intX, intY)
  95.         延时 50 毫秒
  96.         (鼠标)左键单击, 1次
  97.         延时 50 毫秒
  98.         (鼠标)移动到 (172, 193)
  99.         延时 50 毫秒
  100.         (鼠标)左键双击, 1次