益阳网站建设

益阳网站建设是专业的网站制作和网站优化SEO的益阳网络公司
项目经理直线: 0737-3666343 18973746816
网站首页 > > 新闻动态 > 相关资料 > > 正文

垂询热线

3303609113@qq.com

3303609113 / 275100931

3303609113@qq.com

建站指南

让浏览者喜欢,让客户获益是最高原则。

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

日期: 2013-1-25 18:35:01 点击: 标签:按键精灵 传奇外挂 打怪

分享到: 更多

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


经过2天多时间精心测试,内挂有加血,地图之间跑路图没做,只做了检测当前地图和定点搜怪,捡金币。

适用环境:

'进行地图定点移动
'游戏设置:1024*600宽屏, xp 1366*768

'外挂设置:隐藏尸体,去掉免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



本文网址:

垂询热线

18973746816
展开悬浮客服
回到顶部