益阳网站建设

按键精灵传奇外挂地图寻找怪打怪捡金币

经过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

用到的附件：

wugong.rar