Sub 捡包 Dim v,i,n,d,l,m,a1,b1,a2,b2,shape,x0,y0,k1,k2,x1,y1 l=20:m=2:a1=dx+286:b1=dy+200:a2=dx+486:b2=dy+400:x0=dx+366:y0=dy+300:d=954439560 If x0-a1>=a2-x0 n=a1 Else n=x0-(a2-x0) EndIf Rem 开始搜索 v=l i=m x1=x0:y1=y0-v While x1>=n k1=0:k2=v For 2 For i x1=x1+k1:y1=y1+k2 If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2 MoveTo x1,y1 Delay 2 VBSCall shape=GetCursorShape(0) If shape=d Delay 50 RightClick 1 Delay 400 Goto 开始 EndIf EndIf EndFor k1=v:k2=0 EndFor i=i+1:v=v*(-1) EndWhile Goto 开始 Return 捡包