DNF2020年全新脚本展示第一部分

DNF2020年全新脚本展示

1.脚本界面如图所示

2.刷图效果展示

3.部分脚本代码展示，按键精灵编写，由于字数限制无法展示全部

Global 超时, 游戏存在, 副本, 副本难度, 组队成功, 图内角色位置, 是否路口, BOSS, 退出副本, 切换下个角色, 向下, 刷图次数, 通关次数, wegame登录,wegamehwnd,启动方式,窗口1hwnd,窗口2hwnd ,账号刷完
Call Plugin.Msg.Tips("启动程序")
Call 注册LB
Call 主线程
Sub 主线程()
    是否路口 = "假"
    账号刷完 = "假"
    If Form1.OptionBox1.Value = 1 Then 
        启动方式 = 0
    ElseIf Form1.OptionBox2.Value = 1 Then
        启动方式 = 1
    End If
    通关次数 = 0
    Call 注册LB
    检测hwnd = BeginThread(检测线程)
    Call Plugin.Msg.Tips("识别游戏")
    Call 识别游戏
    超时 = 100
    If 游戏存在 = "真" Then 
        Call Plugin.Msg.Tips("游戏存在")
        Goto 下一步操作
        游戏存在 = ""
    End If
    Call 判断是否登录wegame
    If wegame登录 = "真" Then 
        For 2
            Call Lib.系统.结束进程("DNFchina.exe")
            Call Lib.系统.结束进程("DNFchinaTest.exe")
            Call Lib.系统.结束进程("Client.exe")
            Call Lib.系统.结束进程("DNF.exe")
            Call Lib.系统.结束进程("AdvertDialog.exe")
            Call Lib.系统.结束进程("AdvertTips.exe")
            Call Lib.系统.结束进程("WerFault.exe")
            Call Lib.系统.结束进程("QQDL.exe")
            Call Lib.系统.结束进程("ExceptionReport.exe")
            Call Lib.系统.结束进程("QQLogin.exe")
            Call Lib.系统.结束进程("Repair.exe")
            Call Lib.系统.结束进程("Tencentdl.exe")
            Call Lib.系统.结束进程("TASLogin.exe")
            Call Lib.系统.结束进程("bugreport.exe")
            Call Lib.系统.结束进程("DirverInject.exe")
            Call Lib.系统.结束进程("TenioDL.exe")
            Call Lib.系统.结束进程("iexplore.exe")
            Call Lib.系统.结束进程("DNF.exe")
            Call Lib.系统.结束进程("GameLoader.exe")
            Call Lib.系统.结束进程("rundll32.exe")
        Next
    Else 
        For 2
            Call 清理进程	
        Next
    End If
    超时 = 100
    Call Plugin.Msg.Tips("启动wegame")
    Call 启动wegame
    超时 = 100
    Call 调整1号窗口
    Call 窗口1进入游戏
    Call Plugin.Msg.Tips("1号窗口启动完毕")
    超时 = 100
    If Form1.CheckBox15.Value = 1 Then 
        Call 启动2号DNF
        超时 = 100
        Call 处理wegame安全验证
        超时 = 100
        Call 调整2号窗口
        Call 窗口2进入游戏
        Delay 5000
        Call 切换到1号
        KeyPress "Esc", 1
        Delay 300
        Call 移动单击(747, 127)
        Delay 300
        Call 移动单击(747, 127)
        Delay 2000
        Call 切换到2号
        KeyPress "Esc", 1
        Delay 300
        Call 移动单击(1279,561)
        Delay 300
        Call 移动单击(1279,561)
        超时 = 100
    End If
    Call 切换到1号
    KeyPress "P", 1
    Delay 2000
    For 2
        KeyPress "Esc", 1
        Delay 300
        Call 移动单击(747, 127)
        Delay 300
        Call 移动单击(747, 127)
    Next
    Call LB.FindStr(1072,23,1395,122, "制裁", "ff3232-000000|ffffff-000000", 1.0, intX, intY)
    If intX > 0 And intY > 0 Then 
        EndScript 
    End If
    If Form1.CheckBox15.Value = 1 Then 
        Call 切换到2号
        KeyPress "P", 1
        Delay 2000
        For 2
            KeyPress "Esc", 1
            Delay 300
            Call 移动单击(1279,561)
            Delay 300
            Call 移动单击(1279, 561)
        Next
        Call 切换到1号
        Call LB.FindStr(1606,457,1920,553, "制裁", "ff3232-000000|ffffff-000000", 1.0, intX, intY)
        If intX > 0 And intY > 0 Then 
            EndScript 
        End If
    End If 
    Rem 下一步操作
    是否路口 = "假"
    BOSS = "假"
    游戏存在 = "真"
    刷图次数 = 0
    color1 = LB.GetColor(473, 553)
    If Form1.CheckBox15.Value = 1 Then 
        color2 = LB.GetColor(1006, 988)
    End If
    超时 = 100
    If color1 = "333333" or color2 = "333333" Then 
        Call LB.FindPic(371,558,408,595, "Attachment:\爱心.bmp", "000000", 0.9, 0, intX, intY)
        If intX > 0 And intY > 0 Then 
            StopThread (检测hwnd)
            账号刷完 = "真"
            Call 切换到1号赛利亚
            If Form1.CheckBox15.Value = 1 Then 
                Call 切换到2号赛利亚
            End If
            MessageBox "账号已刷完"
            KeyPress "F12", 1
            KeyPress "F12", 1
            EndScript
        End If
        Call 窗口1入库
        If Form1.CheckBox15.Value = 1 Then 
            Call 窗口2入库
        End If 
        超时 = 100
        Call 窗口1切换角色
        If Form1.CheckBox15.Value = 1 Then 
            Call 窗口2切换角色
        End If 
        超时 = 100
        Goto 下一步操作
    End If
    超时 = 100
    If Form1.CheckBox14.Value = 1 Then 
        If Form1.CheckBox17.Value = 1 Then 
            KeyPress "Esc", 1
            Delay 300
            Call 移动单击(747, 127)
            Delay 300
            Do
                Call 创建队伍
                Call 同意入队
                Call 判断组队成功
                If 组队成功 = "真" Then 
                    Exit Do 
                End If
                Call 切换到1号赛利亚
            Loop
        Else  
        End If
    End If
    If Form1.CheckBox14.Value = 1 Then 
        If Form1.CheckBox18.Value = 1 Then 
            KeyPress "Esc", 1
            Delay 300
            Call 移动单击(747, 127)
            Delay 300
            Do
                Call 加入队伍1
                Call 判断组队成功
                If 组队成功 = "真" Then 
                    Exit Do 
                End If
                Call 切换到1号赛利亚
            Loop
        Else  
        End If
    End If
    If Form1.CheckBox15.Value = 1 Then 
        If Form1.CheckBox16.Value = 1 Then 
        Else 
            Call 双开组队
        End If
        超时 = 100
        Call 启动同步
    Else 
        Call 切换到1号
    End If
    超时 = 100
    If Form1.CheckBox8.Value = 1 Then 
        If Form1.CheckBox16.Value = 1 Then 
            超时 = 100
            Call 走到工业副本门
            超时 = 100
            Call 选择特伦斯副本1
            Call 选择特伦斯副本2
            Call 切换到1号
            超时 = 100
            Do
                Rem 再次刷图7
                超时 = 100
                Call 判断特伦斯进图1
                Call 判断特伦斯进图2
                超时 = 100
                For 100
                    Call 确定特伦斯人物图内位置1
                    Call 确定特伦斯人物图内位置2
                    Call 确定特伦斯当前房间是否开门1
                    Call 确定特伦斯当前房间是否开门2
                    超时 = 200
                    If 切换下个角色 = 1 Then 
                        切换下个角色 = 0
                        Exit Do 
                    End If
                    If BOSS = "真" Then 
                        BOSS = "假"
                        Goto 再次刷图7
                    End If
                Next 
            Loop
        Else 
            超时 = 100
            Call 走到工业副本门
            超时 = 100
            Call 选择特伦斯副本
            超时 = 100
            Do
                Rem 再次刷图
                超时 = 100
                Call 判断特伦斯进图
                超时 = 100
                For 10
                    Call 确定特伦斯人物图内位置
                    Call 确定特伦斯当前房间是否开门
                    If Form1.CheckBox14.Value = 1 Then 
                        If Form1.CheckBox18.Value = 1 Then 
                            If 刷图次数 >= 7 Then 
                                刷图次数 = 0
                                超时 = 200
                                Exit Do 
                            End If
                        Else 
                            超时 = 200
                        End If
                    Else 
                        If 刷图次数 >= 7 Then 
                            刷图次数 = 0
                            超时 = 200
                            Exit Do 
                        End If
                    End If
                    If 切换下个角色 = 1 Then 
                        切换下个角色 = 0
                        Exit Do 
                    End If
                    If BOSS = "真" Then 
                        BOSS = "假"
                        Goto 再次刷图
                    End If
                Next 
            Loop
        End If 
    End If
    If Form1.CheckBox6.Value = 1 Then 
        超时 = 100
        Call 走到根特副本门
        超时 = 100
        Call 选择根特副本
        超时 = 100
        Do
            Rem 再次刷图1
            超时 = 100
            Call 判断根特北门进图
            超时 = 100
            For 10
                Call 确定根特北门人物图内位置
                Call 确定根特北门当前房间是否开门
                If 刷图次数 >= 7 Then 
                    刷图次数 = 0
                    超时 = 200
                    Exit Do 
                End If
                If 切换下个角色 = 1 Then 
                    切换下个角色 = 0
                    Exit Do 
                End If
                If BOSS = "真" Then 
                    BOSS = "假"
                    Goto 再次刷图1
                End If
            Next 
        Loop
    End If
    If Form1.CheckBox10.Value = 1 Then 
        超时 = 100
        Call 走到能源熔炉副本门
        超时 = 100
        Call 选择能源熔炉副本
        超时 = 100
        Do
            Rem 再次刷图2
            超时 = 100
            Call 判断能源熔炉进图
            超时 = 100
            For 10
                Call 确定能源熔炉人物图内位置
                Call 确定能源熔炉当前房间是否开门
                If 刷图次数 >= 7 Then 
                    刷图次数 = 0
                    超时 = 200
                    Exit Do 
                End If
                If 切换下个角色 = 1 Then 
                    切换下个角色 = 0
                    Exit Do 
                End If
                If BOSS = "真" Then 
                    BOSS = "假"
                    Goto 再次刷图2
                End If
            Next 
        Loop
    End If
    If Form1.CheckBox12.Value = 1 Then 
        If Form1.CheckBox16.Value = 1 Then 
            超时 = 100
            Call 走到海上列车副本门
            超时 = 100
            Call 选择夺回西部线副本
            超时 = 100
            Call 切换到2号
            Call 选择夺回西部线副本2
            超时 = 100
            Do
                Rem 再次刷图4
                超时 = 100
                Call 判断夺回西部线进图
                超时 = 100
                For 10
                    Call 确定夺回西部线人物图内位置
                    Call 确定夺回西部线人物图内位置1
                    Call 确定夺回西部线当前房间是否开门1
                    Call 确定夺回西部线当前房间是否开门2
                    If 刷图次数 >= 7 Then 
                        刷图次数 = 0
                        超时 = 200
                        Exit Do 
                    End If
                    If 切换下个角色 = 1 Then 
                        切换下个角色 = 0
                        Exit Do 
                    End If
                    If BOSS = "真" Then 
                        BOSS = "假"
                        Goto 再次刷图4
                    End If
                Next 
            Loop
        Else 
            超时 = 100
            Call 走到海上列车副本门
            超时 = 100
            Call 选择夺回西部线副本
            超时 = 100
            Do
                Rem 再次刷图3
                超时 = 100
                Call 判断夺回西部线进图
                超时 = 100
                For 10
                    Call 确定夺回西部线人物图内位置
                    Call 确定夺回西部线当前房间是否开门
                    If 刷图次数 >= 7 Then 
                        刷图次数 = 0
                        超时 = 200
                        Exit Do 
                    End If
                    If 切换下个角色 = 1 Then 
                        切换下个角色 = 0
                        Exit Do 
                    End If
                    If BOSS = "真" Then 
                        BOSS = "假"
                        Goto 再次刷图3
                    End If
                Next 
            Loop
        End If 
    End If
    If Form1.CheckBox13.Value = 1 Then 
        超时 = 100
        Call 走到幽冥监狱副本门
        超时 = 100
        Call 选择幽冥监狱副本
        超时 = 100
        Do
            Rem 再次刷图6
            超时 = 100
            Call 判断幽冥监狱进图
            超时 = 100
            For 10
                Call 确定幽冥监狱人物图内位置
                Call 确定幽冥监狱当前房间是否开门
                If 刷图次数 >= 7 Then 
                    刷图次数 = 0
                    超时 = 200
                    Exit Do 
                End If
                If 切换下个角色 = 1 Then 
                    切换下个角色 = 0
                    Exit Do 
                End If
                If BOSS = "真" Then 
                    BOSS = "假"
                    Goto 再次刷图6
                End If
            Next 
        Loop
    End If
    Goto 下一步操作
End Sub
Function 确定幽冥监狱当前房间是否开门
    Select Case 图内角色位置
    Case 1
        超时 = 200
        If Form1.CheckBox7.Value = 1 Then 
            Delay 500
            跑动 (39)
            Delay 900
            Call LB.KeyUp(39)
            Delay 200
            KeyPress "W", 1
        End If 
        Do
            Call LB.FindPic(970,65,989,84, "Attachment:\幽冥监狱开门提示0.bmp|Attachment:\幽冥监狱开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "幽冥监狱---图一已开门"
                If Form1.CheckBox7.Value = 1 Then 
                    Delay 500	
                End If
                Call 幽冥监狱图一过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 2
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        Delay 500
        跑动 (39)
        Delay 700
        Call LB.KeyDown(38)
        Delay 900
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        KeyPress "A", 1
        KeyPress "E", 1
        Do
            Call LB.FindPic(987,63,1008,86, "Attachment:\幽冥监狱开门提示0.bmp|Attachment:\幽冥监狱开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "幽冥监狱---图二已开门"
                Call 幽冥监狱图二过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 3
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        Delay 500
        跑动 (39)
        Delay 400
        Delay 600
        Call LB.KeyUp(39)
        Call LB.KeyDown(40)
        Delay 450
        Call LB.KeyUp(40)
        KeyPress "S", 1
        KeyPress "S", 1
        KeyPress "S", 1
        KeyPress "S", 1
        KeyPress "S", 1
        For 4
            Call 释放小技能
            Delay 700
        Next
        Delay 500
        KeyPress "E", 1
        KeyPress "Q", 1
        计次 = 0
        Do
            Call LB.FindPic(1004,63,1028,86, "Attachment:\幽冥监狱开门提示0.bmp|Attachment:\幽冥监狱开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "幽冥监狱---图三已开门"
                Call 幽冥监狱图三过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
                计次 = 计次 + 1
                If 计次 >= 7 Then 
                    Call LB.KeyDown(40)
                    Delay 200
                    Call LB.KeyUp(40)
                Else 
                    Call LB.KeyDown(38)
                    Delay 200
                    Call LB.KeyUp(38)
                End If
                If 计次 >= 10 Then 
                    Call LB.KeyDown(39)
                    Delay 200
                    Call LB.KeyUp(39)
                    计次 = 0
                End If 
            End If
        Loop 
    Case 4
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        Call LB.KeyDown(38)
        Delay 200
        Call LB.KeyUp(38)
        KeyPress "E", 1
        KeyPress "Q", 1
        Delay 500
        For 2
            Call 释放小技能
            Delay 600
        Next
        Delay 500
        跑动 (39)
        Delay 1000
        Call LB.KeyDown(38)
        Delay 2600
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        Call LB.KeyDown(40)
        Delay 600
        Call LB.KeyUp(40)
        KeyPress "A", 1
        KeyPress "E", 1
        KeyPress "F", 1
        Delay 1300
        Call LB.KeyDown(37)
        Delay 80
        Call LB.KeyUp(37)
        计次 = 0
        Do
            Call LB.FindPic(1022,64,1044,83, "Attachment:\幽冥监狱开门提示0.bmp|Attachment:\幽冥监狱开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "幽冥监狱---图四已开门"
                Call 幽冥监狱图四过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能
                    计次 = 计次 + 1
                    If 计次 >= 5 Then 
                        Call LB.KeyDown(40)
                        Delay 400
                        Call LB.KeyUp(40)
                    Else 
                        Call LB.KeyDown(38)
                        Delay 400
                        Call LB.KeyUp(38)
                    End If
                    If 计次 >= 10 Then 
                        计次 = 0
                    End If 
                End If
            End If
        Loop 
    Case 5
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        Delay 500
        KeyPress "E", 1
        Delay 500
        跑动 (39)
        Delay 2300
        Call LB.KeyUp(39)
        Delay 500
        Call LB.KeyDown(37)
        Delay 100
        Call LB.KeyUp(37)
        Delay 300
        Do
            Call LB.FindPic(1041,64,1062,83, "Attachment:\幽冥监狱开门提示0.bmp|Attachment:\幽冥监狱开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "幽冥监狱---图五已开门"
                Call 幽冥监狱图五过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 6
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        Call LB.KeyDown(38)
        Delay 200
        Call LB.KeyUp(38)
        KeyPress "E", 1
        KeyPress "Q", 1
        Delay 600
        跑动 (39)
        Call LB.KeyDown(40)
        Delay 300
        Call LB.KeyUp(40)
        Call LB.KeyUp(39)
        KeyPress "A", 1
        KeyPress "A", 1
        KeyPress "F", 1
        For 2
            Call 释放小技能
            Delay 600
        Next
        Delay 1000
        跑动 (39)
        Delay 500
        Call LB.KeyDown(38)
        Delay 2400
        Call LB.KeyUp(38)
        Delay 200
        Call LB.KeyUp(39)
        Delay 300
        跑动 (37)
        Delay 400
        Call LB.KeyUp(37)
        Call LB.KeyDown(40)
        Delay 800
        Call LB.KeyUp(40)
        计次 = 0
        次数= 0
        Do
            Call LB.FindPic(1022,64,1046,87, "Attachment:\幽冥监狱开门提示2.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "幽冥监狱---图六已开门"
                Call 幽冥监狱图六过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能
                    计次 = 计次 + 1
                    If 计次 >= 5 Then 
                        Call LB.KeyDown(40)
                        Delay 400
                        Call LB.KeyUp(40)
                    Else 
                        Call LB.KeyDown(38)
                        Delay 400
                        Call LB.KeyUp(38)
                    End If
                    If 计次 >= 10 Then 
                        计次 = 0
                        次数 = 次数 + 1
                        If 次数 >= 2 Then 
                            Call LB.KeyDown(39)
                            Delay 40
                            Call LB.KeyUp(39)
                            次数= 0
                        End If
                    End If 
                End If
            End If
        Loop 
    Case "真"
        超时 = 200
        Call 幽冥监狱boss专杀
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        Call LB.KeyUp(40)
        Call LB.KeyUp(37)
        Do
            Call LB.FindPic(818,0,1078,272, "Attachment:\成绩.bmp", "000000", 0.85, 0, intX, intY)
            If intX > 0 And intY > 0 Then 
                超时 = 200
                Delay 1500
                Call 黄金翻拍
                Call 窗口1聚物
                Call 窗口2聚物
                Call 切换到1号
                Call BOSS物品拾取
            End If
            Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                BOSS = "真"
                切换下个角色 = 0
                退出副本 = ""
                Exit Do
            Else 
                KeyPress "W", 1
                KeyPress "G", 1
                KeyPress "H", 1
                KeyPress "R", 1
                KeyPress "Y", 1
                Call 释放小技能
            End If
            Call LB.FindStr(891,8,1044,166, "F10", "808080-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                Call BOSS物品拾取
                Plugin.Msg.Tips "刷图完毕"
                BOSS = "真"
                切换下个角色 = 1
                退出副本 = "真"
                Exit Do
            End If
        Loop
        通关次数 = 通关次数 + 1
        Delay 1000
        KeyPress "I", 1
        Delay 300
        KeyPress "I", 1
        Delay 300
        KeyPress "I", 1
        Delay 300
        Call 关闭同步
        Delay 1000
        Call 窗口1出售物品
        Call 窗口2出售物品
        Call 切换到1号
        Plugin.Msg.Tips "通关次数" & 通关次数
        If 退出副本 = "真" Then 
            Delay 1000
            Call 移动单击(932, 146)
            Call 移动单击(932, 146)
            Call 移动单击(932, 146)
            切换下个角色 = 1
        Else 
            退出副本 = ""
            If 刷图次数 >= 7 Then 
                Call 移动单击(932, 146)
                Call 移动单击(932, 146)
                Call 移动单击(932, 146)
                Delay 6000
                Plugin.Msg.Tips "刷图次数" & 刷图次数
                Plugin.Msg.Tips "执行躲避深渊"
                Call 切换到1号赛利亚
                Call 切换到2号赛利亚
            Else 
                Delay 1000
                Call 移动单击(934, 83)
                Call 移动单击(934, 83)
                Call 移动单击(934, 83)
            End If
        End If
    End Select
End Function
Function 幽冥监狱boss专杀
    跑动 (39)
    Delay 100
    Call LB.KeyDown(40)
    Delay 1000
    Call LB.KeyUp(40)
    Call LB.KeyDown(38)
    Delay 800
    Call LB.KeyUp(39)
    KeyPress "Y", 1
    KeyPress "Y", 1
    KeyPress "Y", 1
End Function
Function 幽冥监狱图六过图
    Delay 500
    Do
        跑动 (39)
        Delay 100
        Call LB.KeyDown(38)
        Delay 700
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        Delay 1500
        Call LB.FindPic(969,63,1060,102, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
        Else 
            Call LB.FindPic(968,32,1066,99, "Attachment:\牛头.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "图六过图成功"
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                KeyPress "X", 1
                Delay 500
            End If
        End If
        跑动 (39)
        Delay 500
        Call LB.KeyUp(39)
        Call LB.KeyDown(38)
        Delay 400
        Call LB.KeyDown(37)
        Delay 400
        Call LB.KeyUp(38)
        Call LB.KeyUp(37)
        Delay 1500
        Call LB.FindPic(969,63,1060,102, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
        Else 
            Call LB.FindPic(968,32,1066,99, "Attachment:\牛头.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "图六过图成功"
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                KeyPress "X", 1
                Delay 500
            End If
        End If
    Loop
End Function
Function 幽冥监狱图五过图
    Delay 500
    Do
        跑动 (39)
        Delay 200
        Call LB.KeyDown(38)
        Delay 900
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        Call LB.KeyDown(40)
        Delay 150
        Call LB.KeyUp(40)
        Delay 1500
        Call LB.FindPic(1041,64,1062,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图五过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
        Call LB.KeyDown(40)
        Delay 1800
        Call LB.KeyUp(40)
        跑动 (39)
        Delay 500
        Call LB.KeyUp(39)
        Call LB.KeyDown(38)
        Delay 800
        Call LB.KeyUp(38)
        Delay 1500
        Call LB.FindPic(1041,64,1062,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图五过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
    Loop
End Function
Function 幽冥监狱图四过图
    Delay 500
    Do
        跑动 (39)
        Delay 800
        Call LB.KeyDown(40)
        Delay 100
        Call LB.KeyUp(40)
        Call LB.KeyUp(39)
        Delay 1500
        Call LB.FindPic(1023,64,1045,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图四过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
        Call LB.KeyDown(40)
        Delay 1800
        Call LB.KeyUp(40)
        跑动 (39)
        Delay 500
        Call LB.KeyUp(39)
        Call LB.KeyDown(38)
        Delay 800
        Call LB.KeyUp(38)
        Delay 1500
        Call LB.FindPic(1023,64,1045,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图四过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
    Loop
End Function
Function 幽冥监狱图三过图
    Delay 500
    Do
        Call LB.KeyDown(38)
        Delay 3500
        Call LB.KeyUp(38)
        Delay 300
        KeyPress "E", 1
        KeyPress "Q", 1
        Delay 1000
        Call LB.KeyDown(40)
        Delay 1400
        Call LB.KeyUp(40)
        Delay 500
        跑动 (39)
        Delay 700
        Delay 2500
        Call LB.KeyUp(39)
        Delay 500
        跑动 (39)
        Delay 500
        Call LB.KeyDown(40)
        Delay 100
        Call LB.KeyUp(40)
        Call LB.KeyUp(39)
        Delay 1500
        Call LB.FindPic(1005,64,1025,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图三过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
        Call LB.KeyDown(40)
        Delay 1800
        Call LB.KeyUp(40)
        跑动 (39)
        Delay 500
        Call LB.KeyUp(39)
        Call LB.KeyDown(38)
        Delay 800
        Call LB.KeyUp(38)
        Delay 1500
        Call LB.FindPic(1005,64,1025,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图三过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
    Loop
End Function
Function 幽冥监狱图二过图
    Delay 500
    Do
        跑动 (39)
        Delay 500
        Call LB.KeyDown(40)
        Delay 1800
        Call LB.KeyUp(40)
        Call LB.KeyUp(39)
        Delay 1500
        Call LB.FindPic(987,65,1007,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图二过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
        跑动 (39)
        Delay 300
        Call LB.KeyDown(38)
        Delay 500
        Call LB.KeyUp(39)
        Call LB.KeyUp(38)
        Delay 1500
        Call LB.FindPic(987,65,1007,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图二过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        Else 
            KeyPress "X", 1
            Delay 500
        End If
    Loop
End Function
Function 幽冥监狱图一过图
    Delay 500
    Do
        跑动 (39)
        Delay 300
        Call LB.KeyDown(38)
        Delay 1200
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        Delay 1500
        Call LB.FindPic(970,64,990,85, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图一过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        End If
        跑动 (39)
        Delay 300
        Call LB.KeyDown(38)
        Delay 500
        Call LB.KeyUp(39)
        Call LB.KeyDown(37)
        Delay 600
        Call LB.KeyUp(37)
        Call LB.KeyUp(38)
        Delay 1500
        Call LB.FindPic(970,64,990,85, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint "图一过图成功"
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do
        End If
    Loop
End Function
Function 确定幽冥监狱人物图内位置
    Do
        Call LB.FindPic(970,83,990,103, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint 1
            图内角色位置 = 1
            Call 启动同步
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do 
        End If
        Call LB.FindPic(971,65,989,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint 2
            图内角色位置 = 2
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do 
        End If
        Call LB.FindPic(987,65,1009,85, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint 3
            图内角色位置 = 3
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do 
        End If
        Call LB.FindPic(1006,64,1027,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint 4
            图内角色位置 = 4
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do 
        End If
        Call LB.FindPic(1023,63,1047,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            TracePrint 5
            图内角色位置 = 5
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do 
        End If
        Call LB.FindPic(1042,64,1064,85, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
        If intX > 0 And intY > 0 Then 
            是否路口 = "真"
            TracePrint 6
            图内角色位置 = 6
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Call LB.KeyUp(37)
            Exit Do 
        End If
        If 是否路口 = "真" Then 
            Call LB.FindPic(967,60,1063,102, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
            Else 
                图内角色位置 = "真"
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do 
            End If
        End If
    Loop
End Function
Function 判断幽冥监狱进图
    次数 = 0
    Do
        Call LB.FindStr(851,0,1036,35, "幽冥监狱", "ccc1a7-000000", 1.0, intX, intY)
        If intX > 0 And intY > 0 Then 
            Call LB.FindStr(1413,437,1482,457, "幽冥监狱", "ccc1a7-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "已进入幽冥监狱副本"
                Call 启动同步
                Call 风法BUFF
                Exit Do
            Else 
                TracePrint "已进入幽冥监狱副本"
                Call 启动同步
                Call 风法BUFF
                Exit Do
            End If 
        Else 
            Delay 1000
            次数 = 次数 + 1
            If 次数 >= 60 Then 
                Call 启动同步
                Call LB.KeyDown(37)
                Delay 600
                Call LB.KeyUp(37)
                Delay 300
                Call LB.KeyDown(39)
                Call 选择幽冥监狱副本
            End If
        End If
    Loop
End Function
Function 选择幽冥监狱副本
    Do
        Call LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)
        If intX > 0 And intY > 0 Then 
            Call LB.KeyUp(37)
            Call LB.KeyUp(38)
            Call LB.KeyUp(39)
            Call LB.KeyUp(40)
            Exit Do 
        End If 
    Loop 
    Delay 1000
    If Form1.CheckBox13.Value = 1 Then 
        副本  = "幽冥监狱"
    End If
    If Form1.CheckBox1.Value = 1 Then 
        副本难度 = "普通级"
    End If
    If Form1.CheckBox2.Value = 1 Then 
        副本难度 = "冒险级"
    End If
    If Form1.CheckBox3.Value = 1 Then 
        副本难度 = "勇士级"
    End If
    If Form1.CheckBox4.Value = 1 Then 
        副本难度 = "王者级"
    End If
    If Form1.CheckBox5.Value = 1 Then 
        副本难度 = "噩梦级"
    End If
    Do
        Call LB.FindStr(806,433,974,527, "幽冥监狱", "ddc593-000000", 1.0, intX, intY)
        If intX > 0 And intY > 0 Then 
            Select Case 副本难度
            Case "普通级"
                For 5
                    Call LB.KeyPress(37)
                    Delay 100
                Next
            Case "冒险级"
                For 5
                    Call LB.KeyPress(37)
                    Delay 100
                Next
                For 1
                    Call LB.KeyPress(39)
                    Delay 100
                Next 
            Case "勇士级"
                For 5
                    Call LB.KeyPress(37)
                    Delay 100
                Next
                For 2
                    Call LB.KeyPress(39)
                    Delay 100
                Next 
            Case "王者级"
                For 5
                    Call LB.KeyPress(37)
                    Delay 100
                Next
                For 3
                    Call LB.KeyPress(39)
                    Delay 100
                Next 
            Case "噩梦级"
                For 5
                    Call LB.KeyPress(37)
                    Delay 100
                Next
                For 4
                    Call LB.KeyPress(39)
                    Delay 100
                Next 
            End Select
            KeyPress "Space", 1
            KeyPress "Space", 1
            Exit Do
        Else 
            Call LB.KeyPress(38)
            Delay 500
        End If 
    Loop  
End Function
Function 走到幽冥监狱副本门
    Call 启动同步
    Call LB.KeyDown(40)
    Delay 3500
    Call LB.KeyUp(40)
    Call LB.KeyDown(38)
    Delay 1000
    Call LB.KeyUp(38)
    Delay 300
    Call LB.KeyDown(37)
End Function
Function 确定夺回西部线当前房间是否开门
    Select Case 图内角色位置
    Case 1
        超时 = 200
        If Form1.CheckBox7.Value = 1 Then 
            Delay 500
            跑动 (37)
            Delay 500
            Call LB.KeyUp(37)
            Delay 200
            Call LB.KeyDown(40)
            Delay 100
            Call LB.KeyUp(40)
            KeyPress "E", 1
            Delay 500
            KeyPress "F", 1
            Delay 1000
            KeyPress "Q", 1
        End If
        Do
            Call LB.FindPic(758,147,1064,501, "Attachment:\夺回西部线图一开门提示.bmp|Attachment:\夺回西部线图一开门提示1.bmp","000000",0.97,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "夺回西部---图一已开门"
                If Form1.CheckBox7.Value = 1 Then 
                    Delay 500	
                End If
                Call 夺回西部线图一过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 2
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 300
        Call LB.KeyDown(38)
        Delay 200
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        KeyPress "W", 1
        KeyPress "W", 1
        KeyPress "W", 1
        Delay 2500
        跑动 (39)
        Delay 1500
        Call LB.KeyUp(39)
        Do
            Call LB.FindPic(970,46,990,66, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.9,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图二过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 3
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 700
        Call LB.KeyUp(39)
        Delay 100
        KeyPress "A", 1
        KeyPress "A", 1
        Delay 500
        Do
            Call LB.FindPic(986,46,1009,67, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.9,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图三过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 4
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        KeyDown "H", 1
        Delay 2000
        KeyUp "H", 1
        Delay 100
        跑动 (39)
        Delay 1200
        Call LB.KeyUp(39)
        Do
            Call LB.FindPic(1006,46,1026,67, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.9,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图四过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 5
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 600
        Call LB.KeyUp(39)
        KeyPress "W", 1
        KeyPress "W", 1
        Delay 1000
        KeyPress "S", 1
        KeyPress "S", 1
        Do
            Call LB.FindPic(1022,46,1044,65, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.9,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图五过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 6
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 600
        Delay 2000
        Call LB.KeyUp(39)
        Delay 300
        Call LB.KeyPress(37)
        Call LB.KeyPress(37)
        Delay 300
        Do
            Call LB.FindPic(1004,46,1025,67, "Attachment:\夺回西部图六开门提示.bmp","000000",0.8,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图六过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case "真"
        超时 = 200
        Call 夺回西部线boss专杀
        KeyPress "S", 1
        KeyPress "S", 1
        Do
            Call LB.FindPic(818,0,1078,272, "Attachment:\成绩.bmp", "000000", 0.9, 0, intX, intY)
            If intX > 0 And intY > 0 Then 
                超时 = 200
                Delay 1500
                Call 黄金翻拍
                Call 窗口1聚物
                Call 窗口2聚物
                Call 切换到1号
                Call BOSS物品拾取
            End If
            Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                BOSS = "真"
                切换下个角色 = 0
                退出副本 = ""
                Exit Do
            Else 
                KeyPress "W", 1
                KeyPress "G", 1
                KeyPress "H", 1
                KeyPress "R", 1
                KeyPress "Y", 1
                Call 释放小技能
            End If
            Call LB.FindStr(891,8,1044,166, "F10", "808080-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                Call BOSS物品拾取
                Plugin.Msg.Tips "刷图完毕"
                BOSS = "真"
                切换下个角色 = 1
                退出副本 = "真"
                Exit Do
            End If
        Loop
        刷图次数 = 刷图次数 + 1
        通关次数 = 通关次数 + 1
        Delay 1000
        KeyPress "I", 1
        Delay 300
        KeyPress "I", 1
        Delay 300
        KeyPress "I", 1
        Delay 300
        Call 关闭同步
        Delay 1000
        Call 窗口1出售物品
        Call 窗口2出售物品
        Call 切换到1号
        Plugin.Msg.Tips "通关次数" & 通关次数
        If 退出副本 = "真" Then 
            Delay 1000
            Call 移动单击(932, 146)
            Call 移动单击(932, 146)
            Call 移动单击(932,146)
            切换下个角色 = 1
        Else 
            退出副本 = ""
            If 刷图次数 >= 7 Then 
                Call 移动单击(932, 146)
                Call 移动单击(932, 146)
                Call 移动单击(932,146)
                Delay 6000
                Plugin.Msg.Tips "刷图次数" & 刷图次数
                Plugin.Msg.Tips "执行躲避深渊"
                Call 切换到1号赛利亚
                Call 切换到2号赛利亚
            Else 
                Delay 1000
                Call 移动单击(934, 83)
                Call 移动单击(934, 83)
                Call 移动单击(934,83)
            End If
        End If
    End Select
End Function
Function 确定夺回西部线当前房间是否开门1
    Select Case 图内角色位置
    Case 1
        超时 = 200
        If Form1.CheckBox7.Value = 1 Then 
            Delay 500
            跑动 (37)
            Delay 200
            Call LB.KeyDown(38)
            Delay 300
            Call LB.KeyUp(38)
            Delay 100
            Call LB.KeyUp(37)
            Delay 200
            Call LB.KeyDown(40)
            Delay 100
            Call LB.KeyUp(40)
            KeyPress "E", 1
            Delay 500
            KeyPress "F", 1
            Delay 1000
            KeyPress "Q", 1
        End If
        次数 = 0
        Do
            Call LB.FindPic(758,147,1064,501, "Attachment:\夺回西部线图一开门提示.bmp|Attachment:\夺回西部线图一开门提示1.bmp","000000",0.97,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "夺回西部---图一已开门"
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                次数 = 次数 + 1
                Call 释放小技能
                If 次数 >= 3 Then 
                    Call LB.KeyDown(38)
                    Delay 100
                    Call LB.KeyUp(38)
                Else 
                    Call LB.KeyDown(40)
                    Delay 400
                    Call LB.KeyUp(40)
                End If
                If 次数 >= 10 Then 
                    次数 = 0
                End If 
            End If
        Loop 
    Case 2
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 300
        Call LB.KeyDown(38)
        Delay 100
        Call LB.KeyUp(38)
        Call LB.KeyUp(39)
        KeyPress "W", 1
        KeyPress "W", 1
        KeyPress "W", 1
        Delay 2500
        For 5
            Call 释放小技能
            Delay 1000
        Next
        跑动 (39)
        Delay 200
        Call LB.KeyDown(40)
        Delay 1500
        Call LB.KeyUp(40)
        Delay 500
        Call LB.KeyUp(39)
        次数 = 0
        Do
            Call LB.FindPic(970,46,990,66, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                次数 = 次数 + 1
                If 次数 >= 4 Then 
                    Call LB.KeyDown(38)
                    Delay 200
                    Call LB.KeyUp(38)
                Else 
                    Call LB.KeyDown(40)
                    Delay 400
                    Call LB.KeyUp(40)
                End If
                If 次数 >= 10 Then 
                    次数 = 0
                End If
                Call 释放小技能
            End If
        Loop 
    Case 3
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 300
        Call LB.KeyDown(40)
        Delay 500
        Call LB.KeyUp(40)
        Call LB.KeyUp(39)
        Delay 100
        KeyPress "A", 1
        KeyPress "A", 1
        Delay 500
        Do
            Call LB.FindPic(986,46,1009,67, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 4
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 200
        Call LB.KeyUp(39)
        KeyDown "H", 1
        Delay 2000
        KeyUp "H", 1
        Delay 100
        跑动 (39)
        Delay 1200
        Call LB.KeyUp(39)
        Do
            Call LB.FindPic(1006,46,1026,67, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 5
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 600
        Call LB.KeyUp(39)
        KeyPress "W", 1
        KeyPress "W", 1
        Delay 1000
        KeyPress "S", 1
        KeyPress "S", 1
        Do
            Call LB.FindPic(1022,46,1044,65, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 6
        超时 = 200
        If Form1.CheckBox9.Value = 1 Then 
            KeyPress "R", 1
            KeyPress "R", 1
            Delay 500	
        End If
        跑动 (39)
        Delay 800
        Delay 2000
        Call LB.KeyUp(39)
        Delay 300
        Call LB.KeyPress(37)
        Call LB.KeyPress(37)
        Delay 300
        KeyPress "G", 1
        KeyPress "G", 1
        KeyPress "G", 1
        次数 = 0
        Do
            Call LB.FindPic(1004,46,1025,67, "Attachment:\夺回西部图六开门提示.bmp","000000",0.8,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    次数 = 次数 + 1
                    Call 释放小技能
                    If 次数 >= 5 Then 
                        Call LB.KeyDown(38)
                        Delay 100
                        Call LB.KeyUp(38)
                    Else 
                        Call LB.KeyDown(40)
                        Delay 100
                        Call LB.KeyUp(40)
                    End If
                    If 次数 >= 10 Then 
                        Call LB.KeyDown(37)
                        Delay 50
                        Call LB.KeyUp(37)
                        次数 = 0
                    End If 	
                End If
            End If
        Loop 
    Case "真"
        超时 = 200
        Call 夺回西部线boss专杀
        KeyPress "S", 1
        KeyPress "S", 1
        Do
            Call LB.FindPic(818,0,1078,272, "Attachment:\成绩.bmp", "000000", 0.9, 0, intX, intY)
            If intX > 0 And intY > 0 Then 
                超时 = 200
                Delay 1500
                Call 黄金翻拍
            End If
            Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                Call LB.FindStr(1415,465,1577,625, "F10", "e6c89b-000000", 1.0, intX, intY)
                If intX > 0 And intY > 0 Then 
                    Call 窗口1聚物
                    Call 窗口2聚物
                    BOSS = "真"
                    切换下个角色 = 0
                    退出副本 = ""
                    Call BOSS物品拾取
                    Exit Do
                Else 
                    KeyPress "W", 1
                    KeyPress "G", 1
                    KeyPress "H", 1
                    KeyPress "R", 1
                    KeyPress "Y", 1
                    Call 释放小技能
                End If 
            Else 
                KeyPress "W", 1
                KeyPress "G", 1
                KeyPress "H", 1
                KeyPress "R", 1
                KeyPress "Y", 1
                Call 释放小技能
            End If
            Call LB.FindStr(891,8,1044,166, "F10", "808080-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                Call BOSS物品拾取
                Plugin.Msg.Tips "刷图完毕"
                BOSS = "真"
                切换下个角色 = 1
                退出副本 = "真"
                Exit Do
            End If
            Call LB.FindStr(1415,465,1577,625, "F10", "808080-000000", 1.0, intX, intY)
            If intX > 0 And intY > 0 Then 
                Call BOSS物品拾取
                Plugin.Msg.Tips "刷图完毕"
                BOSS = "真"
                切换下个角色 = 1
                退出副本 = "真"
                Exit Do
            End If 
        Loop
        刷图次数 = 刷图次数 + 1
        通关次数 = 通关次数 + 1
        Delay 1000
        KeyPress "I", 1
        Delay 300
        KeyPress "I", 1
        Delay 300
        KeyPress "I", 1
        Delay 300
        Call 关闭同步
        Delay 1000
        Call 窗口1出售物品
        Call 窗口2出售物品
        Plugin.Msg.Tips "通关次数" & 通关次数
        If 退出副本 = "真" Then 
            Delay 1000
            Call 移动单击(932, 146)
            Call 移动单击(932, 146)
            Call 移动单击(932, 146)
            Call 移动单击(1473,580)
            Call 移动单击(1473,580)
            Call 移动单击(1473,580)
            切换下个角色 = 1
            Delay 5000
        Else 
            退出副本 = ""
            Plugin.Msg.Tips "刷图次数" & 刷图次数
            Delay 1000
            Call 移动单击(934, 83)
            Call 移动单击(934, 83)
            Call 移动单击(934, 83)
            Call 移动单击(1465,521)
            Call 移动单击(1465,521)
            Call 移动单击(1465, 521)
        End If
        Delay 10000
    End Select
End Function
Function 确定夺回西部线当前房间是否开门2
    Select Case 图内角色位置
    Case 1
        超时 = 200
        次数 = 0
        Do
            Call LB.FindPic(1133,600,1620,853, "Attachment:\夺回西部线图一开门提示.bmp|Attachment:\夺回西部线图一开门提示1.bmp","000000",0.97,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                TracePrint "夺回西部---图一已开门"
                If Form1.CheckBox7.Value = 1 Then 
                    Delay 500	
                End If
                Call 夺回西部线图一过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                次数 = 次数 + 1
                Call 释放小技能
                If 次数 >= 5 Then 
                    Call LB.KeyDown(38)
                    Delay 100
                    Call LB.KeyUp(38)
                Else 
                    Call LB.KeyDown(40)
                    Delay 100
                    Call LB.KeyUp(40)
                End If
                If 次数 >= 10 Then 
                    次数 = 0
                End If 
            End If
        Loop 
    Case 2
        超时 = 200
        Do
            Call LB.FindPic(1502,481,1523,502, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图二过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 3
        超时 = 200
        Do
            Call LB.FindPic(1521,481,1539,502, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图三过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                Call 释放小技能
            End If
        Loop 
    Case 4
        超时 = 200
        Do
            Call LB.FindPic(1539,480,1559,502, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图四过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 5
        超时 = 200
        Do
            Call LB.FindPic(1556,481,1577,502, "Attachment:\夺回西部线开门提示0.bmp|Attachment:\夺回西部线开门提示1.bmp","000000",0.85,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图五过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    Call 释放小技能	
                End If
            End If
        Loop 
    Case 6
        超时 = 200
        次数 = 0
        Do
            Call LB.FindPic(1539,480,1559,502, "Attachment:\夺回西部图六开门提示.bmp","000000",0.8,0,intX,intY)
            If intX > 0 And intY > 0 Then 
                Call 夺回西部线图六过图
                Call LB.KeyUp(38)
                Call LB.KeyUp(39)
                Call LB.KeyUp(40)
                Call LB.KeyUp(37)
                Exit Do
            Else 
                If Form1.CheckBox9.Value = 1 Then 
                ElseIf Form1.CheckBox7.Value = 1 Then 
                    次数 = 次数 + 1
                    Call 释放小技能
                    If 次数 >= 5 Then 
                        Call LB.KeyDown(38)
                        Delay 100
                        Call LB.KeyUp(38)
                    Else 
                        Call LB.KeyDown(40)
                        Delay 100
                        Call LB.KeyUp(40)
                    End If
                    If 次数 >= 10 Then 
                        Call LB.KeyDown(37)
                        Delay 50
                        Call LB.KeyUp(37)
                        次数 = 0
                    End If 	
                End If
            End If
        Loop 
    End Select
End Function