1.         n=0
  2.         //设置第一圈半径
  3.         r=8
  4.         //设置画圆圈数
  5.         循环 8 遍
  6.             如果表达式 (n<3.1415926*2) 为真,则循环执行
  7.                 //画圆公式
  8.                 x=x0+r*cos(n)
  9.                 y=y0-r*sin(n)
  10.                 鼠标移到 x , y
  11.                 延时100毫秒
  12.                 调用外部VBScript子程序 color1=得到指定点的颜色(665,610) //成熟，图标闪动
  13.                 如果表达式 (shape=shape2) 为真,则
  14.                     跳转到标记 收
  15.                 条件结束
  16.                 延时10毫秒
  17.                 //l/r：点距除以半径，取得2点间相对圆心的角度
  18.                 //能有效控制扫描点的密度，2点间的距离就比较平均
  19.                 n=n+l/r
  20.             循环结束
  21.             //画完一圈后重置角度
  22.             n=0
  23.             //画完一圈后半径递增rr
  24.             r=r+rr
  25.             如果表达式 (r=20*7+8) 为真,则
  26.                 如果表达式 (shape<>shape2) 为真,则
  27.                     跳转到标记 全部收完
  28.                 条件结束
  29.             条件结束
  30.         循环结束
  31.         跳转到标记 找作物
  32.         标记 收
  33.         鼠标移到 x , y
  34.         延时256毫秒
  35.         左键按下
  36.         延时100毫秒
  37.         左键弹起
  38.         延时6000毫秒
  39.         // Rem 没收完
  40.         //VBSCall Shape=GetCursorShape(0)
  41.         // IfColor 504 307 78ebfd 2
  42.         //IfColor 505 307 010244 2
  43.         延时50毫秒
  44.         鼠标移到 475 , 310
  45.         左键单击
  46.         延时1000毫秒
  47.         // Goto 收完
  48.         // Else
  49.         延时1000毫秒
  50.         // Goto 没收完
  51.         // EndIf
  52.         // EndIf
  53.         标记 收完
  54.     循环结束
  55.     //Goto 找作物
  56.     标记 全部收完
  57. 子程序结束,回到调用处