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

《全自动魔兽世界钓鱼脚本.docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、nDelay100Rem国服魔兽世界自动钓鱼脚本//normalshape=965986689//fishshape=1053591638//鼠标在浮漂上的形状Rem获取声音窗口大小（用来定位第三格声音的点）：soundwin=Plugin.Window.Find(0,"声音")Ifsoundwin=0ThenMsgBox"没有打开声音窗口"EndIfsoundRect=Plugin.Window.GetClientRect(soundwin)DimsoundArraysoundArray=split(soundRect,"

3、")//MessageB

4、ox(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)DimwowArraywowArray

5、=split(wowRect,"

6、")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/10)*4Delay100KeyDown"1",1Delay200KeyUp"1",1Delay500Rem鼠标滑动Callmouse(L1,R1,T1,B1,8,25)-----------------------------------------------以下全部是函

7、数Functionmouse(l2,r2,t2,b2,ustep,vstep)//鼠标滑动函数，参数是滑动范围和滑动间隔//滑动起始点mbx=l2+5mby=b2-5whilet2

8、上，是则返回1mouseshape=GetCursorShape(0)If(mouseshape=1053591638)Thenfindfishmouse=1Elsefindfishmouse=0EndIfEndFunctionFunctionfish()//找到浮漂则进入此函数，18秒倒计时，没隔300毫秒进行一次声音判断GetCursorPosx,yMoveTox-5,yDelay100//MsgBox"找到浮漂！进入钓鱼模式!"fishtime=60Whilefishtime>0Iffishsound=1ThenRightClick1Delay

9、1000GotobeginEndIffishtime=fishtime-1Delay300WendGotobeginEndFunctionFunctionfishsound()//声音判断，跳到第三格则返回1//MoveToL+R*0.911,T+B*0.21IfColorsL+sR*0.911,sT+sB*0.21,"23A232",2Then//坐标是声音窗口的相对坐标，颜色是声音指示的颜色fishsound=1Elsefishsound=0EndIfEndFunction