• 益阳网站建设

    益阳网站建设是专业的网站制作和网站优化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.ms-enterprise.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
    展开悬浮客服
    回到顶部
    5544444