<th id="wzdfu"><pre id="wzdfu"></pre></th>

    <progress id="wzdfu"><pre id="wzdfu"></pre></progress>

    <em id="wzdfu"><acronym id="wzdfu"><u id="wzdfu"></u></acronym></em>

  1. 益陽網站建設

    益陽網站建設是專業的網站制作和網站優化SEO的益陽網絡公司
    項目經理直線: 19892705850
    網站首頁 > > 新聞動態 > 相關資料 > > 正文

    垂詢熱線

    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.cnbsmc.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



    本文網址:

    垂詢熱線

    15660249568
    展開懸浮客服
    回到頂部
    女人下面的黑森林真实图片,夜色资源站www国产在线视频,男人使劲躁女人视频免费观看,久久久久精品国产四虎2021
    <th id="wzdfu"><pre id="wzdfu"></pre></th>

      <progress id="wzdfu"><pre id="wzdfu"></pre></progress>

      <em id="wzdfu"><acronym id="wzdfu"><u id="wzdfu"></u></acronym></em>