1.         令 y = 267
  2.         （鼠标）移动到 (x, y)
  3.         延时 200 毫秒
  4.         令 xz = 返回当前鼠标的形状特征（0）
  5.         如果 xz = "876372781" 则
  6.             （鼠标）右键单击, 1次
  7.             延时 1000 毫秒
  8.             令 se = "EAEAEA"
  9.             令 zf = "5|0|EAEAEA,10|0|EAEAEA,11|0|EAEAEA,12|0|EAEAEA,13|0|EAEAEA,14|0|EAEAEA,15|0|EAEAEA,0|1|EAEAEA,5|1|EAEAEA,11|1|EAEAEA,14|1|EAEAEA,16|1|EAEAEA,17|1|EAEAEA,18|1|EAEAEA,19|1|EAEAEA,-2|2|EAEAEA,-1|2|EAEAEA,0|2|EAEAEA,1|2|EAEAEA,4|2|EAEAEA,6|2|EAEAEA,11|2|EAEAEA,14|2|EAEAEA,16|2|EAEAEA,19|2|EAEAEA,0|3|EAEAEA,3|3|EAEAEA,7|3|EAEAEA,11|3|EAEAEA,12|3|EAEAEA,13|3|EAEAEA,14|3|EAEAEA,16|3|EAEAEA,19|3|EAEAEA,0|4|EAEAEA,1|4|EAEAEA,2|4|EAEAEA,4|4|EAEAEA,5|4|EAEAEA,6|4|EAEAEA,8|4|EAEAEA,11|4|EAEAEA,14|4|EAEAEA,16|4|EAEAEA,19|4|EAEAEA,-1|5|EAEAEA,0|5|EAEAEA,11|5|EAEAEA,12|5|EAEAEA,13|5|EAEAEA,14|5|EAEAEA,16|5|EAEAEA,19|5|EAEAEA,-2|6|EAEAEA,0|6|EAEAEA,3|6|EAEAEA,4|6|EAEAEA,5|6|EAEAEA,6|6|EAEAEA,7|6|EAEAEA,11|6|EAEAEA,14|6|EAEAEA,16|6|EAEAEA,18|6|EAEAEA,0|7|EAEAEA,3|7|EAEAEA,7|7|EAEAEA,11|7|EAEAEA,13|7|EAEAEA,14|7|EAEAEA,15|7|EAEAEA,17|7|EAEAEA,0|8|EAEAEA,3|8|EAEAEA,7|8|EAEAEA,10|8|EAEAEA,11|8|EAEAEA,12|8|EAEAEA,14|8|EAEAEA,17|8|EAEAEA,18|8|EAEAEA,0|9|EAEAEA,3|9|EAEAEA,7|9|EAEAEA,14|9|EAEAEA,16|9|EAEAEA,19|9|EAEAEA,-2|10|EAEAEA,-1|10|EAEAEA,0|10|EAEAEA,3|10|EAEAEA,4|10|EAEAEA,5|10|EAEAEA,6|10|EAEAEA,7|10|EAEAEA,14|10|EAEAEA,15|10|EAEAEA,20|10|EAEAEA"
  10.             令 XY = Color.FindMutiColor(0,0,1024,768,se,zf,1)
  11.             注释：下面这句用于分割字符串
  12.             令 MyArray = Split(XY,"|")
  13.             注释：下面这句将字符串转换成数值
  14.             令 X = CInt(MyArray(0))
  15.             令 Y = CInt(MyArray(1))
  16.             （鼠标）移动到 (x, y)
  17.             延时 200 毫秒
  18.             （鼠标）左键单击, 1次
  19.             延时 800 毫秒
  20.             跳转到标记 jdx(子程序 检东西)
  21.         否则
  22.             令 x = x + 20
  23.             令 y = y + 20
  24.         循环结束
  25.     条件结束
  26.     标记 jdx(子程序 检东西)
  27. 子程序结束