全自动魔兽世界钓鱼脚本.pdf

全自动魔兽世界钓鱼脚本 魔兽世界钓鱼脚本思路： 1.找浮漂， 使用鼠标在钓鱼区域滑行， 每滑行 10 像素进行一次鼠标形状判断， 碰到浮 漂进入钓鱼模式 2. 上钩判断， ，打开 windows 7 声音窗口， ** 有个声音输出指示，我这里判定声音指 示条到 3 格判定鱼上钩，判定方法用 ifcolor 3.程序过程： 查找声音窗口魔兽世界窗口并获取窗口大小 确定鼠标滑行区域进行 鼠标滑行 监控鼠标形状直到找到浮漂 -- 监控鱼上钩声音直到上钩 -- 点击鼠标右键 -- 循环 4. 源代码 如果复制到按键精灵里有问题， 把注释删掉， 似乎按键精灵加了中文注释会 出现问题。 代码如下： 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 MoveT o 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=1053