<em id="dqdfk"><object id="dqdfk"><input id="dqdfk"></input></object></em>

<rp id="dqdfk"></rp>
<dd id="dqdfk"></dd>

  • <nav id="dqdfk"></nav>

          <progress id="dqdfk"></progress>

          益陽網站建設

          益陽網站建設是專業的網站制作和網站優化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.game7779.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
          展開懸浮客服
          回到頂部
          午夜片少妇无码区在线观看,两个男用舌头到我的蕊花,国产欧美另类精品久久久,亚洲国产长腿丝袜av天堂