<rp id="5xu9d"><code id="5xu9d"></code></rp>
<nav id="5xu9d"><center id="5xu9d"><video id="5xu9d"></video></center></nav>
  • <rp id="5xu9d"></rp>
      <tbody id="5xu9d"><track id="5xu9d"></track></tbody>
      <span id="5xu9d"></span>
      <dd id="5xu9d"></dd>

      <button id="5xu9d"></button>
      <th id="5xu9d"></th>
      <dd id="5xu9d"><track id="5xu9d"></track></dd>

      益陽網站建設

      益陽網站建設是專業的網站制作和網站優化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.gsmserverunlocking.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
      展開懸浮客服
      回到頂部
      亚洲欧美日韩国产成人一区
      <rp id="5xu9d"><code id="5xu9d"></code></rp>
      <nav id="5xu9d"><center id="5xu9d"><video id="5xu9d"></video></center></nav>
    1. <rp id="5xu9d"></rp>
        <tbody id="5xu9d"><track id="5xu9d"></track></tbody>
        <span id="5xu9d"></span>
        <dd id="5xu9d"></dd>

        <button id="5xu9d"></button>
        <th id="5xu9d"></th>
        <dd id="5xu9d"><track id="5xu9d"></track></dd>