<sub id="11nt3"><listing id="11nt3"></listing></sub>

                        益陽網站建設

                        益陽網站建設是專業的網站制作和網站優化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.laitangjapan.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
                        展開懸浮客服
                        回到頂部
                        美国一级A片

                                <sub id="11nt3"><listing id="11nt3"></listing></sub>