Option Explicit
' By音符,QQ:337855632 Time:2020-03-17 功能定制:20元起
Const C_GameWith = 800
Const C_GameHeight = 600
Const C_GameSmallWith = 240
Const C_GameSmallHeight = 180
Dim GamehWnd, dm, AppName, config, bgkms, KMData
config = ".\Angel.ini"
AppName = "Angel_HX"
Function CmpMutlColor(Args, Sleep)
    Dim i
    For i = 0 To UBound(Args)
        CmpMutlColor = (dm.CmpColor(Args(i)(0), Args(i)(1), Args(i)(2), Args(i)(3)) = 0)
        If CmpMutlColor = False Then Exit For
        Api.Delay Sleep
    Next
End Function

Const C_WorkProgress = 4
Class QQSpeed_Class
    Public [局数], [位置], [方向键]
    Private [防止休眠], [游戏大区], DownCpu, StartMode
    Private HIndex, WorkList, HNext, hStatic
    Private Game, iTime(3), StartTime, MarkTime, Angel, Vip
    Private leave
    Public Function [准备游戏]()  '准备游戏'
        Do
            Api.Delay 10
        Loop
    End Function
    Public Sub Start(Arys)
        Dim Stmp, Zh
        HIndex = Arys
        ThreadEnter 1
        With Globals("Form")
            [方向键] = IIf(.Controls("方向按键").ListIndex, 87, 38)
            If .Controls("游戏降耗").Value Then
                DownCpu = Int(.Controls("游戏降耗T").text)
            End If
        End With

        WorkList = Globals("QQSpeed").Item(HIndex)
        JScript.AddCode Globals("CString_Class")
        ThreadLeave 1
        If UBound(WorkList) = 0 Then
            Exit Sub
        End If
        [局数] = WorkList(C_WorkProgress + 2)
        Set CString = JScript.Eval("new CString_Class")
        Set Angel = CreateObject("QQSpeed.Angel")
        Call Angel.Init(Array(JScript, Window))
        Set Vip = Angel.Vip
        Zh = Split(WorkList(3), "----")
        [游戏大区] = Array("*", "电信", "联通", "电信2")(File.ReadINI(AppName, "游戏大区.ListIndex", config, 0))
        GamehWnd = WorkList(C_WorkProgress + 1)
        if Api.ECall("user32", "IsWindow", GamehWnd) = False then
            If WorkList(2) = "" Then
                If UBound(Zh) > 0 Then
                    GamehWnd = Vip.GethWnd(Zh(0), [游戏大区])
                End If
            Else
                GamehWnd = Window.FindEx(0, "GAMEAPP", "QQ飞车*【" & [游戏大区] & "区】*【" & WorkList(2) & "】*", 2)
            End If
        End If
        Call [创建大漠]
        If UBound(Zh) > 0 And GamehWnd = 0 Then
            GamehWnd = [自动上号](Zh(0), Zh(1), "自动上号")
        End If
        If GamehWnd = 0 Then Exit Sub
        If WorkList(2) = "" Then
            Zh = Split(Window.GetText(GamehWnd), "【")
            Globals("Form").Controls("ListBox").object.ListBox.List(HIndex) = Left(Zh(3), InStr(Zh(3), "】") - 1)
        End If
        If [调整窗口](GamehWnd) = False Then
            ' ListView.SetText ListhWnd(0), HIndex, 5, "分辨率错误"
            MsgBox "请手动设置分辨率:" & C_GameWith & " x " & C_GameHeight & "(桌面显示设置为100%)", 4096, "无法调整窗口分辨率!"
            Exit Sub
        End If
        Call [绑定窗口](GamehWnd)
        If InStr(File.ReadINI(AppName, "其他设置", config), "1防止休眠") Then [防止休眠] = 1
        Call SetTime(0, True)
        StartTime = Now()
         Set Game = Eval("New [QQSpeed_" & "火线追击" & "]")
        Set Game.Father = Me
        Call Game.GuaJi
        HNext = True
    End Sub
    Public Function [调整窗口](hWnd)  '调整窗口'
        Dim x1, y1, x2, y2
        Dim i
        Window.Restore hWnd
        Window.Active hWnd
        Api.Delay 500
        For i = 0 To 15
            Call Window.GetClientRect(hWnd, x1, y1, x2, y2)
            If x2 = C_GameSmallWith And y2 = C_GameSmallHeight Then
                [调整窗口] = True
                Exit Function
            ElseIf x2 <> C_GameWith Or y2 <> C_GameHeight Then
                Window.KeyPress hWnd, 119
                Api.Delay 800
            Else
                [调整窗口] = True
                Exit Function
            End If
        Next
    End Function
    Private Sub [创建大漠]()
        Set dm = CreateObject("dm.dmsoft")
        dm.SetShowErrorMsg 0
    End Sub
    Private Sub [绑定窗口](hWnd)
        Dim i, iLeft, iTop, ScreenWidth, ScreenHeight, HeightCount, WidthCount
        i = File.ReadINI(AppName, "窗口排列.ListIndex", config, 0)
        ScreenWidth = Api.ECall("user32", "GetSystemMetrics", 0)
        ScreenHeight = Api.ECall("user32", "GetSystemMetrics", 1)
        If i = 0 Or i = 3 Then
            iTop = 50
            HeightCount = (ScreenHeight - C_GameSmallHeight + iTop) \ iTop
        Else
            iTop = C_GameSmallHeight
            HeightCount = ScreenHeight \ iTop
        End If
        If i = 2 Or i = 5 Then
            WidthCount = ScreenWidth \ C_GameSmallWith
            iLeft = (HIndex Mod WidthCount) * C_GameSmallWith
            iTop = (HIndex \ WidthCount) * C_GameSmallHeight
        Else
            iLeft = (HIndex \ HeightCount) * C_GameSmallWith
            iTop = (HIndex Mod HeightCount) * iTop
        End If
        iLeft = IIf(i >= 3, ScreenWidth - C_GameSmallWith + 5 - iLeft, -5 + iLeft)
        If iLeft > ScreenWidth Then
             iLeft = -5
        ElseIf iLeft < -C_GameSmallWith Then
            iLeft = ScreenWidth - C_GameSmallWith + 5
        End If
        If iTop > ScreenHeight Then iTop = 0
        Window.SetStyle hWnd, 128
        Window.Size hWnd, C_GameWith, C_GameHeight
        Window.ClientMove hWnd, iLeft, iTop, C_GameSmallWith, C_GameSmallHeight
        Set bgkms = CreateObject("QMPlugin.bgkms6_10")
        KMData = bgkms.KMTransform(hWnd, 1)
        If KMData = 0 Then
            MsgBox "获得窗口数据失败!请检测杀毒设置!"
            Api.StopThread -1
        End If

        Const WS_CHILD = &H40000000
        Const WS_CLIPSIBLINGS = &H4000000
        Const WS_VISIBLE = &H10000000
        hStatic = Api.ECall("user32.dll", "CreateWindowExW", 0, "Static", "局数:" & [局数], WS_CHILD Or WS_VISIBLE, C_GameSmallWith * 0.5, C_GameSmallHeight * 0.3, 100, 20, _
        hWnd, 0, Api.ECall("kernel32.dll", "GetModuleHandleW", 0), 0)

        Api.Delay 100
        i = dm.BindWindowEx(hWnd, "dx2", "windows", "windows", "dx.public.disable.window.size", 0)
        Api.Delay 200
        ' If DownCpu then dm.DownCpu DownCpu
        If DownCpu then bgkms.SaveCPU hWnd, DownCpu
    End Sub
    Private Function [上号判断](hWnd, Message)
        Dim i, hWnds, hWndE
        hWnds = Window.EnumWindows(0, "#32770", "QQ安全中心", 32)
        For i = 0 To UBound(hWnds)
            If Vip.IsSameWindow(hWnds(i), hWnd) Then
                If UBound(Window.EnumWindowsEx(hWnds(i), "Static", "密码验证错误", 32)) >= 0 Then
                    Message = "密码错误"
                    WorkList(C_WorkProgress + 3) = &H10000 * 3
                    [上号判断] = True
                    Exit Function
                ElseIf UBound(Window.EnumWindowsEx(hWnds(i), "Static", "*验证码*", 2 + 32)) >= 0 Then
                    Message = "验证码"
                    If InStr(File.ReadINI(AppName, "其他设置", config), "1自动滑块") Then
                        Call Angel.Slider(hWnds(i))
                    End If
                End If
            End If
        Next
        hWnds = Window.EnumWindows(0, "#32770", "提示", 32)
        For i = 0 To UBound(hWnds)
            If Vip.IsSameWindow(hWnds(i), hWnd) Then
                hWndE = Window.FindEx(hWnds(i), "maqHyperTextCtrl", 0, 32)
                If hWndE Then
                    Message = Angel.GetWindowText(hWndE)
                    If InStr(Message, "网络环境") = 0 Then
                        WorkList(C_WorkProgress + 3) = &H10000 * 2
                    End If
                Else
                    Message = "网络环境异常"
                End If
                [上号判断] = True
            End If
        Next
    End Function
    Private Function [自动上号](QQ, Pwd, Message)
        Dim i, Count, TryMax, hWnds, hWnd, Wait, path, ID
        Wait = File.ReadINI(AppName, "上号间隔.text", config, 50)
        If File.ReadINI(AppName, "登录重试.Value", config, 1) Then
            TryMax = File.ReadINI(AppName, "登录重试T.text", config, 3)
        End If
        If InStr(File.ReadINI(AppName, "其他设置", config), "1飞车路径") Then
            path = File.ReadINI(AppName, "飞车路径", config)
        End If
        Do
            Count = Count + 1
            ' ListView.SetText ListhWnd(0), HIndex, 4, Message & " " & Count
            ThreadEnter 3 '线程锁
            Api.Delay 100
            hWnds = Window.EnumWindows(0, "#32770", "QQ飞车", 32)
            For i = 0 To UBound(hWnds)
                dm.SetWindowState hWnds(i), 0
            Next
            ID = Window.GetInfo(Vip.QQSpeedLogin(QQ, Pwd, File.ReadINI(AppName, "游戏大区.ListIndex", config, 0) - 1, , , path), 3)
            Api.Delay 1000
            hWnds = Vip.EnumWindows("#32770", "QQ飞车", "330-100", "220-100")
            If UBound(hWnds) >= 0 Then dm.SetWindowText hWnds(0), "QQ飞车" & QQ
            ThreadLeave 3
            For i = 0 To Wait
                hWnd = Window.Find("#32770", "QQ飞车" & QQ)
                If hWnd Then
                    Api.Delay 1000
                    If [上号判断](hWnd, Message) Then
                        i = 999
                        dm.SetWindowState hWnd, 13
                        Exit For
                    End If
                Else
                    Exit Do
                End If
            Next
            If i > Wait Then
                dm.SetWindowState hWnd, 0
                Api.Delay 200
                dm.SetWindowState hWnd, 13
            End If
        Loop While Count <= TryMax
        If i > Wait Then
            ' ListView.SetText ListhWnd(0), HIndex, 4, Message
        ElseIf WorkList(2) = "" Then
            [自动上号] = Vip.GethWnd(QQ)
            If [自动上号] = 0 Then  '不支持热启动
                [自动上号] = Vip.GethWndByID(ID)
            End if
            WorkList(C_WorkProgress + 1) = [自动上号]
        Else
            [自动上号] = Window.FindEx(0, "GAMEAPP", "QQ飞车*【" & [游戏大区] & "区】*【" & WorkList(2) & "】*", 2)
        End If
        ThreadEnter 2
        File.WriteText ".\上号日志.txt", "上号时间:" & Now & String(3, vbTab) & "模式:火线追击" & String(3, vbTab) & "第" & HIndex + 1 & "个号:" & QQ & _
        String(3, vbTab) & "局数:" & [局数] & String(3, vbTab) & IIf([自动上号], "【成功】", "【失败】" & Message) & vbCrLf & vbCrLf, True
        ThreadLeave 2
        Api.Delay 1000
        If [自动上号] = 0 Then
            WorkList(C_WorkProgress + 3) = WorkList(C_WorkProgress + 3) Or 2
            Api.StopThread -1
        End If
    End Function
    Private Function [掉线重连]()
        Dim Wait, Zh
        dm.SetWindowState GamehWnd, 13
        If File.ReadINI(AppName, "上号延时.Value", config, 1) Then
            Wait = File.ReadINI(AppName, "上号延时T.text", config, 5)
        End If
        Api.Delay Wait * 1000
        Zh = Split(WorkList(3), "----")
        GamehWnd = [自动上号](Zh(0), Zh(1), "掉线重连")
        If GamehWnd = 0 Then Exit Function
        If [调整窗口](GamehWnd) = False Then
            ' ListView.SetText ListhWnd(0), HIndex, 5, "分辨率错误"
            Exit Function
        End If
        Call [绑定窗口](GamehWnd)
        [掉线重连] = True
    End Function
    Public Sub [完成一局](Sleep)
        [局数] = [局数] + 1
        Api.ECall "user32", "SetWindowTextW", hStatic, "局数:" & [局数]
        Api.Delay Sleep
        ' ListView.SetText ListhWnd(0), HIndex, 5, "已完成:" & [局数]
    End Sub
    Public Sub [清理弹窗](Mode)
        Dim IntX, IntY
        If Cbool(State([位置])) And Cbool(Mode And 2) = False Then  '清理 黑屏
            Window.KeyUp GamehWnd, 18
            If dm.FindColor(203,28,215,42, "FFFFFF", 0.9, 6, IntX, IntY) = 0 Then
                Window.KeyPress GamehWnd, 27
                Api.Delay 200
            End If
            If dm.FindMultiColor(130, 10, 210, 65, "F4892A-111111", "3|0|202020-202020,3|1|202020-202020", 0.9, 6, IntX, IntY) Then
                Window.LeftClick GamehWnd, IntX, IntY
                Api.Delay 300
            End If
        ElseIf  Cbool(Mode And 1) = False Then
            If CmpMutlColor(Array(Array(233, 4, "804A1B-784315", 0.9), Array(236, 3, "131313-0A0A0A", 0.9), Array(2, 7, "151D2F-060606", 0.9)), 2) Then '活动推荐
                Window.LeftClick GamehWnd, 233, 4
                Api.Delay 300
            End If
        End If
        If CmpMutlColor(Array(Array(157,88,"FFFFFF-070707",0.9),Array(166,80,"36727D-060606",0.9),Array(65,75,"272727-060606",0.9),Array(207,37,"333333-060606",0.9)), 2) then '游戏内 退出
            Window.LeftClick GamehWnd, 179,66
            Api.Delay 300
        End If
    End Sub
    Public Sub [点击位置]([位置], Flag)
        Dim i, ClickTo, j, IntX, IntY
        i = InStr([位置], "_")
        If i Then
            Call [点击位置](Left([位置], i - 1), 0)
        End If
        Select Case [位置]
        Case "多人游戏"
            ' Window.LeftClick GamehWnd, 40,25 '经典飞车
            For i = 0 To 2
                dm.MoveTo 37, 7
                Window.LeftClick GamehWnd, 37, 7
                Api.Delay 500
            Next
            Window.LeftClick GamehWnd, 140, 141 '关消息窗口
        Case "多人游戏_快速进入"
            ClickTo = Split(Flag, "-")
            Window.LeftClick GamehWnd, 37, 7
            Api.Delay 500
            IntX = 20
            For i = 0 To UBound(ClickTo)
                IntY = ClickTo(i)
                bgkms.MoveTo KMData, IntX, IntY
                ' dm.MoveTo IntX, IntY
                Api.Delay 300
                Window.LeftClick GamehWnd, IntX, IntY
                Api.Delay 300
                IntX = IntX + 37
            Next
        Case "菜单"
            dm.MoveTo 2, 177
            Window.LeftClick GamehWnd, 2, 177
            Api.Delay 500
        Case "菜单_多人游戏"
            Const TOP = 21
            dm.MoveTo 40, 110
            Api.Delay 600
            Window.LeftClick GamehWnd, 100, TOP + Flag * 12  '双人冲锋=3'
        End Select
    End Sub
    Public Sub [强制到位置](Obj, BackFunc, IniTime)
        Dim This
        Set This = Obj
        IniTime = True
        Call SetTime(1, IniTime)
        [位置] = 0
        Do Until Obj.IsIn() Or CBool(Obj.Where(1))
            'Call Api.CallObj(Obj, BackFunc, 1)
            Call [清理弹窗](0)
            ExeCute "This." & BackFunc
            Call [清理弹窗](0)
            Api.Delay 500
            If Handling(1, 60, IniTime) = -1 Then
                Call [强制到位置](Obj, BackFunc, IniTime)
                Exit Do
            End If
        Loop
        IniTime = True
    End Sub
    Public Function [位置被改变](Num, IniTime)
        Dim i
        If [位置] <> Num Then
            [位置] = Num
            IniTime = True
            [位置被改变] = 1
            Select Case [位置]
            Case 0
                ' ListView.SetText ListhWnd(0), HIndex, 5, "准备中:" & [局数]
            Case 1
                ' ListView.SetText ListhWnd(0), HIndex, 5, "游戏中:" & [局数]
            End Select
            Call SetTime(1, IniTime)
        End If
    End Function

    Public Function Where(ByVal Flag)
        Select Case Flag
        Case 0 '游戏大厅'
            If CmpMutlColor(Array(Array(1, 2, "FFF36E-08090C", 0.9), Array(47, 3, "0DBDE2-0C140E", 0.9), Array(90, 3, "0DBDE2-0C140E", 0.9)), 20) Then
               Where = 1 + dm.CmpColor(309, 5, "F8D95B-0D0F07", 0.9)
            End If
        Case 1 '游戏中'
            Where = CmpMutlColor(Array(Array(47, 30, "B7B7B8-111111", 0.9), Array(30, 30, "B5B5B6-111111", 0.9), Array(207, 37, "FFFFFF-111111", 0.9)), 20)
        Case 2 '游戏房间'
            Where = CmpMutlColor(Array(Array(30, 2, "FFE66D-06080B", 0.9), Array(229, 5, "F8D85B-08100D", 0.9)), 2) And dm.CmpColor(0, 2, "FFF472-111111", 0.9) = 1
        End Select
    End Function
    Public Function State(ByVal WZ) '弹窗
        If WZ = 2 Or WZ = 3 Then
            WZ = 0
        End If
        If WZ = 0 Then
            If dm.CmpColor(229, 5, "312B12-080808", 0.9) = 0 Then
                State = 1
            ElseIf CmpMutlColor(Array(Array(34, 2, "332F15-08090C", 0.9), Array(76, 3, "03252D-0C140E", 0.9)), 20) Then
                State = 2   '游戏大厅'
            End If
        ElseIf WZ = 1 Then

        End If
    End Function
    Public Function SetTime(Index, IniTime)
        If IniTime Then
            iTime(Index) = Now()
            IniTime = False
            SetTime = True
        End If
    End Function
    Public Function Handling(Index, S, IniTime)
        Dim i
        Handling = 0
        If DateDiff("s", iTime(Index), Now()) > S Then '超时处理
            IniTime = True
            Handling = Detect(1)
        End If
        i = DateDiff("s", StartTime, Now())
        If i - MarkTime >= 10 Then
            MarkTime = i
            If Handling = 0 Then Handling = Detect(0)
            If [防止休眠] Then
                [防止休眠] = -[防止休眠]
                Call Api.ECall("user32", "mouse_event", &H1, [防止休眠], [防止休眠], 0, 0)
            End If
        End If
    End Function
    Public Function Detect(Default)
        Dim x1, y1, x2, y2
        Select Case True
        Case Default <> 0
            Detect = Default
        Case Api.ECall("user32", "IsWindow", GamehWnd) = 0
            Detect = 11
        Case Else
            For x1 = 0 To 20
                If Api.ECall("user32", "IsHungAppWindow", GamehWnd) = 0 Then
                    Exit For
                End If
                Api.Delay 1000
            Next
            If x1 = 21 Then
                Detect = 12
            Else
                Call Window.GetClientRect(GamehWnd, x1, y1, x2, y2)
                If x2 <> C_GameSmallWith Or y2 <> C_GameSmallHeight Then
                    Call [调整窗口](GamehWnd)
                End If
            End If
        End Select
        If Detect Then
            If InStr(WorkList(3), "----") Then
                If [掉线重连] Then
                    ' Call SetTime(0, True)
                    ' StartTime = Now()
                    ' MarkTime = 0
                    Detect = -1
                End If
            End If
        End If
    End Function
    Public Sub ThreadEnter(Nun)
        Api.EnterCriticalSection Nun
        leave = Nun
    End Sub
    Public Sub ThreadLeave(Nun)
        Api.LeaveCriticalSection Nun
        leave = 0
    End Sub
    Public Function IIf(p, a, b)
        If p Then
            IIf = a
        Else
            IIf = b
        End If
    End Function
    Private Sub GameOver()
        If leave Then Api.LeaveCriticalSection leave  '防止手动中止
        If HNext Then
            dm.SetWindowState GamehWnd, 13
            WorkList(C_WorkProgress + 3) = 1
            Api.EnterCriticalSection 1
            Globals("QQSpeed").Item(HIndex) = WorkList
            Call Api.ECall("user32.dll", "SendMessageW", Globals("Form").hWnd, &H8004, HIndex, StartMode)
            Api.LeaveCriticalSection 1
            Exit Sub
        End If

        WorkList(C_WorkProgress + 2) = [局数]
        Api.EnterCriticalSection 1
        Globals("QQSpeed").Item(HIndex) = WorkList
        If WorkList(C_WorkProgress + 3) And 2 Then
            Call Api.ECall("user32.dll", "SendMessageW", Globals("Form").hWnd, &H8004, HIndex, StartMode)
        End If
        Api.LeaveCriticalSection 1
        If GamehWnd = 0 Then Exit Sub
        Dim x1, y1, x2, y2
        Window.GetClientRect GamehWnd, x1, y1, x2, y2
        If x2 = C_GameSmallWith Then
            ' If DownCpu then dm.DownCpu 0
            If DownCpu then bgkms.SaveCPU GamehWnd, 0
            bgkms.KMUntransform KMData
            dm.UnBindWindow
            Api.Delay 50
            Window.SetStyle GamehWnd, 1 + 16 + 128
            Window.Size GamehWnd, C_GameWith, C_GameHeight
            Api.Delay 100
            Window.ClientMove GamehWnd, 0, 0, C_GameWith, C_GameHeight
        End If
    End Sub
    Private Sub Class_Initialize()
        Window.Delay = "40-80"
    End Sub
    Private Sub Class_Terminate()
        GameOver
        ' Api.EnterCriticalSection 1
        ' Globals("Form").Controls("ListBox").object.ListBox.Selected(HIndex) = False
        ' Api.LeaveCriticalSection 1
    End Sub
End Class
Class [QQSpeed_火线追击]
    Private QQSpeed
    Public Sub GuaJi()
        Dim IniTime
        Dim i
        QQSpeed.[强制到位置] Me, "Go", IniTime
        Do
            If IsIn() Then
                If QQSpeed.[位置被改变](0, IniTime) < 0 Then Exit Do
                Window.LeftClick GamehWnd, 80, 5   '单人匹配'
                Api.Delay 200
            ElseIf Where(1) Then
                Api.Delay 1000
                If dm.CmpColor(227, 144, "FB2C2D-0A0A0A", 0.9) = 0 Then
                    dm.KeyDown QQSpeed.[方向键]
                    If dm.CmpColor(152, 137, "C6F2F8-160A08", 0.9) = 0 Then
                        For i = 0 To 50
                            Window.KeyPress GamehWnd, QQSpeed.[方向键]
                            Api.Delay 50
                        Next
                    End If
                End If
                Call QQSpeed.[位置被改变](1, IniTime)
            ElseIf Where(2) Then
                Window.LeftClick GamehWnd, 230, 4 '退出房间'
                If QQSpeed.[位置被改变](0, IniTime) < 0 Then Exit Do
            ElseIf Where(0) Then
                QQSpeed.[强制到位置] Me, "Go", IniTime
            Else
                If CmpMutlColor(Array(Array(162, 89, "FCFEFE-0A0808", 0.9), Array(182, 77, "F6FBFE-0C0A08", 0.9), Array(235, 169, "440909-080808", 0.9), Array(157, 111, "D02624-090808", 0.9)), 2) Then '匹配中
                    If dm.CmpColor(229, 5, "F8D85B-08100D", 0.9) = 0 And dm.FindColor(110, 166, 124, 171, "FFFF2A-0A3127", 0.9, 0, i, i) = 1 Then '超时
                        Window.LeftClick GamehWnd, 230, 4 '退出房间'
                        IniTime = True
                        Call QQSpeed.SetTime(1, IniTime)
                    End If
                    Api.Delay 500
                End If
                QQSpeed.[清理弹窗](0)
            End If
            If QQSpeed.[位置] = 0 Then
                Select Case QQSpeed.Handling(1, 150, IniTime)
                Case -1
                    QQSpeed.[强制到位置] Me, "Go", IniTime
                End Select
            ElseIf QQSpeed.[位置] = 1 Then
                Select Case QQSpeed.Handling(1, 300, IniTime)
                Case -1
                    QQSpeed.[强制到位置] Me, "Go", IniTime
                End Select
                If dm.CmpColor(47, 30, "B7B7B8-111111", 0.9) = 1 Then
                    QQSpeed.[位置] = 2  '颁奖中'
                    QQSpeed.[完成一局] 8000
                End If
            End If
            Api.Delay 100
        Loop
    End Sub
    Public Function IsIn() '是否在边境'
        If Where(2) Then Window.LeftClick GamehWnd, 230, 4 '退出房间'
        IsIn = CmpMutlColor(Array(Array(211, 32, "0971FF-070906", 0.9), Array(130, 33, "0863F6-060707", 0.9), Array(102, 32, "D6D6D6-090909", 0.9), Array(52, 32, "086FFF-060806", 0.9)), 20)
    End Function
    Public Function Where(Flag)
        Where = QQSpeed.Where(Flag)
    End Function
    Public Sub Go()
        QQSpeed.[点击位置] "多人游戏_快速进入", "163-163"
    End Sub
    Public Property Set Father(Obj) '继承?'
        Set QQSpeed = Obj
    End Property
End Class