当前位置：首页 > news >正文
DNF2020年全新脚本展示第三部分

news 2025/6/6 10:57:38
DNF2020年全新脚本展示第三部分

1.2020年全新DNF脚本部分代码展示第三部分
Function 根特北门boss专杀Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)Delay 200Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 750Call LB.KeyUp(39)KeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1
End Function
Function 根特北门图一过图Do Delay 500Call LB.KeyDown(39)Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(934,65,953,84, "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 IfCall LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 1000Call LB.KeyDown(38)Call LB.KeyUp(37)Delay 2000Call LB.KeyUp(38)Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 200Call LB.KeyDown(38)Delay 2000Call LB.KeyUp(38)Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Call LB.KeyDown(38)Delay 1200Call LB.KeyUp(38)KeyPress "X", 1KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfDelay 500Call LB.KeyDown(39)Delay 300Call LB.KeyDown(39)Call LB.KeyDown(40)Delay 1300Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(934,65,953,84, "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 IfLoop 
End Function
Function 根特北门图二过图Do Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 300Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 300Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(950,64,971,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfElse Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfCall LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 1000Call LB.KeyDown(38)Call LB.KeyUp(37)Delay 2000Call LB.KeyUp(38)Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 300Call LB.KeyDown(38)Delay 1200Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(950,64,971,86, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfElse Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfLoop 
End Function
Function 根特北门图三过图Do Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(40)Delay 300Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 300Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 700Call LB.KeyDown(38)Delay 4000KeyPress "X", 1KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfDelay 500Call LB.KeyUp(38)Call LB.KeyDown(39)Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(970,65,989,83, "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 IfCall LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 1000Call LB.KeyDown(38)Call LB.KeyUp(37)Delay 2000Call LB.KeyUp(38)Delay 1500Call LB.FindPic(970,65,989,83, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then Else TracePrint "过图三成功"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfLoop 
End Function
Function 根特北门图四过图Call LB.KeyDown(40)Delay 200Call LB.KeyUp(40)Do Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 4000Call LB.KeyUp(39)Delay 300Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 100Call LB.KeyDown(38)Delay 1500Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfDelay 1500Call LB.FindPic(986,46,1008,66, "Attachment:\人物图标.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 DoEnd IfLoop 
End Function
Function 根特北门图五过图Do Call LB.KeyDown(38)Delay 900Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 2500Call LB.KeyUp(39)Delay 300KeyPress "X", 1KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfDelay 500Call LB.KeyUp(38)Call LB.KeyDown(39)Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(988,47,1007,65, "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 DoEnd IfDelay 900Call LB.KeyDown(40)Delay 2500Call LB.KeyUp(40)Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 2500Call LB.KeyUp(39)Delay 900Call LB.KeyDown(38)Call LB.KeyDown(37)Delay 2800Call LB.KeyUp(38)Call LB.KeyUp(37)Delay 300Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 2500Call LB.KeyUp(37)Loop 
End Function
Function 根特北门图六过图Do Delay 500Call LB.KeyDown(37)Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(37)Call LB.KeyUp(40)Delay 300Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 300Call LB.KeyDown(38)Delay 2500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 300Call LB.KeyDown(39)KeyPress "X", 1KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfDelay 500Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(1006,47,1025,66, "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 DoEnd IfCall LB.KeyDown(37)Delay 1000Call LB.KeyUp(37)Delay 300Call LB.KeyDown(38)Delay 2500Call LB.KeyUp(38)Delay 300Call LB.KeyDown(39)Delay 2500KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfDelay 300Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(40)Call LB.KeyUp(39)Loop 
End Function
Function 根特北门图七过图Do Delay 500Call LB.KeyDown(38)Delay 1000Call LB.KeyUp(38)Delay 500Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 500Call LB.KeyDown(40)Delay 2500Call LB.KeyUp(40)Call LB.KeyUp(39)Delay 300Call LB.KeyDown(38)Delay 1200Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.FindPic(1024,47,1042,65, "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 DoEnd IfCall LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 200Call LB.KeyDown(38)Call LB.KeyUp(37)Delay 2000Call LB.KeyUp(38)Loop 
End Function
Function 根特北门图八过图Do Delay 500Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 60Call LB.KeyDown(40)Delay 2000Call LB.KeyUp(40)Call LB.KeyUp(39)Delay 500Call LB.KeyDown(37)Delay 100Call LB.KeyUp(37)Call LB.KeyDown(38)Delay 1800Call LB.KeyUp(38)Delay 200Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 60Call LB.KeyDown(40)Delay 1500KeyPress "X", 1KeyPress "X", 1If Form1.CheckBox9.Value = 1 Then Delay 1500End IfCall LB.KeyDown(37)Delay 1200Call LB.KeyUp(37)Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Delay 1500Call LB.FindPic(1042,47,1061,66, "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 DoEnd IfLoop 
End Function
Function 判断根特北门进图次数 = 0DoCall LB.FindStr(851,0,1036,35, "根特北门", "ccc1a7-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 启动同步Call 风法BUFFExit DoElse Delay 1000次数 = 次数 + 1If 次数 >= 60 Then Call 启动同步Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Delay 300Call LB.KeyDown(39)Call 选择根特副本End IfEnd IfLoop
End Function
Function 判断能源熔炉进图次数 = 0DoCall LB.FindStr(851,0,1036,35, "能源熔炉", "ccc1a7-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 启动同步Call 风法BUFFExit DoElse Delay 1000次数 = 次数 + 1If 次数 >= 60 Then Call 启动同步Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Delay 300Call LB.KeyDown(39)Call 选择能源熔炉副本End IfEnd IfLoop
End Function
Function 选择根特副本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 1500If Form1.CheckBox6.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 Function
Function 走到根特副本门Call LB.KeyDown(40)Delay 2500Call LB.KeyUp(40)Call LB.KeyDown(37)Delay 1500Call LB.KeyDown(38)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)Exit Do End If Loop 
End Function
Sub 检测线程()Call 注册LB超时 = 0DoIf 超时 >= 300 Then Call Plugin.Msg.Tips("超时")Call 清理进程游戏存在 = "假"Delay 3000RestartScriptElse Delay 10000超时 = 超时 + 10End IfIf 游戏存在 = "真" Then Window1 = Plugin.Window.Find("地下城与勇士","地下城与勇士")If Form1.CheckBox15.Value = 1 Then Window1 = Plugin.Window.IsWindow(窗口1hwnd)Window2 = Plugin.Window.IsWindow(窗口2hwnd)If Window1 = 1 And Window2 = 1 Then Else Call Plugin.Msg.Tips("游戏窗口消失")Call 清理进程Delay 3000RestartScriptEnd IfElse If Window1 > 0  Then Else Call Plugin.Msg.Tips("游戏窗口消失")Call 清理进程Delay 3000RestartScriptEnd IfEnd If End IfCall 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 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 IfCall LB.FindStr(0,0,1920,1080, "网络中断", "ffffff-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call Plugin.Msg.Tips("网络中断")Call 清理进程Delay 3000RestartScriptEnd IfIf 账号刷完 = "真" Then Exit Do End IfLoop 
End Sub
Function 窗口1入库超时 = 200Call 切换到1号Call 切换到1号Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)DoCall LB.FindStr(281, 79, 805, 524, "选择角色", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(intX + 10, intY)Call MoveTo(0, 0)Delay 3000Else KeyPress "Esc", 1Delay 500End IfCall LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Delay 3000Call 窗口1进入游戏Exit DoEnd IfLoopCall 移动单击(277, 359)Call 移动单击(277,359)DoCall LB.FindStr(489,106,575,155,"格","e6c89b-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then For 2Call 移动单击(417,126)NextCall LB.FindStr(305,80,592,490,"存入","ddc593-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 移动单击(intX,intY)Delay 300Call 移动单击(intX,intY)Delay 300Call 移动单击(intX,intY)Delay 300End If Call LB.FindStr(305,80,592,490,"(A)","dec694-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 移动单击(intX,intY)Delay 300End If For 3KeyPress "Enter", 1Delay 200NextDelay 300Exit DoElse Call 切换到1号Call 移动单击(486,360)Delay 1000End IfLoop 
End Function
Function 窗口2入库If Form1.CheckBox15.Value = 1 Then 超时 = 200Call 切换到2号Call 切换到2号Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)DoCall LB.FindStr(819,559,1328,953, "选择角色", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(intX + 10, intY)Call MoveTo(0, 0)Delay 3000Else KeyPress "Esc", 1Delay 500End IfCall LB.FindStr(577,503,1363,952,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Delay 3000Call 窗口2进入游戏Exit DoEnd IfLoopCall 移动单击(804,800)Call 移动单击(804,800)DoCall LB.FindStr(1029,546,1103,580,"格","e6c89b-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then For 2Call 移动单击(952,563)NextCall LB.FindStr(842,514,1128,909,"存入","ddc593-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 移动单击(intX,intY)Delay 300Call 移动单击(intX,intY)Delay 300Call 移动单击(intX,intY)Delay 300End If Call LB.FindStr(842,514,1128,909,"(A)","dec694-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 移动单击(intX,intY)Delay 300End If For 3KeyPress "Enter", 1Delay 200NextDelay 300Exit DoElse Call 切换到2号Call 移动单击(1024,793)Delay 1000End IfLoopEnd If 
End Function
Function 窗口1切换角色Call 关闭同步Call 切换到1号Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)次数 = 0DoCall LB.FindStr(281, 79, 805, 524, "选择角色", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(intX + 10, intY)Call MoveTo(0, 0)Delay 3000Else KeyPress "Esc", 1Delay 500End IfCall LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 切换到1号Delay 2000Call LB.KeyPress(39)Delay 300Call 窗口1进入游戏Exit DoEnd IfLoop 
End Function
Function 窗口2切换角色If Form1.CheckBox15.Value = 1 Then Call 切换到2号Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)次数 = 0DoCall LB.FindStr(819,559,1328,953, "选择角色", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(intX + 10, intY)Call MoveTo(0, 0)Delay 3000Else KeyPress "Esc", 1Delay 500End IfCall LB.FindStr(577,503,1363,952,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 切换到2号Delay 2000Call LB.KeyPress(39)Delay 300Call 窗口2进入游戏Exit DoEnd IfLoopEnd If 
End Function
Function 黄金翻拍Call LB.FindPic(110,259,970,560, "Attachment:\黄金.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then Call 切换到1号KeyPress "5", 1KeyPress "5", 1End If 
End Function
Function 黄金翻拍1Call LB.FindPic(683,764,1015,993, "Attachment:\黄金.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then Call 切换到2号KeyPress "5", 1KeyPress "5", 1Call 切换到1号End If 
End Function
Function BOSS物品拾取Call 切换到1号For 35KeyPress "X", 1Delay 30Next
End Function
Function 窗口1出售物品Call 切换到1号Call 移动单击(195, 514)Call 移动单击(195, 514)Call 移动单击(632, 275)Call 移动单击(632, 275)Call 移动单击(833, 485 + 30)Delay 500For i = 0  To 7Call MoveTo(620 + i * 30, 302)Delay 300Call LB.FindStr(9, 0, 1068, 600, "金币", "ffffff-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(620 + i * 30, 302)Call 移动单击(620 + i * 30, 302)Else Exit For End IfNextCall 移动单击(436,387)Call 移动单击(436,387)KeyPress "Esc", 1
End Function
Function 窗口2出售物品If Form1.CheckBox15.Value = 1 Then Call 切换到2号Call 移动单击(730, 950)Call 移动单击(730, 950)Call 移动单击(1164, 709)Call 移动单击(1164, 709)Call 移动单击(1366, 919 + 30)Delay 500For i = 0  To 7Call MoveTo(1154 + i * 30,737)Delay 300Call LB.FindStr(530,434,1603,1035, "金币", "ffffff-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(1154 + i * 30,737)Call 移动单击(1154 + i * 30,737)Else Exit For End IfNextCall 移动单击(969, 823)Call 移动单击(969, 823)KeyPress "Esc", 1End If 
End Function
Function 窗口1聚物Call 切换到1号For 4Delay 80KeyPress "J", 1Delay 80KeyPress "J", 1Delay 80KeyPress "Space", 1Delay 80KeyPress "Space", 1Delay 80KeyPress "Space", 1Next
End Function
Function 窗口2聚物If Form1.CheckBox15.Value = 1 Then Call 切换到2号For 4Delay 80KeyPress "J", 1Delay 80KeyPress "J", 1Delay 80KeyPress "Space", 1Delay 80KeyPress "Space", 1Delay 80KeyPress "Space", 1NextEnd If 
End Function
Function 释放小技能If Form1.CheckBox12.Value = 1 Then Call LB.FindPic(753,559,786,597, "Attachment:\风法小技能5.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "F", 1Delay 500Exit Function End IfCall LB.FindPic(721,524,762,565, "Attachment:\风法小技能2.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "E", 1Delay 500Exit Function End IfCall LB.FindPic(659,527,698,565, "Attachment:\风法小技能1.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "Q", 1Delay 500Exit Function End IfCall LB.FindPic(721,555,761,597, "Attachment:\风法小技能4.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "D", 1Delay 500Exit Function End IfEnd IfIf Form1.CheckBox7.Value = 1 Then Call LB.FindPic(753,559,786,597, "Attachment:\风法小技能5.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "F", 1Delay 500Exit Function End IfCall LB.FindPic(658,555,698,596, "Attachment:\风法小技能3.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "A", 1Delay 500Exit Function End IfCall LB.FindPic(721,524,762,565, "Attachment:\风法小技能2.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "E", 1Delay 500Exit Function End IfCall LB.FindPic(659,527,698,565, "Attachment:\风法小技能1.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "Q", 1Delay 500Exit Function End IfCall LB.FindPic(721,555,761,597, "Attachment:\风法小技能4.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "D", 1Delay 500Exit Function End IfEnd IfIf Form1.CheckBox9.Value = 1 Then Call LB.FindPic(665,531,694,559, "Attachment:\召唤小技能1.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "Q", 1End IfCall LB.FindPic(694,529,724,562, "Attachment:\召唤小技能2.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "W", 1End IfCall LB.FindPic(726,531,754,561, "Attachment:\召唤小技能3.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "E", 1End IfCall LB.FindPic(755,530,789,561, "Attachment:\召唤小技能4.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "R", 1End IfCall LB.FindPic(663,558,698,594, "Attachment:\召唤小技能5.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "A", 1End IfCall LB.FindPic(694,562,728,590, "Attachment:\召唤小技能6.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "S", 1End IfCall LB.FindPic(723,561,758,593, "Attachment:\召唤小技能7.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "D", 1End IfCall LB.FindPic(756,559,786,592, "Attachment:\召唤小技能8.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "F", 1End IfCall LB.FindPic(786,563,816,592, "Attachment:\召唤小技能9.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "G", 1End IfCall LB.FindPic(814,562,847,593, "Attachment:\召唤小技能10.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "H", 1End IfEnd IfIf Form1.CheckBox11.Value = 1 Then Call LB.FindPic(665,531,694,559, "Attachment:\修罗小技能1.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "Q", 1Delay 500Exit Function End IfCall LB.FindPic(726,531,754,561, "Attachment:\修罗小技能2.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "E", 1Delay 500Exit Function End IfCall LB.FindPic(663,558,698,594, "Attachment:\修罗小技能3.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "A", 1Delay 500Exit Function End IfCall LB.FindPic(723,561,758,593, "Attachment:\修罗小技能4.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "D", 1Delay 500Exit Function End IfCall LB.FindPic(756,559,786,592, "Attachment:\修罗小技能5.bmp","000000",0.7,0,intX,intY)If intX > 0 And intY > 0 Then KeyPress "F", 1Delay 500Exit Function End IfEnd If
End Function
Function 特伦斯图八定点技能KeyPress "H", 1KeyPress "H", 1
End Function
Function 特伦斯图七定点技能Call LB.KeyDown(37)Delay 500Call LB.KeyUp(37)KeyPress "S", 1KeyPress "S", 1
End Function
Function 特伦斯boss专杀If Form1.CheckBox9.Value = 1 Then If 向下 = "真" Then Call LB.KeyDown(39)Delay 1200Call LB.KeyUp(39)Else Call LB.KeyDown(40)Call LB.KeyDown(37)Delay 1000Call LB.KeyUp(40)Call LB.KeyUp(37)Call LB.KeyPress(39)Delay 100End IfKeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1ElseIf Form1.CheckBox7.Value = 1 ThenIf Form1.CheckBox16.Value = 1 Then If 向下 = "真" Then Call LB.KeyDown(39)Delay 600Call LB.KeyUp(39)Else Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)Call LB.KeyPress(39)End IfKeyPress "W", 1KeyPress "W", 1KeyPress "W", 1KeyPress "W", 1Else If 向下 = "真" Then Call LB.KeyDown(39)Delay 1200Call LB.KeyUp(39)Else Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)Call LB.KeyPress(39)End IfKeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1End IfElseIf Form1.CheckBox11.Value = 1 Then If 向下 = "真" Then Call LB.KeyDown(39)Delay 1200Call LB.KeyUp(39)Else Call LB.KeyDown(40)Call LB.KeyDown(37)Delay 1000Call LB.KeyUp(40)Call LB.KeyUp(37)Call LB.KeyPress(39)Delay 100End IfKeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1KeyPress "Y", 1End If
End Function
Function 特伦斯图六定点技能Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 100Call LB.KeyDown(40)Delay 100Call LB.KeyUp(40)Delay 600Call LB.KeyUp(37)Delay 100If Form1.CheckBox15.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 3000End If
End Function
Function 特伦斯图六定点技能1Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 100Call LB.KeyDown(40)Delay 50Call LB.KeyUp(40)Delay 600Call LB.KeyUp(37)Delay 100If Form1.CheckBox16.Value = 1 Then KeyPress "Y", 1KeyPress "Y", 1End If
End Function
Function 特伦斯图五定点技能1Delay 100If Form1.CheckBox15.Value = 1 Then KeyPress "R", 1KeyPress "R", 1Delay 2000Else KeyPress "R", 1KeyPress "R", 1End If
End Function
Function 特伦斯图五定点技能Delay 100If Form1.CheckBox15.Value = 1 Then Call 关闭同步KeyPress "R", 1KeyPress "R", 1Delay 2000Call 启动同步Else KeyPress "R", 1KeyPress "R", 1End IfKeyPress "S", 1KeyPress "S", 1
End Function
Function 特伦斯图四定点技能Call LB.KeyDown(40)Delay 700Delay 100Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 300Call LB.KeyUp(37)Call LB.KeyUp(40)Delay 200Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Call LB.KeyPress(39)Delay 100KeyPress "Q", 1Delay 200Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 300Call LB.KeyDown(38)Delay 800Call LB.KeyUp(38)Delay 100Call LB.KeyUp(39)
End Function
Function 特伦斯图三定点技能Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 650Call LB.KeyUp(39)KeyPress "S", 1Delay 1000KeyPress "H", 1
End Function
Function 特伦斯图二定点技能Call LB.KeyDown(40)Delay 600Call LB.KeyUp(40)Delay 100Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 300Call LB.KeyDown(38)Delay 600Call LB.KeyUp(39)Call LB.KeyUp(38)KeyPress "W", 1KeyPress "W", 1
End Function
Function 确定特伦斯人物图内位置DoCall LB.FindPic(988,49,1009,66, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(988,49,1009,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1007,48,1024,64, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1007,48,1024,64, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1024,47,1043,65, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1024,47,1043,65, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1044,48,1061,67, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1044,48,1061,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1043,67,1061,84, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1043,67,1061,84, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1024,65,1043,83, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "真"图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1024,65,1043,83, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "假"Else 是否路口 = "真"图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1007,66,1024,86, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "假"图内角色位置 = 7Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1007,66,1024,86, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then Else 是否路口 = "假"图内角色位置 = 7Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1007,82,1025,101, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "真"图内角色位置 = 8Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1007,82,1025,101, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 是否路口 = "真"图内角色位置 = 8Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd IfEnd IfIf 是否路口 = "真" Then Call LB.FindPic(985,48,1063,104, "Attachment:\牛头1.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.8,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 DoEnd IfEnd IfEnd If Loop
End Function
Function 确定特伦斯人物图内位置1DoCall LB.FindPic(988,49,1009,66, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(988,49,1009,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1007,48,1024,64, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1007,48,1024,64, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1024,47,1043,65, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1024,47,1043,65, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1044,48,1061,67, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1044,48,1061,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1043,67,1061,84, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1043,67,1061,84, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1024,65,1043,83, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)是否路口 = "真"Exit Do Else Call LB.FindPic(1024,65,1043,83, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)是否路口 = "真"Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1007,66,1024,86, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 7是否路口 = "假"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1007,66,1024,86, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 7是否路口 = "假"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1007,82,1025,101, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 8是否路口 = "真"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1007,82,1025,101, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 8是否路口 = "真"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd IfEnd IfIf 是否路口 = "真" Then Call LB.FindPic(985,48,1063,104, "Attachment:\牛头1.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(985,48,1063,104, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else TracePrint "boss"图内角色位置 = "真"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd IfEnd If Loop
End Function
Function 确定特伦斯人物图内位置2DoCall LB.FindPic(1524,484,1538,499, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1524,484,1538,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 1Call 启动同步Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1541,484,1556,499, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1541,484,1556,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 2Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1558,483,1576,500, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1558,483,1576,500, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 3Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1575,483,1593,499, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1575,483,1593,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 4Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1576,502,1594,518, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1576,502,1594,518, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 图内角色位置 = 5Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1557,500,1576,520, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "真"图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1557,500,1576,520, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 是否路口 = "真"图内角色位置 = 6Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1540,502,1557,519, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "假"图内角色位置 = 7Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1540,502,1557,519, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1521,484,1594,539, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then Else 是否路口 = "假"图内角色位置 = 7Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfCall LB.FindPic(1541,519,1557,535, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then 是否路口 = "真"图内角色位置 = 8Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do Else Call LB.FindPic(1541,519,1557,535, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1541,519,1557,535, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else 是否路口 = "真"图内角色位置 = 8Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd IfEnd IfIf 是否路口 = "真" Then Call LB.FindPic(1557,519,1575,536, "Attachment:\牛头1.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1541,519,1557,535, "Attachment:\人物图标.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then Else 是否路口 = "假"TracePrint "boss"图内角色位置 = "真"Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd IfEnd IfEnd IfLoop
End Function
Function 确定特伦斯当前房间是否开门Select Case 图内角色位置Case 1超时 = 200Delay 500KeyPress "E", 1Delay 500KeyPress "Q", 1Delay 500KeyPress "F", 1Delay 500KeyPress "D", 1Delay 500Call LB.KeyDown(40)Delay 300Call LB.KeyDown(40)Delay 200Call LB.KeyDown(39)Delay 80Call LB.KeyUp(39)Delay 80Call LB.KeyDown(39)Delay 1600Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyDown(37)Delay 100Call LB.KeyUp(37)DoCall LB.FindPic(879,179,1067,467, "Attachment:\图一门提示.bmp|Attachment:\图一门提示0.bmp|Attachment:\图一门提示1.bmp|Attachment:\图一门提示2.bmp|Attachment:\特伦斯图一开门.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 2超时 = 200Call 特伦斯图二定点技能DoCall LB.FindPic(1024,47,1042,65, "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 IfCall LB.FindPic(989,49,1005,63, "Attachment:\特伦斯开门提示001.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超时 = 200Call 特伦斯图三定点技能DoCall LB.FindPic(1042,47,1061,65, "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 IfCall LB.FindPic(1008,49,1024,63, "Attachment:\特伦斯开门提示2.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超时 = 200Call 特伦斯图四定点技能DoCall LB.FindPic(1043,66,1060,82, "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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1025,46,1043,63, "Attachment:\特伦斯开门提示2.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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case 5超时 = 200Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)Call 特伦斯图五定点技能DoCall LB.FindPic(1042,49,1059,67, "Attachment:\特伦斯开门提示002.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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1025,65,1041,83, "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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case 6超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "Y", 1Delay 2000End If Call 特伦斯图六定点技能DoCall LB.FindPic(1040,60,1060,90, "Attachment:\特伦斯开门提示003.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then If Form1.CheckBox18.Value = 1 Then Delay 3000End IfCall 特伦斯图六过图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 ThenKeyPress "W", 1Call 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenKeyPress "W", 1Call 释放小技能End IfEnd IfCall LB.FindPic(1006,65,1025,83, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.8,0,intX,intY)If intX > 0 And intY > 0 Then If Form1.CheckBox18.Value = 1 Then Delay 3000End IfCall 特伦斯图六过图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 ThenKeyPress "W", 1Call 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenKeyPress "W", 1Call 释放小技能End IfEnd IfLoop Case "真"超时 = 200If Form1.CheckBox18.Value = 1 Then Else Call 特伦斯boss专杀End If DoIf Form1.CheckBox18.Value = 1 Then Call LB.FindPic(428,0,667,170, "Attachment:\奖励.bmp", "000000", 0.9, 0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Delay 1000Call 窗口1聚物Call 黄金翻拍Call 切换到1号Call BOSS物品拾取Delay 5000Exit Do End IfElseCall LB.FindPic(428,0,667,170, "Attachment:\奖励.bmp", "000000", 0.9, 0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Delay 1500Call 黄金翻拍Call 窗口1聚物If Form1.CheckBox14.Value = 1 Then Else Call 窗口2聚物End IfCall 切换到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", 1Call 释放小技能End IfCall LB.FindStr(891,8,1044,166, "F10", "808080-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Plugin.Msg.Tips "刷图完毕"BOSS = "真"切换下个角色 = 1退出副本 = "真"Exit DoEnd IfEnd IfLoop刷图次数 = 刷图次数 + 1通关次数 = 通关次数 + 1Delay 1000KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300KeyPress "I", 1Delay 300If Form1.CheckBox14.Value = 1 Then Else Call 关闭同步End IfDelay 500Call 窗口1出售物品If Form1.CheckBox14.Value = 1 Then Else Call 窗口2出售物品End IfCall 切换到1号Plugin.Msg.Tips "通关次数" & 通关次数超时 = 200If Form1.CheckBox14.Value = 1 Then If 退出副本 = "真" Then Delay 1000Call 移动单击(932, 146)Call 移动单击(932, 146)Call 移动单击(932,146)切换下个角色 = 1Else 退出副本 = ""Delay 1000Call 移动单击(934, 83)Call 移动单击(934, 83)Call 移动单击(934, 83)End IfElse 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 IfCase 7超时 = 200Call 特伦斯图七定点技能DoCall LB.FindPic(1022,65,1043,84, "Attachment:\特伦斯开门提示004.bmp","000000",0.83,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 IfCall LB.FindPic(1006,82,1024,101, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.83,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 8超时 = 200Call 特伦斯图八定点技能Docolor1 = LB.GetColor(1015,72)Delay 30color2 = LB.GetColor(1015,72)If color1 <> "000000" And color2 <> "000000" Then If color1 <> color2 Then Delay 500Call 特伦斯图八过图Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)向下 = "真"Exit DoElse Call 释放小技能End IfEnd IfLoop End Select
End Function
Function 确定特伦斯当前房间是否开门1Select Case 图内角色位置Case 1超时 = 200Delay 500KeyPress "E", 1Delay 500KeyPress "Q", 1Delay 500KeyPress "F", 1Delay 500KeyPress "D", 1Delay 500Call LB.KeyDown(40)Delay 300Call LB.KeyDown(40)Delay 200Call LB.KeyDown(39)Delay 80Call LB.KeyUp(39)Delay 80Call LB.KeyDown(39)Delay 1600Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyDown(37)Delay 100Call LB.KeyUp(37)DoCall LB.FindPic(879,179,1067,467, "Attachment:\图一门提示.bmp|Attachment:\图一门提示0.bmp|Attachment:\图一门提示1.bmp|Attachment:\图一门提示2.bmp|Attachment:\特伦斯图一开门.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 2超时 = 200Call 特伦斯图二定点技能DoCall LB.FindPic(1024,47,1042,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 Call 释放小技能End IfCall LB.FindPic(989,49,1005,63, "Attachment:\特伦斯开门提示001.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 3超时 = 200Call 特伦斯图三定点技能DoCall LB.FindPic(1042,47,1061,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 Call 释放小技能End IfCall LB.FindPic(1008,49,1024,63, "Attachment:\特伦斯开门提示2.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超时 = 200Call 特伦斯图四定点技能次数 = 0DoCall LB.FindPic(1043,66,1060,82, "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 释放小技能次数 = 次数 + 1ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能次数 = 次数 + 1End IfEnd IfCall LB.FindPic(1025,46,1043,63, "Attachment:\特伦斯开门提示2.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 释放小技能次数 = 次数 + 1ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能次数 = 次数 + 1End IfEnd IfIf 次数 > 1000 Then Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)次数 =0End IfLoop Case 5超时 = 200Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)Call 特伦斯图五定点技能1DoCall LB.FindPic(1042,49,1059,67, "Attachment:\特伦斯开门提示002.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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1025,65,1041,83, "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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case 6超时 = 200If Form1.CheckBox9.Value = 1 Then KeyPress "Y", 1Delay 2000End If Call 特伦斯图六定点技能1DoCall LB.FindPic(1043,65,1056,81, "Attachment:\特伦斯开门提示003.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 ThenCall 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1006,65,1025,83, "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 ThenCall 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case "真"超时 = 200Call 特伦斯boss专杀DoCall 黄金翻拍Call 黄金翻拍1Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Call LB.FindStr(1415,465,1577,625, "F10", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Call 窗口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 超时 = 200Call LB.FindStr(1415,465,1577,625, "F10", "808080-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Call 窗口1聚物Call 窗口2聚物Call BOSS物品拾取Plugin.Msg.Tips "刷图完毕"BOSS = "真"切换下个角色 = 1退出副本 = "真"Exit DoEnd IfCall LB.FindStr(1415,465,1577,625, "F10", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Call 窗口1聚物Call 窗口2聚物Call BOSS物品拾取Plugin.Msg.Tips "刷图完毕"BOSS = "真"切换下个角色 = 1退出副本 = "真"Exit DoEnd If End IfCall LB.FindStr(1415,465,1577,625, "F10", "808080-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Call LB.FindStr(891,8,1044,166, "F10", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then 超时 = 200Call 窗口1聚物Call 窗口2聚物Call BOSS物品拾取Plugin.Msg.Tips "刷图完毕"BOSS = "真"切换下个角色 = 1退出副本 = "真"Exit DoEnd IfEnd IfLoop刷图次数 = 刷图次数 + 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 10000Case 7超时 = 200Call 特伦斯图七定点技能DoCall LB.FindPic(1022,65,1043,84, "Attachment:\特伦斯开门提示004.bmp","000000",0.9,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 IfCall LB.FindPic(1006,82,1024,101, "Attachment:\特伦斯开门提示0.bmp|Attachment:\特伦斯开门提示1.bmp","000000",0.9,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 8超时 = 200Call 特伦斯图八定点技能Docolor1 = LB.GetColor(1015,72)Delay 40color2 = LB.GetColor(1015,72)If color1 <> "000000" And color2 <> "000000" Then If color1 <> color2 Then Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)向下 = "真"Exit DoElse Call 释放小技能End IfEnd IfLoop End Select
End Function
Function 确定特伦斯当前房间是否开门2Select Case 图内角色位置Case 1超时 = 200DoCall LB.FindPic(1466,585,1601,838, "Attachment:\图一门提示.bmp|Attachment:\图一门提示0.bmp|Attachment:\图一门提示1.bmp|Attachment:\图一门提示2.bmp|Attachment:\特伦斯图一开门.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 2超时 = 200DoCall LB.FindPic(1558,481,1576,499, "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 IfCall LB.FindPic(1523,483,1540,501, "Attachment:\特伦斯开门提示001.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(1574,481,1594,498, "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 IfCall LB.FindPic(1536,481,1557,500, "Attachment:\特伦斯开门提示2.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(1575,500,1592,516, "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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1558,483,1573,497, "Attachment:\特伦斯开门提示2.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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case 5超时 = 200DoCall LB.FindPic(1572,484,1593,501, "Attachment:\特伦斯开门提示002.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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1559,499,1576,517, "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 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case 6超时 = 200DoCall LB.FindPic(1574,500,1593,518, "Attachment:\特伦斯开门提示003.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 ThenCall 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfCall LB.FindPic(1540,499,1555,516, "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 ThenCall 释放小技能ElseIf Form1.CheckBox11.Value = 1 ThenCall 释放小技能End IfEnd IfLoop Case 7超时 = 200DoCall LB.FindPic(1557,500,1577,519, "Attachment:\特伦斯开门提示004.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 IfCall LB.FindPic(1539,517,1557,538, "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 8超时 = 200Docolor1 = LB.GetColor(1548,507)Delay 40color2 = LB.GetColor(1548,507)If color1 <> "000000" And color2 <> "000000" Then If color1 <> color2 Then Delay 500Call 特伦斯图八过图Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)向下 = "真"Exit DoElse Call 释放小技能End IfEnd IfLoop End Select
End Function
Function 特伦斯图一过图If Form1.CheckBox16.Value = 1 Then DoCall LB.FindPic(989,47,1006,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Delay 1000End IfEnd IfCall LB.FindPic(989,47,1006,67, "Attachment:\人物图标.bmp","000000",0.85,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Delay 1000End IfCall LB.FindPic(1525,485,1539,499, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1519,478,1595,539, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Delay 1000End IfEnd IfCall LB.FindPic(1525,485,1539,499, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Delay 1000End IfCall LB.FindPic(1006,45,1026,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1540,482,1558,499, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 ThenCall LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit DoEnd If End IfCall LB.FindPic(1006,45,1026,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1540,482,1558,499, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1519,478,1595,539, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfEnd IfEnd IfLoopElse DoCall LB.FindPic(989,47,1006,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Delay 1000End IfEnd IfCall LB.FindPic(989,47,1006,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Delay 2000End IfCall LB.FindPic(1006,45,1026,66, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfCall LB.FindPic(1006,45,1026,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfLoopEnd If
End Function
Function 特伦斯图二过图If Form1.CheckBox16.Value = 1 Then DoCall LB.FindPic(1006,46,1023,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 3000Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1000End IfEnd If Call LB.FindPic(1006,46,1023,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 3000Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1000End IfCall LB.FindPic(1541,484,1556,500, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1518,478,1595,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 3000Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1000End IfEnd If Call LB.FindPic(1541,484,1556,500, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 3000Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1000End IfCall LB.FindPic(1023,47,1042,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1558,481,1576,501, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfEnd IfCall LB.FindPic(1023,47,1042,67, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1558,481,1576,501, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic( 1518,478,1595,540, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfEnd IfEnd IfLoop Else DoCall LB.FindPic(1006,46,1023,67, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 3000Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 1000End IfEnd If Call LB.FindPic(1006,46,1023,67, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 3000Call LB.KeyDown(38)Delay 500Call LB.KeyUp(38)Call LB.KeyUp(39)Delay 2000End IfCall LB.FindPic(1023,47,1042,67, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfCall LB.FindPic(1023,47,1042,67, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfLoop End If
End Function
Function 特伦斯图三过图If Form1.CheckBox16.Value = 1 Then DoCall LB.FindPic(1023,46,1043,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Delay 1000Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 100Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Delay 1000End IfEnd If Call LB.FindPic(1023,46,1043,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Delay 1000Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 100Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Delay 1000End IfCall LB.FindPic(1556,481,1574,502, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1518,477,1599,540, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Delay 1000Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 100Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Delay 1000End IfEnd If Call LB.FindPic(1556,481,1574,502, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Delay 1000Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 100Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Delay 1000End IfCall LB.FindPic(1042,47,1062,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1576,481,1595,500, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfEnd IfCall LB.FindPic(1042,47,1062,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1576,481,1595,500, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1518,477,1599,540, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfEnd IfEnd IfLoop Else DoCall LB.FindPic(1023,46,1043,66, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Delay 1000Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 100Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Delay 1000End IfEnd If Call LB.FindPic(1023,46,1043,66, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Delay 1000Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 100Call LB.KeyDown(38)Delay 3000Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 500Call LB.KeyUp(40)Delay 2000End IfCall LB.FindPic(1042,47,1062,66, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfCall LB.FindPic(1042,47,1062,66, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfLoop End If
End Function
Function 特伦斯图四过图If Form1.CheckBox16.Value = 1 Then Else Delay 1000End If Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 70Call LB.KeyDown(39)Delay 200Call LB.KeyDown(40)Delay 1700Call LB.KeyUp(40)KeyPress "X", 1Delay 300Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1800Call LB.KeyUp(39)Delay 1000If Form1.CheckBox16.Value = 1 Then DoCall LB.FindPic(1039,45,1062,68, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1500Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 200Call LB.KeyUp(39)KeyPress "X", 1Delay 500Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 800Call LB.KeyUp(37)Delay 1000KeyPress "X", 1Delay 200End IfEnd If Call LB.FindPic(1039,45,1062,68, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1500Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 200Call LB.KeyUp(39)KeyPress "X", 1Delay 500Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 800Call LB.KeyUp(37)Delay 1000KeyPress "X", 1Delay 200End IfCall LB.FindPic(1576,483,1594,500, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1517,479,1595,538, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1500Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 200Call LB.KeyUp(39)KeyPress "X", 1Delay 500Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 800Call LB.KeyUp(37)Delay 1000KeyPress "X", 1Delay 200End IfEnd If Call LB.FindPic(1576,483,1594,500, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1500Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 200Call LB.KeyUp(39)KeyPress "X", 1Delay 500Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 800Call LB.KeyUp(37)Delay 1000KeyPress "X", 1Delay 200End IfCall LB.FindPic(1043,64,1061,86, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1574,500,1593,516, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfEnd IfCall LB.FindPic(1043,64,1061,86, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1574,500,1593,516, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1517,479,1595,538, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfEnd IfEnd IfLoop Else DoCall LB.FindPic(1039,45,1062,68, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1300Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 200Call LB.KeyUp(39)KeyPress "X", 1Delay 500Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 800Call LB.KeyUp(37)Delay 1000KeyPress "X", 1Delay 200End IfEnd If Call LB.FindPic(1039,45,1062,68, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.KeyDown(39)Delay 60Call LB.KeyUp(39)Delay 60Call LB.KeyDown(39)Delay 1500Call LB.KeyDown(40)Delay 300Call LB.KeyUp(40)Delay 200Call LB.KeyUp(39)KeyPress "X", 1Delay 500Call LB.KeyDown(37)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyDown(37)Delay 800Call LB.KeyUp(37)Delay 1000KeyPress "X", 1Delay 200End IfIf Form1.CheckBox18.Value = 1 Then Delay 3000Else Delay 2000End IfCall LB.FindPic(1043,64,1061,86, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfCall LB.FindPic(1043,64,1061,86, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfLoop End If
End Function
Function 特伦斯图五过图次数 = 0If Form1.CheckBox16.Value = 1 Then Do次数 = 次数 + 1If 次数 >= 3 Then Call LB.KeyDown(37)Delay 60Call LB.KeyDown(40)Delay 2000Call LB.KeyUp(40)Delay 1500Call LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1574,499,1594,520, "Attachment:\人物图标.bmp","000000",0.9,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 IfCall LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1574,499,1594,520, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1513,479,1594,540, "Attachment:\人物图标.bmp","000000",0.83,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 If End IfEnd If Call LB.KeyDown(38)Delay 2000Call LB.KeyUp(38)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyUp(40)Delay 1000Call LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1574,499,1594,520, "Attachment:\人物图标.bmp","000000",0.9,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 IfCall LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1574,499,1594,520, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1513,479,1594,540, "Attachment:\人物图标.bmp","000000",0.83,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 If End IfEnd If End If跑动(37)Delay 200Call LB.KeyDown(38)Delay 1500Call LB.KeyUp(38)Call LB.KeyUp(37)Delay 200Call LB.KeyDown(40)Delay 200Call LB.KeyDown(37)Delay 900Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Call LB.FindPic(1022,64,1042,83, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1557,498,1576,518, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfEnd IfCall LB.FindPic(1022,64,1042,83, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1557,498,1576,518, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(1516,479,1598,541, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfEnd IfEnd IfLoop Else Delay 1000Do次数 = 次数 + 1If 次数 >= 3 Then Call LB.KeyDown(37)Delay 60Call LB.KeyDown(40)Delay 3000Call LB.KeyUp(40)If Form1.CheckBox18.Value = 1 Then Delay 5000Else Delay 3000End IfCall LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,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 IfCall LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 If Call LB.KeyDown(38)Delay 2000Call LB.KeyUp(38)Delay 60Call LB.KeyUp(37)Delay 60Call LB.KeyUp(40)If Form1.CheckBox18.Value = 1 Then Delay 5000Else Delay 3000End IfCall LB.FindPic(1041,63,1064,85, "Attachment:\人物图标.bmp","000000",0.9,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 IfCall LB.FindPic(1041,63,1064,85, "Attachment:\雪人头.bmp","000000",0.83,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 If End If跑动(37)Delay 200Call LB.KeyDown(38)Delay 1400Call LB.KeyUp(38)Call LB.KeyUp(37)Delay 200Call LB.KeyDown(40)Delay 200Call LB.KeyDown(37)Delay 800Call LB.KeyUp(40)Call LB.KeyUp(37)If Form1.CheckBox18.Value = 1 Then Delay 5000Else Delay 3000End IfCall LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Call LB.FindPic(1022,64,1042,83, "Attachment:\人物图标.bmp","000000",0.9,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 DoEnd IfCall LB.FindPic(1022,64,1042,83, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 DoEnd IfEnd IfLoopEnd If
End Function
Function 特伦斯图六过图Dim 随机门If Form1.CheckBox16.Value = 1 Then Call LB.KeyDown(38)For 3Call LB.KeyDown(39)Delay 100Call LB.KeyUp(39)	NextDelay 1500Delay 200Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 300Call LB.KeyUp(38)次数 = 0For 20Call LB.FindPic(0,429,279,577, "Attachment:\特伦斯门柱子.bmp", "000000", 0.75, 0, intX, intY)If intX > 0 And intY > 0 Then Exit For Else If 次数 >= 15 Then 随机门 = "真"End IfDelay 10次数 = 次数 + 1End If Next次数 = 0For 20Call LB.FindPic(533,882,803,1021, "Attachment:\特伦斯门柱子.bmp", "000000", 0.75, 0, intX, intY)If intX > 0 And intY > 0 Then Exit For Else If 次数 >= 15 Then 随机门 = "真"End IfDelay 10次数 = 次数 + 1End If Next DoIf 随机门 = "真" Then Delay 1000Call LB.KeyDown(38)Delay 1500Call LB.KeyUp(38)Delay 200Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 300Call LB.KeyDown(40)Delay 800Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 1500Else Delay 1000Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 1600Call LB.KeyUp(37)Call LB.KeyDown(40)Delay 2000Call LB.KeyUp(40)Delay 200Delay 1000End IfCall LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1557,501,1576,519, "Attachment:\人物图标.bmp","000000",0.9,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 IfIf 随机门 = "真" Then Delay 100Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 200Call LB.KeyUp(37)Delay 300Call LB.KeyDown(38)Delay 800Call LB.KeyUp(38)Delay 1500Else Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Call LB.KeyDown(40)Delay 600Call LB.KeyUp(37)Call LB.KeyUp(40)Delay 100Call LB.KeyDown(39)Delay 80Call LB.KeyUp(39)Delay 80Call LB.KeyDown(39)Delay 200Call LB.KeyUp(39)Delay 1000End If Call LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else Call LB.FindPic(1555,499,1577,520, "Attachment:\人物图标.bmp","000000",0.9,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 IfLoop Else Do Delay 1000Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 200Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 1600Call LB.KeyUp(37)KeyPress "X", 1If Form1.CheckBox18.Value = 1 Then Delay 3000Else Delay 2000End IfCall LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,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 IfCall LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Call LB.KeyDown(40)Delay 600Call LB.KeyUp(37)Call LB.KeyUp(40)If Form1.CheckBox18.Value = 1 Then Delay 3000Else Delay 2000End IfCall LB.FindPic(1022,64,1042,83, "Attachment:\雪人头.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Call LB.FindPic(987,48,1060,102, "Attachment:\人物图标.bmp","000000",0.83,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 IfDelay 100Call LB.KeyDown(39)Delay 80Call LB.KeyUp(39)Delay 80Call LB.KeyDown(39)Delay 200Call LB.KeyUp(39)If Form1.CheckBox18.Value = 1 Then Delay 3000Else Delay 2000End IfCall LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,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 IfDelay 100Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 200Call LB.KeyUp(37)Delay 300Call LB.KeyDown(38)Delay 800Call LB.KeyUp(38)If Form1.CheckBox18.Value = 1 Then Delay 11000Else Delay 2000End IfCall LB.FindPic(1028,66,1039,84, "Attachment:\人物图标.bmp","000000",0.9,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 IfLoop End If
End Function
Function 特伦斯图七过图Do Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 300Call LB.KeyDown(37)Delay 80Call LB.KeyUp(37)Delay 80Call LB.KeyDown(37)Delay 300Call LB.KeyDown(40)Delay 1800Call LB.KeyUp(40)Delay 1000Call LB.FindPic(1011,67,1022,83, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else If Form1.CheckBox16.Value = 1 Then Call LB.FindPic(1540,498,1558,517, "Attachment:\人物图标.bmp","000000",0.9,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 IfElse Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd IfCall LB.KeyUp(40)Delay 200Call LB.KeyDown(40)Delay 1000Call LB.KeyUp(40)Call LB.KeyUp(37)Delay 300Call LB.KeyDown(39)Delay 80Call LB.KeyUp(39)Delay 80Call LB.KeyDown(39)Delay 800Call LB.KeyUp(39)Call LB.KeyDown(40)Delay 2000Call LB.KeyUp(40)Loop 
End Function
Function 特伦斯图八过图DoCall LB.KeyDown(39)Delay 80Call LB.KeyUp(39)Delay 80Call LB.KeyDown(39)Delay 1300Call LB.KeyUp(39)If Form1.CheckBox18.Value = 1 Then Delay 3000Else Delay 2000End IfCall LB.FindPic(1010,85,1022,101, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else If Form1.CheckBox16.Value = 1 Then Call LB.FindPic(1537,516,1560,538, "Attachment:\人物图标.bmp","000000",0.9,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 IfElse Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd If    Call LB.KeyDown(40)Delay 1500Call LB.KeyUp(40)Delay 200Call LB.KeyDown(38)Delay 700Call LB.KeyUp(38)If Form1.CheckBox18.Value = 1 Then Delay 3000Else Delay 1200End IfCall LB.FindPic(1010,85,1022,101, "Attachment:\人物图标.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else If Form1.CheckBox16.Value = 1 Then Call LB.FindPic(1537,516,1560,538, "Attachment:\人物图标.bmp","000000",0.9,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 IfElse Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)Exit Do End IfEnd If  Loop 
End Function
Function 走到工业副本门Call LB.KeyDown(40)Delay 2000Call LB.KeyUp(40)Call LB.KeyDown(39)Delay 200Call LB.KeyDown(38)Delay 8000If Form1.CheckBox17.Value = 1 Then DoCall LB.FindStr(809,523,943,587, "返回城镇", "ddc593-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call LB.KeyUp(39)Call LB.KeyUp(38)Exit Do End If LoopEnd If
End Function
Function 选择特伦斯副本If Form1.CheckBox17.Value = 1 Then 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 LoopEnd IfDelay 1000If Form1.CheckBox8.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 Call LB.KeyUp(37)Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)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 Function
Function 选择特伦斯副本1DoCall 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)Call 关闭同步Exit Do End If Loop Delay 1000If Form1.CheckBox8.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 Function
Function 选择特伦斯副本2Call 切换到2号 DoCall LB.FindStr(1381,970,1446,1001, "返回城镇", "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.CheckBox8.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(1386,912,1468,938, "特伦斯发电站", "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 Function
Function 启动同步If Form1.CheckBox15.Value = 1 Then Call 切换到1号DoCall LB.FindPic(805,346,1067,586, "Attachment:\同步开始.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Exit Do Else KeyDown "Alt", 1Delay 50KeyPress "F3", 1Delay 50KeyUp "Alt", 1Delay 100End IfLoopEnd If 
End Function
Function 关闭同步If Form1.CheckBox15.Value = 1 Then Call 切换到1号DoCall LB.FindPic(805,346,1067,586, "Attachment:\同步结束.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Exit Do Else KeyDown "Alt", 1Delay 50KeyPress "F3", 1Delay 50KeyUp "Alt", 1Delay 100End IfLoopEnd If 
End Function
Function 风法BUFFKeyPress "T", 1KeyPress "T", 1
End Function
Function 判断特伦斯进图次数 = 0DoCall LB.FindStr(826,0,1066,45, "特伦斯发电站", "ccc1a7-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 启动同步Call 风法BUFFExit DoElse Delay 1000次数 = 次数 + 1If 次数 >= 60 Then Call 启动同步Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Delay 300Call LB.KeyDown(39)Call 选择特伦斯副本Exit DoEnd IfEnd IfLoop
End Function
Function 判断特伦斯进图1DoCall LB.FindStr(826,0,1066,45, "特伦斯发电站", "ccc1a7-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Exit DoEnd IfLoop
End Function
Function 判断特伦斯进图2次数 = 0DoCall LB.FindStr(1400,436,1535,459, "特伦斯发电站", "ccc1a7-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 切换到1号Call 启动同步Call 风法BUFFExit DoElse Delay 1000次数 = 次数 + 1If 次数 >= 60 Then Call 启动同步Call LB.KeyDown(37)Delay 600Call LB.KeyUp(37)Delay 300Call LB.KeyDown(39)Call 选择特伦斯副本1Call 选择特伦斯副本2Exit DoEnd IfEnd IfLoop
End Function
Function 双开组队If Form1.CheckBox15.Value = 1 Then KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Delay 300Call 关闭同步DoCall 创建队伍Call 加入队伍Call 同意入队Call 判断组队成功If 组队成功 = "真" Then Exit Do End IfCall 切换到1号赛利亚Call 切换到2号赛利亚LoopEnd If 
End Function
Function 判断组队成功Delay 4000Call LB.FindPic(22,13,144,47, "Attachment:\血条.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Else 组队成功 = "假"End IfCall LB.FindPic(157,20,274,43, "Attachment:\血条.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then 组队成功  =  "真"Else 组队成功 = "假"End If 
End Function
Function 自动拉条次数 = 0拉条次数 = 0DoCall LB.FindPic(0, 0, 1920, 1080, "Attachment:\拉条验证.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Select Case 拉条次数Case 0Delay 1000Call MoveTo(intX - 144, intY + 258)Delay 1000LeftDown 1Delay 500Call MoveTo(intX - 144 + 170, intY + 258)LeftUp 1Delay 2000Case 1Delay 1000Call MoveTo(intX - 144+21, intY + 258)Delay 1000LeftDown 1Delay 500Call MoveTo(intX - 144 + 170, intY + 258)LeftUp 1Delay 2000Case 3Delay 1000Call MoveTo(intX - 144+21+21, intY + 258)Delay 1000LeftDown 1Delay 500Call MoveTo(intX - 144 + 170, intY + 258)LeftUp 1Delay 2000拉条次数 = 0End SelectElse 次数 = 次数 + 1Delay 200If 次数 >= 10 Then Exit Do End IfEnd Ifloop
End Function
Function 同意入队Call 切换到1号For Form1.InputBox4.TextDoCall LB.FindStr(859,516,924,556, "是", "ddc593-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(898, 536)Delay 1000Exit Do End If LoopNext
End Function
Function 切换到1号赛利亚Plugin.Msg.Tips "切换到1号赛利亚"Call 切换到1号Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)DoCall LB.FindStr(281, 79, 805, 524, "选择角色", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(intX + 10, intY)Call MoveTo(0, 0)Delay 2000Else KeyPress "Esc", 1Delay 500End IfCall LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Delay 1000Call 窗口1进入游戏Exit DoEnd IfLoop 
End Function
Function 切换到2号赛利亚If Form1.CheckBox15.Value = 1 Then Plugin.Msg.Tips "切换到2号赛利亚"Call 切换到2号Call LB.KeyUp(38)Call LB.KeyUp(39)Call LB.KeyUp(40)Call LB.KeyUp(37)DoCall LB.FindStr(819,559,1328,953, "选择角色", "e6c89b-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Call 移动单击(intX + 10, intY)Call MoveTo(0, 0)Delay 2000Else KeyPress "Esc", 1Delay 800End IfCall LB.FindStr(577,503,1363,952,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Delay 1000Call 窗口2进入游戏Exit DoEnd IfLoopEnd If 
End Function
Function 加入队伍1If Form1.CheckBox14.Value = 1 Then Plugin.Msg.Tips "加入队伍"Call 切换到1号KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Call 切换到1号Delay 300KeyPress "]", 1Delay 300Do Call LB.FindStr(670,85,721,114, "gou", "ffae00-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Exit DoElse Call 移动单击(689,98)Exit Do End IfLoopCall 移动单击(923,88)For 20KeyPress "BackSpace", 1Delay 50NextCall 移动单击(704,129)Delay 200Call 移动单击(626,128)Delay 200队伍名 = Form1.InputBox3.TextSayString 队伍名Call 移动单击(957,85)Delay 300Call 移动单击(750,173)Delay 300Call 移动单击(446,234)Delay 300End If 
End Function
Function 加入队伍If Form1.CheckBox15.Value = 1 Then Plugin.Msg.Tips "加入队伍"Call 切换到2号KeyPress "Esc", 1Delay 300Call 移动单击(1279,561)Call 切换到2号Delay 300KeyPress "]", 1Delay 300Do Call LB.FindStr(1212, 525, 1242, 544, "gou", "ffae00-000000", 1.0, intX, intY)If intX > 0 And intY > 0 Then Exit DoElse Call 移动单击(1223,533)Exit Do End IfLoopCall 移动单击(1459, 524)For 20KeyPress "BackSpace", 1Delay 50NextCall 移动单击(1244,563)Delay 200Call 移动单击(1159,564)Delay 200队伍名 = Form1.InputBox3.TextSayString 队伍名Call 移动单击(1492, 525)Delay 300Call 移动单击(1305,604)Delay 300Call 移动单击(981,666)Delay 300End If 
End Function
Function 创建队伍If Form1.CheckBox15.Value = 1 Then Plugin.Msg.Tips "创建队伍"Call 切换到1号Delay 300KeyPress "]", 1Delay 300Call 移动单击(620,423)Call 移动单击(682, 166)For 20KeyPress "BackSpace", 1Delay 50Next队伍名 = Form1.InputBox3.TextSayString 队伍名Call 移动单击(563, 288)End If 
End Function
Function 识别游戏If Form1.CheckBox14.Value = 1 Then HwndA = Plugin.Window.Find("地下城与勇士", "地下城与勇士")If HwndA > 0 Then Call Plugin.Window.Move(HwndA, 0, 0)游戏存在 = "真"Else 游戏存在 = "假"End IfExit Function End IfIf Form1.CheckBox15.Value = 1 Then HwndEx = Plugin.Window.SearchEx(0, "地下城与勇士", 1)If HwndEx <> "" Then HwndEx = split(HwndEx, "|")数组大小 = UBound(HwndEx)If 数组大小 = 2 Then 游戏存在 = "真"Else Exit Function End IfIf HwndEx(0) > 0 Then 窗口1hwnd = HwndEx(0)Call LB.GetWindowRect(HwndEx(0), x1, y1, x2, y2)End IfIf HwndEx(1) > 0 Then 窗口2hwnd = HwndEx(1)Call LB.GetWindowRect(HwndEx(1), x3, y3, x4, y4)End IfIf x1 - x3 < 0 Then DoIf HwndEx(0) > 0 Then Call Plugin.Window.Move(HwndEx(0),0,0)Exit DoEnd IfLoopDoIf HwndEx(1) > 0 Then Call Plugin.Window.Move(HwndEx(1),533,435)Exit DoEnd IfLoopElse DoIf HwndEx(0) > 0 Then Call Plugin.Window.Move(HwndEx(0),533,435)Exit DoEnd IfLoopDoIf HwndEx(1) > 0 Then Call Plugin.Window.Move(HwndEx(1),0,0)Exit DoEnd IfLoopEnd IfEnd IfElse HwndEx = Plugin.Window.Find("地下城与勇士","地下城与勇士")If HwndEx > 0 Then 游戏存在 = "真"End If End If 
End Function
Function 窗口1进入游戏Plugin.Msg.Tips "窗口1进入游戏"DoCall LB.FindPic(966,0,1135,47,"Attachment:\指南针.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Delay 2000KeyPress "Esc", 1Delay 300Call 移动单击(747, 127)Delay 300Call 移动单击(747, 127)Exit DoEnd IfCall LB.FindStr(51,76,828,500,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 切换到1号Delay 1000Call 移动单击(536, 549)Delay 1000End If Loop
End Function
Function 窗口2进入游戏If Form1.CheckBox15.Value = 1 Then DoCall LB.FindPic(1530,420,1627,500,"Attachment:\指南针.bmp","000000",0.9,0,intX,intY)If intX > 0 And intY > 0 Then Delay 2000KeyPress "Esc", 1Delay 300Call 移动单击(1279,561)Delay 300Call 移动单击(1279,561)Exit DoEnd IfCall LB.FindStr(627,450,1708,1080,"Lv","d1b994-000000",1.0,intX,intY)If intX > 0 And intY > 0 Then Call 切换到2号Delay 1000Call 移动单击(1067, 982)Delay 1000End If LoopEnd If 
End Function
Function 注册LBneed_ver = "3.1233"Set ws = createobject("Wscript.Shell")ws.run "regsvr32 atl.dll /s"Set ws = nothingPutAttachment "c:\Windows_game", "*.*"PutAttachment ".\Plugin", "RegDll.dll"Call Plugin.RegDll.Reg("c:\Windows_game\LB.dll")Set LB = createobject("dm.dmsoft")ver = LB.Ver()If ver <> need_ver Then Set LB = nothingSet ws = createobject("Wscript.Shell")ws.run "regsvr32 c:\Windows_game\LB.dll /s"Set ws = nothingDelay 1500Set LB = createobject("dm.dmsoft")ver = LB.Ver()If ver <> need_ver Then MessageBox "插件版本错误,当前使用的版本是:" & ver & ",插件所在目录是:" & dm.GetBasePath()MessageBox "请关闭程序,重新打开本程序再尝试"EndScriptEnd IfEnd IfCall LB.SetPath("c:\Windows_game")Call LB.SetDict(0,"LB.txt")
End Function
Function 处理wegame安全验证次数 = 0DoCall LB.FindPic(0, 0, 1920, 1080, "Attachment:\确定1.bmp","000000", 0.75, 0,X,Y)If X > 0 And Y > 0 Then Call 移动单击(X+3, Y+3)Else 次数 = 次数 + 1Delay 1000If 次数 >= 5 Then Goto 下一步处理End IfEnd IfCall LB.FindPic(0, 0, 1920, 1080, "Attachment:\输入验证.bmp", "000000", 0.85, 0,X,Y)If X > 0 And Y > 0 Then Goto 下一步处理End IfLoopCall MoveTo(0, 0)Exit FunctionRem 下一步处理次数 = 0DoCall LB.FindPic(0, 0, 1920, 1080, "Attachment:\输入验证.bmp","000000", 0.85, 0,X,Y)If X > 0 And Y > 0 Then Delay 1000Call 联众打码(X - 86, Y + 32, X + 53, Y + 92, X - 123, Y + 43)Call 移动单击(X + 35, Y + 169)Delay 2000Else 次数 = 次数 + 1Delay 500If 次数 >= 7 Then Exit Do End IfEnd IfLoopDelay 1000次数 = 0DoCall LB.FindPic(0, 0, 1920, 1080, "Attachment:\确定0.bmp","000000", 0.75, 0,X,Y)If X > 0 And Y > 0 Then Delay 1000Call 移动单击(X+3, Y+3)Else 次数 = 次数 + 1Delay 500If 次数 >= 5 Then Exit Do End IfEnd IfLoop次数 = 0DoCall LB.FindPic(0, 0, 1920, 1080, "Attachment:\确定1.bmp","000000", 0.75, 0,X,Y)If X > 0 And Y > 0 Then Delay 1000Call 移动单击(X+3, Y+3)Else 次数 = 次数 + 1Delay 500If 次数 >= 5 Then Exit Do End IfEnd IfLoopCall 移动单击(1583, 118)Call 移动单击(1583, 118)Call 移动单击(1583, 118)Call MoveTo(0, 0)
End Function
Function 联众打码(参数x, 参数y, 参数x1, 参数y1, 参数x2, 参数y2)Call Plugin.Msg.Tips("联众打码")lzAccount = Form1.InputBox1.TextlzPsw = Form1.InputBox2.TextAgentUser = "zhu193773942"PathCode = "C:\验证码.bmp"Delay 300Call LB.Capture(参数x, 参数y, 参数x1, 参数y1, PathCode)Delay 300TID = Plugin.FastVerCode.RecYZM_A(PathCode, lzAccount, lzPsw, AgentUser)TracePrint TIDIf Instr(TID, "|") > 0 Then ArrTmp = Split(TID, "|")If UBound(ArrTmp) = 2 Then Answer = ArrTmp(0)Call 移动单击(参数x2,参数y2)Delay 1000For 10KeyPress "BackSpace", 1Delay 200NextCall Lib.键盘.KeyList(Answer,0,50)Else Call 写日志("打码失败,请手动打码")MsgBox "等待人工打码"End IfElse Call 写日志("打码失败,请手动打码")MsgBox "等待人工打码"End If
End Function
Function 切换到1号Call Plugin.Msg.Tips("切换到1号")For 2Call 移动单击(1246,248)	Next
End Function
Function 切换到2号If Form1.CheckBox15.Value = 1 Then Call Plugin.Msg.Tips("切换到2号")For 2Call 移动单击(1803,687)	NextEnd If 
End Function
Function 启动2号DNFCall Plugin.Msg.Tips("启动2号DNF")Select Case 启动方式Case 0For 2FindPic 0, 0, 1920, 1080, "Attachment:\wegame.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 500Call MoveTo(intX, intY)Delay 200LeftClick 1Delay 200LeftClick 1Delay 600Call MoveTo(0, 0)LeftClick 1Delay 1000End IfNextCase 1RunApp Form1.BrowseBox1.PathDelay 1000End SelectDowegamehwnd2 = Plugin.Window.Find(0,"WeGame")If wegamehwnd2 > 0 Then Exit DoElse Select Case 启动方式Case 0FindPic 0, 0, 1920, 1080, "Attachment:\wegame.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 500Call MoveTo(intX, intY)Delay 200LeftClick 1Delay 200LeftClick 1Delay 600Call MoveTo(0, 0)LeftClick 1Delay 1000End IfCase 1RunApp Form1.BrowseBox1.PathDelay 1000End SelectEnd IfLoopDoFindPic 0, 0, 1920, 1080, "Attachment:\三.bmp", 0.9, intX, intYIf intX > 0 And intY > 0 Then Delay 600Call 移动单击(intX, intY)Delay 2000Call MoveTo(intX - 44, intY - 92)Delay 3000Call 移动单击(intX - 210, intY - 92)Delay 1500Exit DoEnd IfLoopCall 移动单击(1583, 117)Call 移动单击(1583, 117)
End Function
Function 调整1号窗口Dodnfhwnd1 = Plugin.Window.Find("地下城与勇士", "地下城与勇士")If dnfhwnd1 > 0 Then Delay 15000窗口1hwnd = dnfhwnd1Call Plugin.Window.Move(dnfhwnd1,0,0)Exit DoEnd IfLoop
End Function
Function 调整2号窗口Call Plugin.Msg.Tips("调整2号窗口")Dodnfhwnd1 = Plugin.Window.Find("地下城与勇士", "地下城与勇士")If dnfhwnd1 > 0 Then Delay 15000窗口2hwnd = dnfhwnd1Call Plugin.Window.Move(dnfhwnd1, 533, 435)Exit DoEnd IfLoop
End Function
Function 判断是否登录wegamewegamehwnd = Plugin.Window.Find(0,"WeGame")If wegamehwnd > 0 Then Plugin.Window.Top wegamehwnd, 0size = Plugin.Window.GetClientRect(wegamehwnd)size = split(size, "|")x = abs(size(0) - size(2))y = abs(size(1) - size(3))If x > 862 And y > 486 Then wegame登录 = "真"Else wegame登录 = "假"End IfElse wegame登录 = "假"End IfSelect Case 启动方式Case 0Delay 500Call MoveTo(40,967)Delay 200LeftClick 1Delay 200LeftClick 1Delay 600Case 1Call 清理进程Delay 2000Call Lib.API.运行程序(Form1.BrowseBox1.Path)Delay 1000End Select
End Function
Function 启动wegameCall 判断是否登录wegameIf wegame登录 = "真" Then 次数 = 0DoDelay 500wegamehwnd = Plugin.Window.Find(0,"WeGame")If wegamehwnd > 0 Then FindPic 0, 0, 1920, 1080, "Attachment:\房.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Plugin.Window.Top wegamehwnd, 0Delay 600Call 移动单击(intX + 10, intY)Call 移动单击(intX + 10, intY)End IfEnd IfFindPic 0, 0, 1920, 1080, "Attachment:\地下城与勇士.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 600Call 移动单击(intX + 10, intY)Call 移动单击(intX + 10, intY)End IfFindPic 0, 0, 1920, 1080, "Attachment:\启动.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 600Call MoveTo(intX+10, intY)Delay 600Call 移动单击(intX + 10, intY)Call 移动单击(intX + 10, intY)Else 次数 = 次数 + 1If 次数 > 15 Then Delay 100Exit Do End IfEnd IfLoopElseIf wegame登录 = "假" ThenDoDelay 500wegamehwnd = Plugin.Window.Find(0,"WeGame")If wegamehwnd > 0 Then Plugin.Window.Restore (wegamehwnd)Plugin.Window.Top wegamehwnd, 0FindPic 0, 0, 1920, 1080, "Attachment:\登录.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 600Call 移动单击(intX, intY)Call 自动拉条Exit DoEnd IfElse Select Case 启动方式Case 0Delay 500Call MoveTo(40,967)Delay 200LeftClick 1Delay 200LeftClick 1Delay 600Case 1Call 清理进程Delay 2000Call Lib.API.运行程序(Form1.BrowseBox1.Path)Delay 1000End SelectEnd IfLoop次数 = 0DoDelay 500wegamehwnd = Plugin.Window.Find(0,"WeGame")If wegamehwnd > 0 Then FindPic 0, 0, 1920, 1080, "Attachment:\房.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Plugin.Window.Top wegamehwnd, 0Delay 1000Call 移动单击(intX + 10, intY)Call 移动单击(intX + 10, intY)End IfEnd IfFindPic 0, 0, 1920, 1080, "Attachment:\地下城与勇士.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 600Call 移动单击(intX + 10, intY)Call 移动单击(intX+10, intY)End IfFindPic 0, 0, 1920, 1080, "Attachment:\启动.bmp", 0.8, intX, intYIf intX > 0 And intY > 0 Then Delay 600Call MoveTo(intX+10, intY)Delay 600Call 移动单击(intX + 10, intY)Call 移动单击(intX + 10, intY)Plugin.Window.Top wegamehwnd, 1Else 次数 = 次数 + 1If 次数 > 20 Then Delay 100Exit Do End IfEnd IfLoopEnd If
End Function
Function 移动单击(x, y)Call MoveTo(x, y)Delay 100LeftClick 1Delay 100Call MoveTo(0, 0)
End Function
Function 移动按下(x, y,time)Call MoveTo(x, y)Delay 200LeftDown 1Delay timeLeftUp 1
End Function
Function 清理进程For 3Call 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")Call Lib.系统.结束进程("tgp_gamead.exe")Call Lib.系统.结束进程("tgp_daemon.exe")Next
End Function
Event Form1.CheckBox1.ClickForm1.CheckBox2.Value = 0Form1.CheckBox3.Value = 0Form1.CheckBox4.Value = 0Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox2.ClickForm1.CheckBox1.Value = 0Form1.CheckBox3.Value = 0Form1.CheckBox4.Value = 0Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox3.ClickForm1.CheckBox1.Value = 0Form1.CheckBox2.Value = 0Form1.CheckBox4.Value = 0Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox4.ClickForm1.CheckBox1.Value = 0Form1.CheckBox2.Value = 0Form1.CheckBox3.Value = 0Form1.CheckBox5.Value = 0
End Event
Event Form1.CheckBox5.ClickForm1.CheckBox1.Value = 0Form1.CheckBox2.Value = 0Form1.CheckBox3.Value = 0Form1.CheckBox4.Value = 0
End Event
Event Form1.Button1.ClickCall 注册LBIf Form1.CheckBox14.Value = 1 Then HwndA = Plugin.Window.Find("地下城与勇士", "地下城与勇士")If HwndA > 0 Then Call Plugin.Window.Move(HwndA,0,0)End IfElse HwndEx = Plugin.Window.SearchEx(0, "地下城与勇士", 1)If HwndEx <> "" Then HwndEx = split(HwndEx, "|")数组大小 = UBound(HwndEx)If 数组大小 = 2 Then 游戏存在 = "真"Else EndScript End IfIf HwndEx(0) > 0 Then Call LB.GetWindowRect(HwndEx(0), x1, y1, x2, y2)End IfIf HwndEx(1) > 0 Then Call LB.GetWindowRect(HwndEx(1), x3, y3, x4, y4)End IfIf x1 - x3 < 0 Then DoIf HwndEx(0) > 0 Then Call Plugin.Window.Move(HwndEx(0),0,0)Exit DoEnd IfLoopDoIf HwndEx(1) > 0 Then Call Plugin.Window.Move(HwndEx(1),533, 435)Exit DoEnd IfLoopElse DoIf HwndEx(0) > 0 Then Call Plugin.Window.Move(HwndEx(0),533, 435)Exit DoEnd IfLoopDoIf HwndEx(1) > 0 Then Call Plugin.Window.Move(HwndEx(1),0,0)Exit DoEnd IfLoopEnd IfEnd IfEnd If
End Event