Delay 5
        KeyPress "F2", 1
        Delay 200
    End If
    //多开5
    If h >= 5 Then 
        Call Plugin.Window.Active(JB5)
        Delay 200
        KeyPress "Num -", 2
        Delay 5
        KeyPress "F12", 1
        Delay 5
        KeyPress "F2", 1
        Delay 200
    End If
    //多开6
    If h >= 6 Then 
        Call Plugin.Window.Active(JB6)
        Delay 200
        KeyPress "Num -", 2
        Delay 5
        KeyPress "F12", 1
        Delay 5
        KeyPress "F2", 1
        Delay 200
    End If
    //返回大号
    Delay 500
    Call Plugin.Window.Active(JB1)
    Delay 500
    If Form1.baojing.Value=1 Then 
        Call 掉线检测x()
    End If
    //模式=============================================模式太鼓
    If Form1.moshitaigu.Value=1 Then 
        //房主动作
        If Form1.djy.ListIndex = 1 Then 
            //开局后房主蹦15秒
            Dim t1
            t1 = time
            Rem 房主按键
            KeyPress "J", 1
            KeyPress "J", 1
            t1_2 = time
            mytime_diff = DateDiff("s",t1,t1_2)
            If mytime_diff > 15 Then 
                Goto 对局按键结束
            Else 
                Goto 房主按键
            End If
        End If
        //房员动作
        If Form1.djy.ListIndex = 2 Then 
            //开局后房员蹦8秒
            Dim t2
            t2 = time
            Rem 房员按键
            KeyPress "J", 1
            KeyPress "J", 1
            t2_2 = time
            mytime_diff = DateDiff("s",t2,t2_2)
            If mytime_diff > 8 Then 
                Goto 对局按键结束
            Else 
                Goto 房员按键
            End If
        End If
    End If
    //===================================================模式太鼓结束
    Rem 对局按键结束
    Delay 130000
    If Form1.baojing.Value = 1 Then 
        Call 掉线检测x()
    End If
    Call Plugin.Window.Active(Jubing)
    Rem fh
    IfColor 210+Ux,151+Uy,"F7FF",0 Then
        Call 返回x()
    Else 
        Delay 2000
        Goto fh
    End If
End Sub


Sub 房间中x()
    //贡献框
    IfColor 516+Ux, 207+Uy, "FFFAE5", 0 Then
        Delay 100
        MoveTo 516 + Ux, 207 + Uy
        Delay 80
        LeftClick 1
        Delay 80
        MoveTo Ux, Uy
    Else
    End If
    //点开始
    IfColor 686+Ux,529+Uy,"FFFAE7",0 Then
        KeyPress "F5", 1
        Delay 1000