Set file=fso.OpenTextFile(filename,ForAppending)
            file.WriteLine("循环"&i&"次选择服务器--"&t3)
            file.Close
            If yxfwq=1
                MoveTo 400,442
            ElseIf yxfwq=2
                MoveTo 396,457
            ElseIf yxfwq=3
                MoveTo 403,477
            ElseIf yxfwq=4
                MoveTo 402,491
            ElseIf yxfwq=5
                MoveTo 402,506
            ElseIf yxfwq=6
                MoveTo 400,521
            ElseIf yxfwq=7
                MoveTo 401,538
            ElseIf yxfwq=8
                MoveTo 400,555
            ElseIf yxfwq=9
                MoveTo 401,569
            ElseIf yxfwq=10
                MoveTo 401,586
            EndIf 
            Delay yanshi/5
            LeftClick 1
            MoveTo 443 656
            LeftClick 1
        Else 
            If fwqu=11
                x=439
                y=586
            ElseIf fwqu=12
                x=439
                y=525
            ElseIf fwqu=13
                x=439
                y=460
            ElseIf fwqu=21
                x=602
                y=586
            ElseIf fwqu=22
                x=602
                y=525
            ElseIf fwqu=23
                x=602
                y=460
            EndIf 
            MoveTo x,y
            LeftClick 1
            Delay yanshi/5
            i=i+1
            Goto 选择服务器
        EndIf 
    Else 
        MoveTo 728,327
        LeftClick 1
        Delay yanshi*10
        MoveTo 728,600
        LeftClick 1
        i=i+1
        Goto 开三国策1
    EndIf 
    Delay yanshi*200
    Rem 关闭声音
    IfColor 306,214,a5fb42,0
        MoveTo 598,265
        LeftClick 1
        MoveTo 599,314
        LeftClick 1
        MoveTo 508,551
        LeftClick 1
    Else 
        MoveTo 185,736
        LeftClick 1
        Delay yanshi*10
        Goto 关闭声音
    EndIf 
Return 
Sub 变速
    Delay yanshi
    t1=timer
    i=0
    Rem cbscl
    // 在系统托盘中查变速图标
    VBSCall FindCenterColor(896,753,987,753,"00FFFF",x,y)
    If x>0
        If j<>0
            t2=timer
            t3=t2-t1
            Set file=fso.OpenTextFile(filename,ForAppending)
            file.WriteLine("循环"&i&"次cbscl--"&t3)
            file.Close
        EndIf 
        MoveTo x,y
        LeftClick 0
    Else 
        i=i+1
        Goto cbscl
    EndIf