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

按键精灵魔兽世界自动钓鱼脚本 脚本思路： 1. 找浮漂，使用鼠标在钓鱼区域滑行，每滑行 10 像素进行一次鼠标形状判断， 碰到浮漂进入钓鱼模式 2. 上钩判断，，打开 windows 7 声音窗口，扬声器有个声音输出指示，我这里判 定声音指示条到 3 格判定鱼上钩，判定方法用 ifcolor 3. 程序过程 查找声音窗口魔兽世界窗口并获取窗口大小 ---- 确定鼠标滑行区 域进行鼠标滑行 ---- 监控鼠标形状直到找到浮漂 -- 监控鱼上钩声音直到上钩 -- 点 击鼠标右键 -- 循环 4. 具体过程看视频（上传中） /player.php/sid/XMzA3MjY2MDIw/v.swf 5. 源代码 如果复制到按键精灵里有问题，把注释删掉，似乎按键精灵加了中文 注释会出现问题： -============================================== 代码 开始======================================= Rem begin Delay 100 Rem 国服魔兽世界自动钓鱼脚本 // normalshape = 965986689 // fishshape = 1053591638 // 鼠标在浮漂上的形状 Rem 获取声音窗口大小（用来定位第三格声音的点）： soundwin = Plugin.Window.Find(0, 声音) If soundwin = 0 Then MsgBox 没有打开声音窗口 End If soundRect = Plugin.Window.GetClientRect(soundwin) Dim soundArray soundArray = split(soundRect, |) //MessageBox(wowRect) sL = Clng(soundArray(0)) sT = Clng(soundArray(1)) sR = Clng(soundArray(2)) sB = Clng(soundArray(3)) plugin.Window.Active(soundwin) wowin=Plugin.Window.Find(0, 魔兽世界 ) //MessageBox (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 / 5 R1 = L + (R/5) * 4 T1 = T + B/2 + B/11 B1 = T + B / 2 + (B / 10) * 4 Delay 100 KeyDown 1, 1 Delay 200 KeyUp 1, 1 Delay 500 Rem 鼠标滑动 Call mouse(L1, R1, T1, B1, 8, 25) ----------------------------------------------- 以下全部是函数 ---------------------------------- ------------------------------------------------ Function mouse(l2, r2, t2, b2,ustep,vstep) // 鼠标滑动函数，参数是滑动范围和滑 动间隔 // 滑动起始点 mbx = l2+5 mby = b2-5 while t2mby and mbyb2 while l2mbx and mbxr2 MoveTo mbx, mby If findfishmouse = 1 Then call fish End If delay 8 mbx = mbx+ustep Wend delay 8 mby = mby - vstep mbx = l2 + 1 Wend Goto begin End Function Function findfishmouse() // 判断鼠标是否在浮漂上，是则返回 1 mouseshape=GetCursorShape(0) If (mouseshape=1053591638) Then findfishmouse = 1 Else findfishmouse=0 End If End Function Function fish() // 找到浮漂则进入此函数， 18 秒倒计时，