按键精灵传奇外挂地图寻找怪打怪捡金币
经过2天多时间精心测试,内挂有加血,地图之间跑路图没做,只做了检测当前地图和定点搜怪,捡金币。
'外挂设置:隐藏尸体,去掉免shift攻击
Call 检测地图() 'Call 开始打怪() 'Call 捡物品() '唐唐网络 http://www.yiyangred.com/ 出品,如果您需要更精准的外挂请随时联系我们! '特定打造,不满意不要钱,任何游戏,只要是人玩的,均可以实现! '原理上不会被任何网游封掉,完全基于人工模拟! '一般性客户端判断外挂读取进程可以使用工具禁止进行内存读取.实现为所欲为! '结合计算机强大性能和虚拟机,可以实现无限多开! ’脚本开源,可以轻易进行个性修改! Sub 检测地图() FindPic 169,486,519,678,"E:\按键精灵9\wugong\比奇省.bmp",0.9,a,b If a > 0 And b > 0 Then Delay 200 Call 比奇省跑路() Delay 900 End If End Sub Sub 比奇省跑路() Dim dingweitu dingweitu="E:\按键精灵9\wugong\比奇省坐标相对位置.bmp" For 30000000 Dim ii '左边走路 ii = 0 '13|19|25|39|41| '69|76|72|72|84| zuobiaox = "150|150|149|136" zuobiaoy = "140|132|124|120" xx = Split(zuobiaox, "|") yy = Split(zuobiaoy, "|") For ii = 0 To 3 Call 移动测试(xx(ii),yy(ii),dingweitu) Next For ii = 3 To 0 Call 移动测试(xx(ii),yy(ii),dingweitu) Next Next End Sub Sub 移动测试(x,y,dingweitu) KeyPress "Tab", 2 FindPic 839,68,1200,343,dingweitu,0.9,intX,intY If intX > 0 And intY > 0 Then MoveTo intX+x, intY+y Delay 800 RightClick 1 Delay 3000 End If KeyPress "Tab", 1 Delay 300 Call 开始打怪() Delay 200 Call 捡物品() End Sub Sub 开始打怪() Delay 200 Dim ci,p ci = 1 P = 0 '怪物数量初始化 //召唤神兽 Delay 100 Rem 怪物检测 MoveTo 685, 275 Delay 200 LeftClick 1 FindPic 173, 71, 1201, 426, "E:\按键精灵9\wugong\稻草人.bmp", 0.6, x, y If x > 0 And x > 0 Then FindPic 173, 71, 1201, 426, "E:\按键精灵9\wugong\稻草人.bmp", 0.5, x, y While x>0 and y>0 and ci < 5 MoveTo x + 11, y + 7 LeftClick 1 Delay 800 //延时 ci=ci+1 Delay 1000 x = 0 y = 0 Delay 800 Goto 怪物检测 Wend End If Delay 100 FindPic 173, 71, 1201, 426, "E:\按键精灵9\wugong\多钩猫.bmp", 0.5, x, y If x > 0 And x > 0 Then FindPic 173, 71, 1201, 426, "E:\按键精灵9\wugong\多钩猫.bmp", 0.5, x, y While x>0 and y>0 and ci < 5 MoveTo x + 11, y + 7 LeftClick 1 Delay 800 //延时 ci=ci+1 Delay 1000 x = 0 y = 0 Delay 800 Goto 怪物检测 Wend End If Delay 100 FindPic 173, 71, 1201, 426, "E:\按键精灵9\wugong\鹿.bmp", 0.5, x, y If x > 0 And x > 0 Then FindPic 173, 71, 1201, 426, "E:\按键精灵9\wugong\鹿.bmp", 0.5, x, y While x>0 and y>0 and ci < 5 MoveTo x + 11, y + 7 LeftClick 1 Delay 800 //延时 ci=ci+1 Delay 1000 x = 0 y = 0 Delay 800 Goto 怪物检测 Wend End If Delay 100 End Sub Sub 捡物品() Delay 50 Rem 金币检测 FindPic 168, 70, 1064, 462, "E:\按键精灵9\wugong\金币.bmp", 0.5, intX, intY If intX > 0 And intY > 0 Then FindPic 168, 70, 1064, 462, "E:\按键精灵9\wugong\金币.bmp", 0.5, intX, intY While intX > 0 And intY > 0 MoveTo intX+2, intY+2 Delay 500 LeftClick 1 Delay 1000 intX = 0 intY = 0 Goto 金币检测 Wend End If FindPic 168, 70, 1064, 462, "E:\按键精灵9\wugong\金币2.bmp", 0.5, intX, intY If intX > 0 And intY > 0 Then FindPic 168, 70, 1064, 462, "E:\按键精灵9\wugong\金币2.bmp", 0.5, intX, intY While intX > 0 And intY > 0 MoveTo intX+2, intY+2 Delay 500 LeftClick 1 Delay 1000 intX = 0 intY = 0 Goto 金币检测 Wend End If End Sub