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