按鍵精靈魔獸世界自動(dòng)釣魚腳本

1、按鍵精靈魔獸世界自動(dòng)釣魚腳本腳本思路：1. 找浮漂，使用鼠標(biāo)在釣魚區(qū)域滑行，每滑行10像素進(jìn)行一次鼠標(biāo)形狀判斷,碰到浮漂進(jìn)入釣魚模式2. 上鉤判斷，打開 windows 7聲音窗口，揚(yáng)聲器有個(gè)聲音輸出指示，我這里判定聲音指示條到 3格判定魚上鉤，判定方法用ifcolor3. 程序過程查找聲音窗口魔獸世界窗口并獲取窗口大小-> 確定鼠標(biāo)滑行區(qū)域進(jìn)行鼠標(biāo)滑行-> 監(jiān)控鼠標(biāo)形狀直到找到浮漂-> 監(jiān)控魚上鉤聲音直到上鉤-> 點(diǎn) 擊鼠標(biāo)右鍵-> 循環(huán) 4.具體過程看視頻(上傳中)http:/player.youku.eom/player.php/sid/XMzA3MjY2M

2、DIw/v.swf5.源代碼如果復(fù)制到按鍵精靈里有問題，把注釋刪掉，似乎按鍵精靈加了中文 注釋會(huì)出現(xiàn)問題：=代碼開始=Rem begi nDelay 100Rem國服魔獸世界自動(dòng)釣魚腳本/ normalshape = 965986689/ fishshape = 1053591638 /鼠標(biāo)在浮漂上的形狀Rem獲取聲音窗口大小(用來定位第三格聲音的點(diǎn))：soundwin = Plugin.Window.Find(O,"聲音")If soundwin = 0 ThenMsgBox "沒有打開聲音窗口 ”End Ifsoun dReet = Plugi n.Win d

3、ow.GetClie ntRect(so un dwi n)Dim soun dArraysoun dArray = split(so un dReet, "|")/MessageBox(wowRect)sL = Cln g(sou ndArray(O)sT = Cln g(sou ndArray(1)sR = Cln g(sou ndArray(2)sB = Cl ng(so un dArray(3)plugi n.Win dow.Aetive(so undwin)wowin=Plugin.Window.Find(0, " 魔獸世界 ") /Messa

4、geBox (wowin)Rem 窗口置頂： plugin.Window.Active(wowin) wowRect = Plugin.Window.GetClientRect(wowin) Dim wowArray wowArray = split(wowRect, "|")L = Clng(wowArray(0)T = Clng(wowArray(1)R = Clng(wowArray(2)B = Clng(wowArray(3)L1 = L + R / 5R1 = L + (R/5) * 4T1 = T + B/2 + B/11B1 = T + B / 2 + (B

5、/ 10) * 4Delay 100KeyDown "1", 1Delay 200KeyUp "1", 1Delay 500Rem 鼠標(biāo)滑動(dòng)Call mouse(L1, R1, T1, B1, 8, 25) 以下全部是函數(shù) Function mouse(l2, r2, t2, b2,ustep,vstep) /鼠標(biāo)滑動(dòng)函數(shù)，參數(shù)是滑動(dòng)范圍和滑動(dòng)間隔/ 滑動(dòng)起始點(diǎn) mbx = l2+5 mby = b2-5 while t2<mby and mby<b2while l2<mbx and mbx<r2MoveTo mbx, mbyIf

6、 findfishmouse = 1 Thencall fishEnd Ifdelay 8mbx = mbx+ustepWenddelay 8mby = mby - vstep mbx = l2 + 1WendGoto beginEnd FunctionFunction findfishmouse() / 判斷鼠標(biāo)是否在浮漂上，是則返回 1 mouseshape=GetCursorShape(0)If (mouseshape=1053591638) Thenfindfishmouse = 1Else findfishmouse=0End IfEnd FunctionFunction fish(

7、) / 找到浮漂則進(jìn)入此函數(shù)， 18 秒倒計(jì)時(shí)，沒 音判斷GetCursorPos x, yMoveTo x-5, yDelay 100 /MsgBox " 找到浮漂！進(jìn)入釣魚模式 !" fishtime=60While fishtime>0If fishsound = 1 ThenRightClick 1Delay 1000Goto beginEnd Iffishtime = fishtime - 1Delay 300WendGoto beginEnd FunctionFunction fishsound() / 聲音判斷，跳到第三格則返回 1 /MoveTo L + R * 0.911, T + B * 0.21IfColor sL + sR * 0.911, sT + sB * 0.21,