益陽網站建設

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

建站指南

讓瀏覽者喜歡,讓客戶獲益是最高原則。

按鍵精靈傳奇外掛地圖尋找怪打怪撿金幣

日期: 2013-1-25 18:35:01 點擊: 標簽:按鍵精靈 傳奇外掛 打怪

分享到: 更多

按鍵精靈傳奇外掛地圖尋找怪打怪撿金幣


經過2天多時間精心測試,內掛有加血,地圖之間跑路圖沒做,只做了檢測當前地圖和定點搜怪,撿金幣。

適用環境:

'進行地圖定點移動
'游戲設置:1024*600寬屏, xp 1366*768

'外掛設置:隱藏尸體,去掉免shift攻擊


代碼:

Call 檢測地圖()
'Call 開始打怪()
'Call 撿物品()
'唐唐網絡 http://www.hqxnkw.live/  出品,如果您需要更精準的外掛請隨時聯系我們!
'特定打造,不滿意不要錢,任何游戲,只要是人玩的,均可以實現!
'原理上不會被任何網游封掉,完全基于人工模擬!
'一般性客戶端判斷外掛讀取進程可以使用工具禁止進行內存讀取.實現為所欲為!
'結合計算機強大性能和虛擬機,可以實現無限多開!
’腳本開源,可以輕易進行個性修改!
    
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
展開懸浮客服
回到頂部
弓兵送彩金