相同子网不同Vlan间

Rem r1
Delay 500
VBSCall Call FindPic(0,0,1024,768,"订阅该问题.bmp",1,x0,y0)
If x0<0 and y0<0
Goto r1
Else
count=count+30
num=num+1
MoveTo 1000,500
LeftClick 1
Delay 200
MouseWheel -20
Delay 200
EndIf
VBSCall Call FindPic(0,0,1024,768,"待解决.bmp",1,x1,y1)
If x1>=0 and y1>=0
Gosub m1
Else
Gosub m2
EndIf