1. 子程序 捡包
  2.     Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1
  3.     l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560
  4.     如果表达式 (x0-a1>=a2-x0) 为真,则
  5.         n=a1
  6.     否则
  7.         n=x0-(a2-x0)
  8.     条件结束
  9.     标记 开始搜索
  10.     v=l
  11.     i=m
  12.     x1=x0:y1=y0-v
  13.     如果表达式 (x1>=n) 为真,则循环执行
  14.         k1=0:k2=v
  15.         循环 2 遍
  16.             循环 i 遍
  17.                 x1=x1+k1:y1=y1+k2
  18.                 如果表达式 (x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2) 为真,则
  19.                     鼠标移到 x1 , y1
  20.                     延时2毫秒
  21.                     调用外部VBScript子程序 在屏幕区域里查找图形(0,50,600,550,"Attachment:\yz1.bmp",0.9,x,y)
  22.                     如果表达式 (shape=d) 为真,则
  23.                         延时50毫秒
  24.                         右键单击
  25.                         延时400毫秒
  26.                         跳转到标记 开始
  27.                     条件结束
  28.                 条件结束
  29.             循环结束
  30.             k1=v:k2=0
  31.         循环结束
  32.         i=i+1:v=v*(-1)
  33.     循环结束
  34.     跳转到标记 开始
  35. 子程序结束,回到调用处