Delay 1
        Goto 开始采集
    EndIf 
    KeyPress 65,1
EndFor 
Rem 开始采集
Delay 500
LeftClick 1
Delay 10000
VBSCall GetCursorPos(mx, my)
MoveTo MX+70 MY+4
//判断采集第一次(点击开始采集了这是点的第一次)采集完没
Rem 点一次
Shape1 = 507365973
IfColor 428,669,a0de,2
    Delay 1000
    Goto 点一次
Else 
    //采完了开始跳到找第二次了
    Delay 7000
    Goto 第二次
EndIf 
//-----------------------------------------
//下面全部是判断现在鼠标位置是不是可以点第二次
Rem 第二次
Delay 1000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
    Goto 采集11
Else 
    //如果当前位置不是那就移动下鼠标在看是不是（移动了跳到下一节开始判断）
    Delay 500
    MoveTo 845,635
    Goto 第二次3
EndIf 
//--------------------------------------------------------
Rem 第二次3
Delay 1000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
    Goto 采集11
Else 
    //如果这
    Delay 500
    MoveTo 227,650
    Goto 第二次33
EndIf 
//----------------------------------
Rem 第二次33
Delay 1000
VBSCall Shape=GetCursorShape(0)
If shape = shape1
    Goto 采集11
Else 
    VBSCall Call GetScreenResolution(fx,fy)
    VBS x0=fx/2:n=1:y0=fy/2
    While n<77
        VBS x=x0+4*(cos(n)+n*sin(n))
        VBS y=y0+3*(sin(n)-n*cos(n))
        MoveTo x,y
        Delay 100
        VBS n=n+0.8
        VBSCall Shape=GetCursorShape(0)
        Shape1 = 507365973
        If shape = shape1
            Delay 1
            Goto 采集11
        EndIf 
        KeyPress 65,1
    EndFor 
    VBS x1=fx/2:n=77:y1=fy/2
    While n>1
        VBS x=x1+4*(cos(n)+n*sin(n))
        VBS y=y1+3*(sin(n)-n*cos(n))
        MoveTo x,y
        Delay 100
        VBS n=n-0.8
        Shape1 = 507365973
        If shape = shape1
            Delay 1
            Goto 采集11
        EndIf 
        KeyPress 65,1
    EndFor 
EndIf 
//--------------------
Rem 采集11
Delay 500
LeftClick 1
Delay 10000
//判断采集第一次
Rem 点一次44
IfColor 428,669,a0de,2
    Delay 1000
    Goto 点一次44
Else 
    Delay 7000
    Goto 第二次44
EndIf 
//-----------------------------------------