DNF2020年全新脚本展示

1.脚本界面如图所示

2.刷图效果展示

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

Global 超时, 游戏存在, 副本, 副本难度, 组队成功, 图内角色位置, 是否路口, BOSS, 退出副本, 切换下个角色, 向下, 刷图次数, 通关次数, wegame登录,wegamehwnd,启动方式,窗口1hwnd,窗口2hwnd ,账号刷完Call Plugin.Msg.Tips("启动程序")Call 注册LBCall 主线程Sub 主线程()是否路口 = "假"账号刷完 = "假"If Form1.OptionBox1.Value = 1 Then 启动方式 = 0ElseIf Form1.OptionBox2.Value = 1 Then启动方式 = 1End If通关次数 = 0Call 注册LB检测hwnd = BeginThread(检测线程)Call Plugin.Msg.Tips("识别游戏")Call 识别游戏超时 = 100If 游戏存在 = "真" Then Call Plugin.Msg.Tips("游戏存在")Goto 下一步操作游戏存在 = ""End IfCall 判断是否登录wegameIf wegame登录 = "真" Then For 2Call 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")NextElse For 2Call 清理进程NextEnd If超时 = 100Call Plugin.Msg.Tips("启动wegame")Call 启动wegame超时 = 100Call 调整1号窗口Call 窗口1进入游戏Call Plugin.Msg.Tips("1号窗口启动完毕")超时 = 100If Form1.CheckBox15.Value = 1 Then Call 启动2号DNF超时 = 100Call 处理wegame安全验证超时 = 100Call 调整2号窗口Call 窗口2进入游戏Delay 5000Call 切换到1号KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Delay 300Call 移动单击(747, 127)Delay 2000Call 切换到2号KeyPress "Esc", 1Delay 300Call 移动单击(1279,561)Delay 300Call 移动单击(1279,561)超时 = 100End IfCall 切换到1号KeyPress "P", 1Delay 2000For 2KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Delay 300Call 移动单击(747, 127)NextCall LB.FindStr(1072,23,1395,122, "制裁", "ff3232-000000|ffffff-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then EndScript End IfIf Form1.CheckBox15.Value = 1 Then Call 切换到2号KeyPress "P", 1Delay 2000For 2KeyPress "Esc", 1Delay 300Call 移动单击(1279,561)Delay 300Call 移动单击(1279, 561)NextCall 切换到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 IfEnd If Rem 下一步操作是否路口 = "假"BOSS = "假"游戏存在 = "真"刷图次数 = 0color1 = LB.GetColor(473, 553)If Form1.CheckBox15.Value = 1 Then color2 = LB.GetColor(1006, 988)End If超时 = 100If 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 IfMessageBox "账号已刷完"KeyPress "F12", 1KeyPress "F12", 1EndScriptEnd IfCall 窗口1入库If Form1.CheckBox15.Value = 1 Then Call 窗口2入库End If 超时 = 100Call 窗口1切换角色If Form1.CheckBox15.Value = 1 Then Call 窗口2切换角色End If 超时 = 100Goto 下一步操作End If超时 = 100If Form1.CheckBox14.Value = 1 Then If Form1.CheckBox17.Value = 1 Then KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Delay 300DoCall 创建队伍Call 同意入队Call 判断组队成功If 组队成功 = "真" Then Exit Do End IfCall 切换到1号赛利亚LoopElse End IfEnd IfIf Form1.CheckBox14.Value = 1 Then If Form1.CheckBox18.Value = 1 Then KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Delay 300DoCall 加入队伍1Call 判断组队成功If 组队成功 = "真" Then Exit Do End IfCall 切换到1号赛利亚LoopElse End IfEnd IfIf Form1.CheckBox15.Value = 1 Then If Form1.CheckBox16.Value = 1 Then Else Call 双开组队End If超时 = 100Call 启动同步Else Call 切换到1号End If超时 = 100If Form1.CheckBox8.Value = 1 Then If Form1.CheckBox16.Value = 1 Then 超时 = 100Call 走到工业副本门超时 = 100Call 选择特伦斯副本1Call 选择特伦斯副本2Call 切换到1号超时 = 100DoRem 再次刷图7超时 = 100Call 判断特伦斯进图1Call 判断特伦斯进图2超时 = 100For 100Call 确定特伦斯人物图内位置1Call 确定特伦斯人物图内位置2Call 确定特伦斯当前房间是否开门1Call 确定特伦斯当前房间是否开门2超时 = 200If 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图7End IfNext LoopElse 超时 = 100Call 走到工业副本门超时 = 100Call 选择特伦斯副本超时 = 100DoRem 再次刷图超时 = 100Call 判断特伦斯进图超时 = 100For 10Call 确定特伦斯人物图内位置Call 确定特伦斯当前房间是否开门If Form1.CheckBox14.Value = 1 Then If Form1.CheckBox18.Value = 1 Then If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfElse 超时 = 200End IfElse If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfEnd IfIf 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图End IfNext LoopEnd If End IfIf Form1.CheckBox6.Value = 1 Then 超时 = 100Call 走到根特副本门超时 = 100Call 选择根特副本超时 = 100DoRem 再次刷图1超时 = 100Call 判断根特北门进图超时 = 100For 10Call 确定根特北门人物图内位置Call 确定根特北门当前房间是否开门If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfIf 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图1End IfNext LoopEnd IfIf Form1.CheckBox10.Value = 1 Then 超时 = 100Call 走到能源熔炉副本门超时 = 100Call 选择能源熔炉副本超时 = 100DoRem 再次刷图2超时 = 100Call 判断能源熔炉进图超时 = 100For 10Call 确定能源熔炉人物图内位置Call 确定能源熔炉当前房间是否开门If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfIf 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图2End IfNext LoopEnd IfIf Form1.CheckBox12.Value = 1 Then If Form1.CheckBox16.Value = 1 Then 超时 = 100Call 走到海上列车副本门超时 = 100Call 选择夺回西部线副本超时 = 100Call 切换到2号Call 选择夺回西部线副本2超时 = 100DoRem 再次刷图4超时 = 100Call 判断夺回西部线进图超时 = 100For 10Call 确定夺回西部线人物图内位置Call 确定夺回西部线人物图内位置1Call 确定夺回西部线当前房间是否开门1Call 确定夺回西部线当前房间是否开门2If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfIf 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图4End IfNext LoopElse 超时 = 100Call 走到海上列车副本门超时 = 100Call 选择夺回西部线副本超时 = 100DoRem 再次刷图3超时 = 100Call 判断夺回西部线进图超时 = 100For 10Call 确定夺回西部线人物图内位置Call 确定夺回西部线当前房间是否开门If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfIf 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图3End IfNext LoopEnd If End IfIf Form1.CheckBox13.Value = 1 Then 超时 = 100Call 走到幽冥监狱副本门超时 = 100Call 选择幽冥监狱副本超时 = 100DoRem 再次刷图6超时 = 100Call 判断幽冥监狱进图超时 = 100For 10Call 确定幽冥监狱人物图内位置Call 确定幽冥监狱当前房间是否开门If 刷图次数 >= 7 Then 刷图次数 = 0超时 = 200Exit Do End IfIf 切换下个角色 = 1 Then 切换下个角色 = 0Exit Do End IfIf BOSS = "真" Then BOSS = "假"Goto 再次刷图6End IfNext LoopEnd IfGoto 下一步操作End SubFunction 确定幽冥监狱当前房间是否开门Select Case 图内角色位置Case 1超时 = 200If Form1.CheckBox7.Value = 1 Then Delay 500跑动 (39)Delay 900Call LB.KeyUp(39)Delay 200KeyPress "W", 1End If DoCall 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 500End IfCall 幽冥监狱图一过图Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoElse Call 释放小技能End IfLoop Case 2超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End IfDelay 500跑动 (39)Delay 700Call LB.KeyDown(38)Delay 900Call LB.KeyUp(38)Call LB.KeyUp(39)KeyPress "A", 1KeyPress "E", 1DoCall 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 DoElse Call 释放小技能End IfLoop Case 3超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End IfDelay 500跑动 (39)Delay 400Delay 600Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 450Call LB.KeyUp(40)KeyPress "S", 1KeyPress "S", 1KeyPress "S", 1KeyPress "S", 1KeyPress "S", 1For 4Call 释放小技能Delay 700NextDelay 500KeyPress "E", 1KeyPress "Q", 1计次 = 0DoCall 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 DoElse Call 释放小技能计次 = 计次 + 1If 计次 >= 7 Then Call LB.KeyDown(40)Delay 200Call LB.KeyUp(40)Else Call LB.KeyDown(38)Delay 200Call LB.KeyUp(38)End IfIf 计次 >= 10 Then Call LB.KeyDown(39)Delay 200Call LB.KeyUp(39)计次 = 0End If End IfLoop Case 4超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End IfCall LB.KeyDown(38)Delay 200Call LB.KeyUp(38)KeyPress "E", 1KeyPress "Q", 1Delay 500For 2Call 释放小技能Delay 600NextDelay 500跑动 (39)Delay 1000Call LB.KeyDown(38)Delay 2600Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 600Call LB.KeyUp(40)KeyPress "A", 1KeyPress "E", 1KeyPress "F", 1Delay 1300Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)计次 = 0DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能计次 = 计次 + 1If 计次 >= 5 Then Call LB.KeyDown(40)Delay 400Call LB.KeyUp(40)Else Call LB.KeyDown(38)Delay 400Call LB.KeyUp(38)End IfIf 计次 >= 10 Then 计次 = 0End If End IfEnd IfLoop Case 5超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End IfDelay 500KeyPress "E", 1Delay 500跑动 (39)Delay 2300Call LB.KeyUp(39)Delay 500Call LB.KeyDown(37)Delay 100Call LB.KeyUp(37)Delay 300DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 6超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End IfCall LB.KeyDown(38)Delay 200Call LB.KeyUp(38)KeyPress "E", 1KeyPress "Q", 1Delay 600跑动 (39)Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Call LB.KeyUp(39)KeyPress "A", 1KeyPress "A", 1KeyPress "F", 1For 2Call 释放小技能Delay 600NextDelay 1000跑动 (39)Delay 500Call LB.KeyDown(38)Delay 2400Call LB.KeyUp(38)Delay 200Call LB.KeyUp(39)Delay 300跑动 (37)Delay 400Call LB.KeyUp(37)Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)计次 = 0次数= 0DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能计次 = 计次 + 1If 计次 >= 5 Then Call LB.KeyDown(40)Delay 400Call LB.KeyUp(40)Else Call LB.KeyDown(38)Delay 400Call LB.KeyUp(38)End IfIf 计次 >= 10 Then 计次 = 0次数 = 次数 + 1If 次数 >= 2 Then Call LB.KeyDown(39)Delay 40Call LB.KeyUp(39)次数= 0End IfEnd If End IfEnd IfLoop Case "真"超时 = 200Call 幽冥监狱boss专杀Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)DoCall LB.FindPic(818,0,1078,272, "Attachment:\成绩.bmp", "000000", 0.85, 0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Delay 1500Call 黄金翻拍Call 窗口1聚物Call 窗口2聚物Call 切换到1号Call BOSS物品拾取End IfCall LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then BOSS = "真"切换下个角色 = 0退出副本 = ""Exit DoElse KeyPress "W", 1KeyPress "G", 1KeyPress "H", 1KeyPress "R", 1KeyPress "Y", 1Call 释放小技能End IfCall 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 DoEnd IfLoop通关次数 = 通关次数 + 1Delay 1000KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300Call 关闭同步Delay 1000Call 窗口1出售物品Call 窗口2出售物品Call 切换到1号Plugin.Msg.Tips "通关次数" & 通关次数If 退出副本 = "真" Then Delay 1000Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(932, 146)切换下个角色 = 1Else 退出副本 = ""If 刷图次数 >= 7 Then Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(932, 146)Delay 6000Plugin.Msg.Tips "刷图次数" & 刷图次数Plugin.Msg.Tips "执行躲避深渊"Call 切换到1号赛利亚Call 切换到2号赛利亚Else Delay 1000Call 移动单击(934, 83)Call 移动单击(934, 83)Call 移动单击(934, 83)End IfEnd IfEnd SelectEnd FunctionFunction 幽冥监狱boss专杀跑动 (39)Delay 100Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(40)Call LB.KeyDown(38)Delay 800Call LB.KeyUp(39)KeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1End FunctionFunction 幽冥监狱图六过图Delay 500Do跑动 (39)Delay 100Call LB.KeyDown(38)Delay 700Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfEnd If跑动 (39)Delay 500Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 400Call LB.KeyDown(37)Delay 400Call LB.KeyUp(38)Call LB.KeyUp(37)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfEnd IfLoopEnd FunctionFunction 幽冥监狱图五过图Delay 500Do跑动 (39)Delay 200Call LB.KeyDown(38)Delay 900Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 150Call LB.KeyUp(40)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfCall LB.KeyDown(40)Delay 1800Call LB.KeyUp(40)跑动 (39)Delay 500Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 800Call LB.KeyUp(38)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfLoopEnd FunctionFunction 幽冥监狱图四过图Delay 500Do跑动 (39)Delay 800Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)Call LB.KeyUp(39)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfCall LB.KeyDown(40)Delay 1800Call LB.KeyUp(40)跑动 (39)Delay 500Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 800Call LB.KeyUp(38)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfLoopEnd FunctionFunction 幽冥监狱图三过图Delay 500DoCall LB.KeyDown(38)Delay 3500Call LB.KeyUp(38)Delay 300KeyPress "E", 1KeyPress "Q", 1Delay 1000Call LB.KeyDown(40)Delay 1400Call LB.KeyUp(40)Delay 500跑动 (39)Delay 700Delay 2500Call LB.KeyUp(39)Delay 500跑动 (39)Delay 500Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)Call LB.KeyUp(39)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfCall LB.KeyDown(40)Delay 1800Call LB.KeyUp(40)跑动 (39)Delay 500Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 800Call LB.KeyUp(38)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfLoopEnd FunctionFunction 幽冥监狱图二过图Delay 500Do跑动 (39)Delay 500Call LB.KeyDown(40)Delay 1800Call LB.KeyUp(40)Call LB.KeyUp(39)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End If跑动 (39)Delay 300Call LB.KeyDown(38)Delay 500Call LB.KeyUp(39)Call LB.KeyUp(38)Delay 1500Call 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 DoElse KeyPress "X", 1Delay 500End IfLoopEnd FunctionFunction 幽冥监狱图一过图Delay 500Do跑动 (39)Delay 300Call LB.KeyDown(38)Delay 1200Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1500Call 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 DoEnd If跑动 (39)Delay 300Call LB.KeyDown(38)Delay 500Call LB.KeyUp(39)Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Call LB.KeyUp(38)Delay 1500Call 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 DoEnd IfLoopEnd FunctionFunction 确定幽冥监狱人物图内位置DoCall LB.FindPic(970,83,990,103, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then TracePrint 1图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfCall LB.FindPic(971,65,989,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then TracePrint 2图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfCall LB.FindPic(987,65,1009,85, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then TracePrint 3图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfCall LB.FindPic(1006,64,1027,84, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then TracePrint 4图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfCall LB.FindPic(1023,63,1047,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then TracePrint 5图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfCall LB.FindPic(1042,64,1064,85, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "真"TracePrint 6图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfIf 是否路口 = "真" 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 IfEnd IfLoopEnd FunctionFunction 判断幽冥监狱进图次数 = 0DoCall 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 风法BUFFExit DoElse TracePrint "已进入幽冥监狱副本"Call 启动同步Call 风法BUFFExit DoEnd If Else Delay 1000次数 = 次数 + 1If 次数 >= 60 Then Call 启动同步Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Delay 300Call LB.KeyDown(39)Call 选择幽冥监狱副本End IfEnd IfLoopEnd FunctionFunction 选择幽冥监狱副本DoCall 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 1000If Form1.CheckBox13.Value = 1 Then 副本 = "幽冥监狱"End IfIf Form1.CheckBox1.Value = 1 Then 副本难度 = "普通级"End IfIf Form1.CheckBox2.Value = 1 Then 副本难度 = "冒险级"End IfIf Form1.CheckBox3.Value = 1 Then 副本难度 = "勇士级"End IfIf Form1.CheckBox4.Value = 1 Then 副本难度 = "王者级"End IfIf Form1.CheckBox5.Value = 1 Then 副本难度 = "噩梦级"End IfDoCall LB.FindStr(806,433,974,527, "幽冥监狱", "ddc593-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Select Case 副本难度Case "普通级"For 5Call LB.KeyPress(37)Delay 100NextCase "冒险级"For 5Call LB.KeyPress(37)Delay 100NextFor 1Call LB.KeyPress(39)Delay 100Next Case "勇士级"For 5Call LB.KeyPress(37)Delay 100NextFor 2Call LB.KeyPress(39)Delay 100Next Case "王者级"For 5Call LB.KeyPress(37)Delay 100NextFor 3Call LB.KeyPress(39)Delay 100Next Case "噩梦级"For 5Call LB.KeyPress(37)Delay 100NextFor 4Call LB.KeyPress(39)Delay 100Next End SelectKeyPress "Space", 1KeyPress "Space", 1Exit DoElse Call LB.KeyPress(38)Delay 500End If Loop End FunctionFunction 走到幽冥监狱副本门Call 启动同步Call LB.KeyDown(40)Delay 3500Call LB.KeyUp(40)Call LB.KeyDown(38)Delay 1000Call LB.KeyUp(38)Delay 300Call LB.KeyDown(37)End FunctionFunction 确定夺回西部线当前房间是否开门Select Case 图内角色位置Case 1超时 = 200If Form1.CheckBox7.Value = 1 Then Delay 500跑动 (37)Delay 500Call LB.KeyUp(37)Delay 200Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)KeyPress "E", 1Delay 500KeyPress "F", 1Delay 1000KeyPress "Q", 1End IfDoCall 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 500End IfCall 夺回西部线图一过图Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoElse Call 释放小技能End IfLoop Case 2超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 300Call LB.KeyDown(38)Delay 200Call LB.KeyUp(38)Call LB.KeyUp(39)KeyPress "W", 1KeyPress "W", 1KeyPress "W", 1Delay 2500跑动 (39)Delay 1500Call LB.KeyUp(39)DoCall 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 DoElse Call 释放小技能End IfLoop Case 3超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 700Call LB.KeyUp(39)Delay 100KeyPress "A", 1KeyPress "A", 1Delay 500DoCall 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 DoElse Call 释放小技能End IfLoop Case 4超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End IfKeyDown "H", 1Delay 2000KeyUp "H", 1Delay 100跑动 (39)Delay 1200Call LB.KeyUp(39)DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 5超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 600Call LB.KeyUp(39)KeyPress "W", 1KeyPress "W", 1Delay 1000KeyPress "S", 1KeyPress "S", 1DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 6超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 600Delay 2000Call LB.KeyUp(39)Delay 300Call LB.KeyPress(37)Call LB.KeyPress(37)Delay 300DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case "真"超时 = 200Call 夺回西部线boss专杀KeyPress "S", 1KeyPress "S", 1DoCall LB.FindPic(818,0,1078,272, "Attachment:\成绩.bmp", "000000", 0.9, 0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Delay 1500Call 黄金翻拍Call 窗口1聚物Call 窗口2聚物Call 切换到1号Call BOSS物品拾取End IfCall LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then BOSS = "真"切换下个角色 = 0退出副本 = ""Exit DoElse KeyPress "W", 1KeyPress "G", 1KeyPress "H", 1KeyPress "R", 1KeyPress "Y", 1Call 释放小技能End IfCall 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 DoEnd IfLoop刷图次数 = 刷图次数 + 1通关次数 = 通关次数 + 1Delay 1000KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300Call 关闭同步Delay 1000Call 窗口1出售物品Call 窗口2出售物品Call 切换到1号Plugin.Msg.Tips "通关次数" & 通关次数If 退出副本 = "真" Then Delay 1000Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(932,146)切换下个角色 = 1Else 退出副本 = ""If 刷图次数 >= 7 Then Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(932,146)Delay 6000Plugin.Msg.Tips "刷图次数" & 刷图次数Plugin.Msg.Tips "执行躲避深渊"Call 切换到1号赛利亚Call 切换到2号赛利亚Else Delay 1000Call 移动单击(934, 83)Call 移动单击(934, 83)Call 移动单击(934,83)End IfEnd IfEnd SelectEnd FunctionFunction 确定夺回西部线当前房间是否开门1Select Case 图内角色位置Case 1超时 = 200If Form1.CheckBox7.Value = 1 Then Delay 500跑动 (37)Delay 200Call LB.KeyDown(38)Delay 300Call LB.KeyUp(38)Delay 100Call LB.KeyUp(37)Delay 200Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)KeyPress "E", 1Delay 500KeyPress "F", 1Delay 1000KeyPress "Q", 1End If次数 = 0DoCall 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 DoElse 次数 = 次数 + 1Call 释放小技能If 次数 >= 3 Then Call LB.KeyDown(38)Delay 100Call LB.KeyUp(38)Else Call LB.KeyDown(40)Delay 400Call LB.KeyUp(40)End IfIf 次数 >= 10 Then 次数 = 0End If End IfLoop Case 2超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 300Call LB.KeyDown(38)Delay 100Call LB.KeyUp(38)Call LB.KeyUp(39)KeyPress "W", 1KeyPress "W", 1KeyPress "W", 1Delay 2500For 5Call 释放小技能Delay 1000Next跑动 (39)Delay 200Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 500Call LB.KeyUp(39)次数 = 0DoCall 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 DoElse 次数 = 次数 + 1If 次数 >= 4 Then Call LB.KeyDown(38)Delay 200Call LB.KeyUp(38)Else Call LB.KeyDown(40)Delay 400Call LB.KeyUp(40)End IfIf 次数 >= 10 Then 次数 = 0End IfCall 释放小技能End IfLoop Case 3超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 300Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Call LB.KeyUp(39)Delay 100KeyPress "A", 1KeyPress "A", 1Delay 500DoCall 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 DoElse Call 释放小技能End IfLoop Case 4超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 200Call LB.KeyUp(39)KeyDown "H", 1Delay 2000KeyUp "H", 1Delay 100跑动 (39)Delay 1200Call LB.KeyUp(39)DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 5超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 600Call LB.KeyUp(39)KeyPress "W", 1KeyPress "W", 1Delay 1000KeyPress "S", 1KeyPress "S", 1DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 6超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 500End If跑动 (39)Delay 800Delay 2000Call LB.KeyUp(39)Delay 300Call LB.KeyPress(37)Call LB.KeyPress(37)Delay 300KeyPress "G", 1KeyPress "G", 1KeyPress "G", 1次数 = 0DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then 次数 = 次数 + 1Call 释放小技能If 次数 >= 5 Then Call LB.KeyDown(38)Delay 100Call LB.KeyUp(38)Else Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)End IfIf 次数 >= 10 Then Call LB.KeyDown(37)Delay 50Call LB.KeyUp(37)次数 = 0End If End IfEnd IfLoop Case "真"超时 = 200Call 夺回西部线boss专杀KeyPress "S", 1KeyPress "S", 1DoCall LB.FindPic(818,0,1078,272, "Attachment:\成绩.bmp", "000000", 0.9, 0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Delay 1500Call 黄金翻拍End IfCall 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 DoElse KeyPress "W", 1KeyPress "G", 1KeyPress "H", 1KeyPress "R", 1KeyPress "Y", 1Call 释放小技能End If Else KeyPress "W", 1KeyPress "G", 1KeyPress "H", 1KeyPress "R", 1KeyPress "Y", 1Call 释放小技能End IfCall 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 DoEnd IfCall 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 DoEnd If Loop刷图次数 = 刷图次数 + 1通关次数 = 通关次数 + 1Delay 1000KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300Call 关闭同步Delay 1000Call 窗口1出售物品Call 窗口2出售物品Plugin.Msg.Tips "通关次数" & 通关次数If 退出副本 = "真" Then Delay 1000Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(1473,580)Call 移动单击(1473,580)Call 移动单击(1473,580)切换下个角色 = 1Delay 5000Else 退出副本 = ""Plugin.Msg.Tips "刷图次数" & 刷图次数Delay 1000Call 移动单击(934, 83)Call 移动单击(934, 83)Call 移动单击(934, 83)Call 移动单击(1465,521)Call 移动单击(1465,521)Call 移动单击(1465, 521)End IfDelay 10000End SelectEnd FunctionFunction 确定夺回西部线当前房间是否开门2Select Case 图内角色位置Case 1超时 = 200次数 = 0DoCall 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 500End IfCall 夺回西部线图一过图Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoElse 次数 = 次数 + 1Call 释放小技能If 次数 >= 5 Then Call LB.KeyDown(38)Delay 100Call LB.KeyUp(38)Else Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)End IfIf 次数 >= 10 Then 次数 = 0End If End IfLoop Case 2超时 = 200DoCall 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 DoElse Call 释放小技能End IfLoop Case 3超时 = 200DoCall 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 DoElse Call 释放小技能End IfLoop Case 4超时 = 200DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 5超时 = 200DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then Call 释放小技能End IfEnd IfLoop Case 6超时 = 200次数 = 0DoCall 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 DoElse If Form1.CheckBox9.Value = 1 Then ElseIf Form1.CheckBox7.Value = 1 Then 次数 = 次数 + 1Call 释放小技能If 次数 >= 5 Then Call LB.KeyDown(38)Delay 100Call LB.KeyUp(38)Else Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)End IfIf 次数 >= 10 Then Call LB.KeyDown(37)Delay 50Call LB.KeyUp(37)次数 = 0End If End IfEnd IfLoop End SelectEnd Function