按键精灵魔兽世界自动钓鱼脚本

1、按键精灵魔兽世界自动钓鱼脚本脚本思路：1. 找浮漂，使用鼠标在钓鱼区域滑行，每滑行10像素进行一次鼠标形状判断,碰到浮漂进入钓鱼模式2. 上钩判断，打开 windows 7声音窗口，扬声器有个声音输出指示，我这里判定声音指示条到 3格判定鱼上钩，判定方法用ifcolor3. 程序过程查找声音窗口魔兽世界窗口并获取窗口大小-> 确定鼠标滑行区域进行鼠标滑行-> 监控鼠标形状直到找到浮漂-> 监控鱼上钩声音直到上钩-> 点 击鼠标右键-> 循环 4.具体过程看视频(上传中)http:/player.youku.eom/player.php/sid/XMzA3MjY2M

2、DIw/v.swf5.源代码如果复制到按键精灵里有问题，把注释删掉，似乎按键精灵加了中文 注释会出现问题：=代码开始=Rem begi nDelay 100Rem国服魔兽世界自动钓鱼脚本/ normalshape = 965986689/ fishshape = 1053591638 /鼠标在浮漂上的形状Rem获取声音窗口大小(用来定位第三格声音的点)：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 鼠标滑动Call mouse(L1, R1, T1, B1, 8, 25) 以下全部是函数 Function mouse(l2, r2, t2, b2,ustep,vstep) /鼠标滑动函数，参数是滑动范围和滑动间隔/ 滑动起始点 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() / 判断鼠标是否在浮漂上，是则返回 1 mouseshape=GetCursorShape(0)If (mouseshape=1053591638) Thenfindfishmouse = 1Else findfishmouse=0End IfEnd FunctionFunction fish(

7、) / 找到浮漂则进入此函数， 18 秒倒计时，没 音判断GetCursorPos x, yMoveTo x-5, yDelay 100 /MsgBox " 找到浮漂！进入钓鱼模式 !" 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,