//UnlockMouse
        //   Gosub 一键抓图
        Delay 1000*cint(reentry)
        chongxjr=1
        Goto 重新进入口
    EndIf 
Return 重新进入
Sub 验证码错重新进入
    nnnnn=0
    time2 = obj.GetTickCount()
    //截错误图(Print screen键）
    KeyPress 44
    Rem 杀当前进程
    For 200
        hwnd=obj.FindWindow("","三国策online(connect when "&nnnnn&")")
        pID=obj.GetWindowThreadProcessId(hwnd)
        retv=obj.TerminateProcess(pID)
        hwnd=obj.FindWindow("","三国策online(disconnect when "&nnnnn&")")
        pID=obj.GetWindowThreadProcessId(hwnd)
        retv=obj.TerminateProcess(pID)
        nnnnn=nnnnn+1
    EndFor 
    Delay 100
    currtime=date
    currtime= currtime&" " &time
    str=cstr(ttlcount)&"["&cstr(currtime)&"]--读验证码错！！耗时:" & CStr((time2-time1)/1000) & "秒 "
    Gosub 记运行日志
    //UnlockMouse
    Gosub 一键抓图
    Delay 1000*cint(reentry)
    chongxjr=1
    number=number+1
    ttlCount=ttlCount+1
    count80=count80 + 1
    Goto 重新进入口
Return 验证码错重新进入
Sub 进入游戏
    currtime=date
    currtime= currtime&" " &time
    str="["&cstr(currtime)&"]"&zhanghn(num)
    Gosub 记运行日志
    time1 = obj.GetTickCount()
    nnn=0
    KeyPress 106,1
    Delay 200
    Plugin hwnd = Window.Find(0,"三国策online")
    If hwnd = 0
        Delay chbtime
    Else 
        Plugin Window.Close(hwnd)
    EndIf 
    Plugin hwnd = Window.Find(0,"Smart Online Auto Updata")
    If hwnd = 0
        Delay chbtime
    Else 
        Plugin Window.Close(hwnd)
    EndIf 
    For 30
        hwnd=obj.FindWindow("","三国策online(connect when "&nnn&")" )
        pID=obj.GetWindowThreadProcessId(hwnd)
        retv=obj.TerminateProcess(pID)
        hwnd=obj.FindWindow("","三国策online(disconnect when "&nnnnn&")")
        pID=obj.GetWindowThreadProcessId(hwnd)
        retv=obj.TerminateProcess(pID)
        nnn=nnn+1
        Delay chbtime
    EndFor 
    Delay 3000
    //下变速齿轮
    Plugin hwnd = Window.Find(0,"变速齿轮 0.451")
    If hwnd = 0
        VBSCall RunApp(filepath&"变速齿轮\变速齿轮.exe")
    Else 
        KeyPress 106,1
        Delay 200
        Plugin Window.Active(hwnd)
    EndIf 
    Delay 2000
    xx=2
    While xx > 0
        IfColor 604,356,39cb73,2
            Goto 变速齿轮
        Else 
            Delay 200
        EndIf 
        Gosub 重新进入
    EndWhile 
    Rem 变速齿轮
    Delay 5*200
    // 先按alt
    KeyDown 18,1
    Delay 200
    //按 r （这样为alt＋r）
    KeyPress 82,1
    Delay 200
    KeyUp 18 1
    xx=2
    While xx > 0
        IfColor 553,184,7f,2
            xx=-2