Rem 随机数
            VBS Randomize
            VBS i = 4 * Rnd
            If i>3.1415926
                Goto 随机数
            EndIf 
            Rem 画圆
            r=50:x0=403:y0=322:x=0:y=0:n=i*2
            rnx=x0+r*cos(n)
            rny=y0-r*sin(n)
            MoveTo rnx rny
            Delay 200
            LeftClick 1
            Delay 500
            Goto complete
        Else 
            Goto mouse
        EndIf 
        Rem complete
        VBSCall FindColorEx(273,173,530,398,"0874d2",1,0.8,colorx,colory)
        If colorx>=0 and colory>=0
            Goto complete
        Else 
            Delay 500
            MoveTo 405 325
            Delay 100
            KeyDown 18,1
            Delay 20
            LeftClick 1
            KeyUp 18,1
            Delay 800
        EndIf 
        If datediff("s",setime,now)>se*60
            setime=now
            If gh=4
                VBS strSoundFile = "C:\soda.wav"
                VBS Set objShell = CreateObject("Wscript.Shell")
                VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
                VBS objShell.Run strCommand, 0, True
            EndIf 
            KeyPress 73,1
            If gh=1
                Delay 100
                MoveTo 677,359
                Delay 100
                LeftClick 1
                Delay 500
                MoveTo 525,443
                Delay 200
                LeftClick 1
            EndIf 
            If gh=2
                MoveTo 725,359
                Delay 100
                LeftClick 1
                Delay 500
                MoveTo 525,443
                Delay 200
                LeftClick 1
            EndIf 
            If gh=3
                MoveTo 773,359
                Delay 100
                LeftClick 1
                Delay 500
                MoveTo 525,443
                Delay 200
                LeftClick 1
            EndIf 
            KeyPress 73,1
            gh=gh+1
        EndIf 
        If datediff("s",satime,now)>sa*60
            satime=now
            KeyPress 73,1
            MoveTo 786,560
            Delay 200
            VBSCall shape=GetCursorShape(0)
            If shape=1060663957
                VBS strSoundFile = "C:\soda.wav"
                VBS Set objShell = CreateObject("Wscript.Shell")
                VBS strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
                VBS objShell.Run strCommand, 0, True
            EndIf 
            KeyPress 73,1
        EndIf 
    EndFor 
    Delay 1000
Return 开始淘金