精华内容
参与话题
问答
  • dnf

    2019-09-26 14:54:29
    转载于:https://www.cnblogs.com/yuyuyu4401/archive/2009/02/14/1390624.html

    转载于:https://www.cnblogs.com/yuyuyu4401/archive/2009/02/14/1390624.html

    展开全文
  • DNF纯图色起号源码

    千次阅读 2020-02-10 19:07:02
    DNF纯图色起号源码功能非常丰富,几乎你想要的都有。自动上号,掉线自动登录,自动换号,自动主线任务,到了等级自动刷图,换角色。自动加点。看了很多源码没见过这样全的源码。非常值得学习。、抓了里面代码的图片 ...

    功能非常丰富,几乎你想要的都有。自动上号,掉线自动登录,自动换号,自动主线任务,到了等级自动刷图,换角色。自动加点。看了很多源码没见过这样全的源码。非常值得学习。、

    抓了里面代码的图片

    源码下载链接: link.
    主线任务代码
    在这里插入图片描述在这里插入图片描述在这里插入图片描述

    展开全文
  • dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码dnf连发源码...
  • DNF2020年全新脚本展示第一部分

    千次阅读 2019-12-31 01:17:54
    2020年全新DNF脚本展示 1.脚本界面如图所示 2.刷图效果展示 3.部分脚本代码展示,按键精灵编写,由于字数限制无法展示全部 Global 超时, 游戏存在, 副本, 副本难度, 组队成功, 图内角色位置, 是否路口, BOSS...

    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 切换到1Call 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 切换到1End 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 切换到2Call 选择夺回西部线副本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 切换到1Call 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 切换到1Call 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
    
    展开全文
  • DNF Module

    2020-11-23 10:02:26
    <div><p>This is reimplementation of the DNF module using exclusively DNF's Python APIs. Besides generic package(s) <code>install/upgrade/remove</code> functionality, I'd highlight: - Supports ...
  • DNF源码DNF

    2012-08-02 10:35:46
    dnf易语言辅助源码
  • DNF工具DNF工具DNF工具

    2010-03-27 18:23:53
    工具DNF工具DNF工具DNF工具DNF工具DNF工具
  • Dnf双开源码

    2013-05-07 04:39:26
    支持80级版本DNF双开,稳定不卡屏 .版本 2 .子程序 _按钮1_被单击, , , 初始化 .判断开始 (驱动.初始化保护驱动 (“mydri.sys”)) .默认 信息框 (“双开工具启动失败,请查看是否有外界干扰!”, 0, ) 是否返回 ...
  • DNF找基址的模块 DNF找基址的模块 .版本 2 .子程序 搜索_X轴参数, 文本型, 公开 .子程序 搜索_Y轴参数, 文本型, 公开 .子程序 搜索_Z轴参数, 文本型, 公开 .子程序 搜索_冰心基址, 文本型, 公开, 配用:冰心...
  • Support dnf autoremove

    2020-11-23 10:09:35
    <ul><li>dnf</li></ul> <h5>ANSIBLE VERSION <pre><code> ansible 2.1.0.0 </code></pre> <h5>OS / ENVIRONMENT <ul><li>Managing Linux</li></ul> <h5>SUMMARY <p>At times it is necessary, particularly ...
  • DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码DNF注入器源码
  • DNF麦兜外挂源码

    2011-11-18 18:22:56
    DNF 易语言 麦兜 源码 外挂 .版本 2 .子程序 SSS评分 .如果真 (内存操作.读代码 (#评分基址 + “+5c”) ≠ 1149239296) 内存操作.写代码 (#评分基址 + “+5c=1149239296”) 内存优化 () .如果真结束 内存优化...
  • Parse DNF

    2020-11-26 12:44:48
    <div><p>With the new cache details page we would have the possibility to parse, that a user posted a DNF log for a certain cache. This could be shown as a status in cache details ("Not found")...
  • DNF外挂源码,DNF辅助源码,DNF源码
  • dnf-automatic'. The man page should match that command name and be available as 'man dnf-automatic'. <p>Exposing it to users as 'man dnf.automatic' is weird, surprising and makes ...
  • DNF2: Argparser2

    2020-11-22 04:59:26
    This should go to DNF2 branch as it changes API. <p>It introduces new method for Commands: - <code>set_argparser()</code> to set command specific options <p>and removes - <code>doCheck()</code> - ...
  • DNF shell

    2020-11-22 05:00:58
    <div><p>Tests available at https://github.com/rpm-software-management/ci-dnf-stack/pull/205/ </p><p>该提问来源于开源项目:rpm-software-management/dnf</p></div>
  • dnf私服

    万次阅读 2019-08-11 11:33:05
    99kmy.com 2019年F1天王赛将在DNF私服PVP赛事线之外增加PVE国际赛,令打团竞速成为DNF国际舞台的又一大亮点。届时,中国、韩国、日本及欧美国家将同台竞技, ...

    99kmy.com

    2019年F1天王赛将在DNF私服PVP赛事线之外增加PVE国际赛,令打团竞速成为DNF国际舞台的又一大亮点。届时,中国、韩国、日本及欧美国家将同台竞技,

    展开全文
  • DNF商人计算器,dnf计算器 重别处下载的请先杀毒
  • DNF Extracto

    2019-06-21 08:40:47
    一个DNFExtracto 改图改色什么超级好用,喜欢来下载吧
  • <p>Affected module: dnf Version used: latest> <p></p> <h4>How to reproduce <p>Run Bumblebee with dnf module <p>you are getting multiple /usr/bin/pathon3 /usr/bin/dnf updateinfo processes - every 5 ...
  • 本文件介绍了用易语言编写DNF外挂的语法格式,可修改人物状态(霸体,双刀),加红蓝,SSS评分,改技能等。每次使用时只要修改一下基址和技能代码就可以了,因为DNF每次更新这些代码都要修改,因此我也不能...
  • dnf外挂源码大全dnf外挂源码大全dnf外挂源码大全dnf外挂源码大全
  • Python包管理工具DNF.zip

    2019-07-16 07:05:05
    DNF (Dandified Yum) 是基于 YUM 和 libsolv 的 Python 包管理工具。DNF 使用 RPM, libsolv 和 hawkey 进行 包管理;使用 librepo 进行元数据处理和包下载;使用 libcomps 处理 comps 数据。 使用:sudo cat  '...
  • 用WPE修改DNF的各种方法 分为四个分卷、全部下载完毕以后可以解压出教程文件。 1卷下载地址:http://www.vdisk.cn/down/index/11844236 2卷下载地址:http://www.vdisk.cn/down/index/11843678 3卷下载地址:...
  • m not sure why, but #635 seems to miss some code which prevents the usage of the Command emitter in dnf-automatic. They could be some code lost on rebase or something, but trying to make it work on my...
  • DNF第四季有了很多改变,也增加一些新的东西。其中,新出的娃娃机,小编刚看到的时候还以为是个福利,结果自己试了一下才知道又是一坑。先不说抓不抓的到,就算抓到了掉不掉完全看节奏,这个的出现直接导致无尽永恒...
  • PUT /var/folders/tg/t4gnzkd919n20hxfpbhqsvh40000gn/T/tmp7FMfe8 TO /root/.ansible/tmp/ansible-tmp-1431186442.97-185397293418490/dnf <127.0.0.1> EXEC ssh -C -tt -vvv -o ControlMaster=auto -o ...
  • <p>The Bower and DNF modules are not included in the official PPA package. <h5>Steps To Reproduce: <ol><li>Install Ansible from PPA</li><li><code>dpkg -L ansible | grep 'bower\|dnf'</code></li...
  • <p>dnf module <h5>ANSIBLE VERSION <pre><code> "ansible 2.0.2.0" </code></pre> <h5>CONFIGURATION <p>no changes to default <h5>OS / ENVIRONMENT <p>fedora 23 <h5>SUMMARY <p>when trying to...

空空如也

1 2 3 4 5 ... 20
收藏数 4,315
精华内容 1,726
关键字:

DNF