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

最新推荐文章于 2024-05-26 22:16:58 发布
最新推荐文章于 2024-05-26 22:16:58 发布
阅读量5.3k 收藏 25
点赞数 6
分类专栏： DNF脚本 开源 文章标签： 其他
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_42888661/article/details/103775637
版权

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
剑道书生
关注
  • 6
    点赞
  • 踩
  • 25
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 9
    评论
专栏目录
最新2019年dnf辅助制作视频教程
weixin_yyur5576的博客
06-13 8721
最新2019年dnf辅助制作视频教程 课程地址百度爱内涵论坛 浴血凤凰2018-2019FH课第一节 新浴血凤凰FH课第2节(win7系统最新破图标2019年4月更新) 浴血凤凰FH课第3节(读取人物数据) 浴血凤凰FH课第4节(加密与解密程序) 浴血凤凰FH课第5节(解密器的使用) 浴血凤凰FH课第6节(编写基址更新器1) 浴血凤凰FH课第7节(编写基址更新器2) 浴血凤凰FH课第8节(人物无敌...
DNF全自动搬砖脚本，支持Win7、Win8、Win10、Win11-32/64位操作系统
weixin_60732009的博客
05-10 1869
DNF脚本，全自动操作，自动刷图，疲劳刷完自动切换角色，什么图都可以。包教会，包运行，可测试。
Python如何实现简单DNF脚本
热门推荐
CJD的博客
12-27 5万+
DNF脚本的简单实现，仅作学习研究。
python纯脚本搬砖DNF之深度学习，工作室适用
enteracity的博客
05-26 3496
转载请注明出处:https://editor.csdn.net/md?
DNF2020年全新脚本展示第三部分
qq_42888661的博客
12-31 4164
2020年全新DNF脚本展示第三部分 1.2020年全新DNF脚本部分代码展示第三部分 Function 根特北门boss专杀 Call LB.KeyDown(40) Delay 800 Call LB.KeyUp(40) Delay 200 Call LB.KeyDown(39) Delay 60 Call LB.KeyUp(39) ...
2022 01 27 dnf 起号 搬砖 脚本源码开源 by ~戴眼镜的猫
qq_42888661的博客
01-27 1万+
dnf 起号 搬砖 脚本源码开源 by ~戴眼镜的猫 纯图色脚本 代码行约 5万行
dnf python自动搬砖定制脚本
zpyyds__的博客
03-01 3459
dnf,python,opencv,自动化脚本
DNF自动系列脚本
qq_42888661的博客
07-11 1万+
DNF全自动系列脚本 1.全自动黄龙青龙脚本 2.全自动升级脚本 3.全自动格蓝迪脚本 4.全自动异界摸金脚本 5.全自动断头谷脚本 6.DNF硬件全自动起号脚本 7.DNF一体脚本 ...
基于yolov5识别算法实现的DNF自动脚本
最新发布
06-25
【作品名称】：基于yolov5识别算法实现的DNF自动脚本 【适用人群】：适用于希望学习不同技术领域的小白或进阶学习者。可作为毕设项目、课程设计、大作业、工程实训或初期项目立项。 【项目介绍】：准备工作:数据集...
基于yolov5识别算法实现的DNF自动脚本源码（优质项目）.zip
04-26
基于yolov5识别算法实现的DNF自动脚本源码（优质项目）.zip准备工作:数据集的收集与测试 录制整体流程视频 标注数据集 训练权重文件 视频检测识别效果 游戏主逻辑: 屏幕抓取后图像识别 怪物识别，材料识别等，和怪物...
基于yolov5识别算法实现的DNF自动脚本源码.zip
04-28
《基于YOLOv5识别算法实现的DNF自动脚本源码详解》 在现代计算机视觉领域，目标检测是至关重要的任务之一，它涉及到在图像中寻找并定位特定对象。YOLO（You Only Look Once）系列算法因其高效、准确的特点在实时...
关于脚本的800个教程
11-09
关于脚本的800个教程
按键精灵脚本实战、按键精灵源代码、按键精灵脚实用性案例、按键精灵DNF手游脚本
12-18
按键精灵脚本实战、按键精灵源代码、按键精灵脚实用性案例、按键精灵DNF手游脚本 提供按键精灵源代码和打包后的exe程序，电脑模拟器下载超神大陆即可使用该打包脚本直接使用，内容都是常用代码很值得小白学习，需要...
Python键鼠模拟,DNF自动刷图
enteracity的博客
12-24 4万+
声明： 这篇文章本来是和上一遍关于DNF扫拍的文章在一起的，但是随着后续代码的增加刷图功能涉及的东西太多，都挤在一篇文章中太长也太乱，最后还是单独出来，不定期更新新的功能和原先的功能的迭代版本。 有这方面兴趣的可以一起交流学习，每个人的不同思路都是进步的源泉。 再次声明，本文章仅作学习交流使用,对产生的任何影响，本人概不负责. 转载请注明出处:https://editor.csdn.net/md?...
2019-2020浴血凤凰DNF自动化辅助开发教程
weixin_kkf2020的博客
06-13 1066
2019-2020浴血凤凰DNF自动化辅助开发教程
最新浴血凤凰2020年DNF自动化辅助开发教程
weixin_mail338的博客
06-16 2199
浴血凤凰2020dnf自动化辅助开发视频教程 百度网盘 【2020年最新浴血凤凰DNF自动化辅助开发教程】全自动FH开发组包检测点的找法与还原(1) 【2020年最新浴血凤凰DNF自动化辅助开发教程】全自动FH开发组包检测点的找法与还原(2) 【2020年最新浴血凤凰DNF自动化辅助开发教程】自动FH开发第2课(组包移动城镇飞机) 【2020年最新浴血凤凰DNF自动化辅助开发教程】自动FH开发第3课(无敌CALL找法与检测还原) 【2020年最新浴血凤凰DNF自动化辅助开发教程】自动FH开发第4
QT (一)创建一个hello world窗口
snowwind_51的博客
09-28 544
创建一个Empty qmake Project 工程创建后只有一个HelloWorld.pro文件 添加一个C++的 main.cpp文件 项目列表：有两个文件了 打开HelloWorld.pro文件 添加 QT += widgets 引入Qt Widgets库 编写main.cpp文件 运行效果: ...
DNF2020年全新脚本展示第二部分
qq_42888661的博客
12-31 1238
2020年全新DNF脚本展示第二部分 1.2020年全新DNF脚本部分代码展示第二部分 Function 夺回西部线boss专杀 跑动 (39) Delay 800 Call LB.KeyUp(39) KeyPress "Y", 1 KeyPress "Y", 1 KeyPress "Y", 1 End Function Function 夺回西部线...
DNF辅助代码
herry菌的专栏
03-28 1万+
物品代码： [/post] 2600023 血回满 2600024 蓝回满 2600027 无敌 2600028 血蓝都回满 加速药水 7300 攻防药水 7301 召唤法师 7302 红蓝690药1133 召冰精灵 1138 召寒冰虎 1139 召班图 1140 召龙女 1145 霸体药水 1142 红+600 1148...
dnf java 脚本
06-10
DNF 的 Java 脚本是指使用 Java 语言编写的脚本，可以通过 DNF 插件机制进行加载和执行。Java 脚本可以实现一些高级的功能，例如自动打怪、自动卖垃圾、自动修理等，可以大大提高游戏的效率和舒适度。 下面是一个简单的 DNF Java 脚本示例，实现了自动拾取物品和自动喝药水的功能： ```java import com.alibaba.fastjson.JSONObject; import com.my.dnf.Plugin; import com.my.dnf.annotation.PluginMeta; import com.my.dnf.ui.Key; import com.my.dnf.ui.Mouse; import com.my.dnf.ui.Screen; @PluginMeta(name = "AutoPickupAndDrink", version = "1.0.0") public class AutoPickupAndDrink extends Plugin { private static final int PICKUP_KEY = Key.B; private static final int DRINK_KEY = Key.F1; private static final int DRINK_PERCENTAGE = 50; @Override public void run() { while (true) { // 检查是否有可拾取的物品 JSONObject items = Screen.scanItems(); if (items != null) { // 移动鼠标到物品位置 int x = items.getIntValue("x"); int y = items.getIntValue("y"); Mouse.move(x, y); // 按下拾取键 Key.press(PICKUP_KEY); Key.release(PICKUP_KEY); } // 检查是否需要喝药水 int hpPercentage = Screen.getHpPercentage(); if (hpPercentage < DRINK_PERCENTAGE) { // 按下喝药水键 Key.press(DRINK_KEY); Key.release(DRINK_KEY); } // 等待一段时间 sleep(1000); } } } ``` 上面的示例中，AutoPickupAndDrink 类继承自 DNF 的 Plugin 类，并使用 @PluginMeta 注解指定了插件的名称和版本号。在 run() 方法中，使用循环实现了自动拾取物品和自动喝药水的功能。使用 Screen 类获取屏幕上的物品信息和当前血量信息，使用 Key 类模拟按键操作，使用 Mouse 类模拟鼠标移动操作。最后，使用 sleep() 方法等待一段时间，避免过度消耗 CPU 资源。 要使用该插件，需要将 Java 类编译成字节码文件，并将其放置在 DNF 插件目录下。然后，通过 DNF 插件管理器加载该插件，并启动游戏即可。注意，在使用 DNF 插件时，需要遵守游戏的相关规定和法律法规，不得进行作弊和破坏游戏平衡的行为。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 9
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

剑道书生

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值