VBS dim intX VBS intX=1 While intX>0 VBSCall FindPic(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY) If intX>0 and intY>0 MoveTo intX+40,intY+60 LeftClick 1 Delay 500 EndIf VBSCall FindPic(0,50,1023,767,"左兹1.bmp",0.9,intX,intY) If intX>0 and intY>0 MoveTo intX+40,intY+60 LeftClick 1 Delay 500 EndIf VBSCall FindPic(0,50,1023,767,"张道凌1.bmp",0.9,intX,intY) If intX>0 and intY>0 MoveTo intX+40,intY+60 LeftClick 1 Delay 500 EndIf VBSCall FindPic(0,50,1023,767,"姜子牙1.bmp",0.9,intX,intY) If intX>0 and intY>0 MoveTo intX+40,intY+60 LeftClick 1 Delay 500 EndIf For 10 VBSCall FindPic(0,50,1023,767,"小仙童1.bmp",0.9,intX,intY) If intX<0 and intY<0 VBSCall FindPic(0,50,1023,767,"周一仙1.bmp",0.9,intX,intY) MoveTo intX+40,intY+60 LeftClick 1 Delay 500 Else MoveTo intX+40,intY+60 LeftClick 1 Delay 500 MoveR 120,0 LeftClick 1 Delay 500 MoveR 120,0 LeftClick 1 Delay 500 MoveR 120,0 LeftClick 1 Delay 500 EndIf MoveR 0,200 EndFor VBSCall FindPic(0,50,1023,767,"一键卖出1.bmp",0.9,intX,intY) MoveTo intX+40,intY+20 LeftClick 1 Delay 500 While intX>45 VBSCall FindPic(0,50,1023,767,"一键拾取.bmp",0.9,intX,intY) MoveTo intX+40,intY+20 LeftClick 1 Delay 2000 VBSCall FindPic(0,50,1023,767,"一键合成.bmp",0.9,intX,intY) MoveTo intX+40,intY+20 LeftClick 1 Delay 500 VBSCall FindPic(0,50,1023,767,"确认.bmp",0.9,intX,intY) MoveTo intX+40,intY+20 LeftClick 1 Delay 500 VBSCall FindPic(0,50,1023,767,"一键拾取.bmp",0.9,intX,intY) EndWhile VBS intX=1 EndWhile EndScript