LeftClick 1
    Delay 20
    LeftClick 1
Return Test电信三区
Sub Test电信四区
    MoveTo 500,415
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test电信四区
Sub Test电信五区
    MoveTo 500,446
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test电信五区
Sub Test电信六区
    MoveTo 500,475
    LeftClick 1
    Delay 20
    LeftClick 1
Return Test电信六区
EndIf 
Sub Test启动
    dim color(2)
    dim s4,x,y
    color(0)="c6e7f7":color(1)="fbfefe":color(2)="fbfefe"
    VBSCall FindCenterColor(0, 0,1024, 700,color(s4),x,y)
    If x>0 and y>0
        MoveTo X,Y
        LeftClick 1
        Delay 50
        LeftClick 1
        Delay 50
        LeftClick 1
    Else 
    EndIf 
Else 
EndIf 
Return Test启动
Sub 1101
    MoveTo 117,19
    LeftClick 1
    Delay 100
    LeftClick 1
    Delay 100
    LeftClick 1
Return 1101
EndIf 
Sub 1
    MoveTo 280,320
    LeftClick 1
Return 1
Sub 2
    MoveTo 280,342
    LeftClick 1
Return 2
Sub 3
    MoveTo 280,365
    LeftClick 1
Return 3
Sub 4
    MoveTo 280,388
    LeftClick 1
Return 4
Sub 5
    MoveTo 280,408
    LeftClick 1
Return 5
Sub 6
    MoveTo 280,435
    LeftClick 1
Return 6
Sub 7
    MoveTo 280,457
    LeftClick 1
Return 7
Sub 8
    MoveTo 280,482
    LeftClick 1
Return 8
EndIf 
Rem 9996
//搜索选择并点击区组（下面）
dim color(2)
dim s11,x,y
color(0)="b5cc8b":color(1)="b5cc8b":color(2)="b5cc8b"
VBSCall FindCenterColor(460, 323,542, 359,color(s11),x,y)
If x>0 and y>0
    MoveTo X,Y
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
    Delay 50
    LeftClick 1
Else 
EndIf 
Delay 1000