dim x0,y0

VBSCall GetCursorPos(x0,y0)

Rem loop

//惊喜

Gosub Jingxi

//吃药

Gosub EatFood

//组队

Gosub MakeGroup

//left

MoveTo x0, y0

LeftClick 1

Delay 500

LeftClick 1

Gosub WaitSec

//buttom

MoveTo x0+32, y0+13

LeftClick 1

Delay 500

LeftClick 1

Gosub WaitSec

//buttom

MoveTo x0+64, y0

LeftClick 1

Delay 500

LeftClick 1

Gosub WaitSec

//回去

Goto loop

//等待挖矿成功

Sub WaitSec

     dim start_time

     start_time = now

     While DateDiff("s",start_time,now)<7

         Gosub MakeGroup

         Delay 100

     EndWhile 

Return 

//判断组队

Sub MakeGroup

     dim intX,intY

     VBSCall Call FindPic(0,50,1023,767,"Attachment:\ok.bmp",0.9,intX,intY)

     If intX>=0 and intY>=0

         SaveMousePos 

         MoveTo intX+2,intY+2

         Delay 100

         LeftClick 1

         Delay 50

         RestoreMousePos 

         LeftClick 1