欢迎来到天天文库
浏览记录
ID:62037462
大小:79.10 KB
页数:3页
时间:2021-04-15
《全自动魔兽世界钓鱼脚本.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-5whilet28、上,是则返回1mouseshape=GetCursorShape(0)If(mouseshape=1053591638)Thenfindfishmouse=1Elsefindfishmouse=0EndIfEndFunctionFunctionfish()//找到浮漂则进入此函数,18秒倒计时,没隔300毫秒进行一次声音判断GetCursorPosx,yMoveTox-5,yDelay100//MsgBox"找到浮漂!进入钓鱼模式!"fishtime=60Whilefishtime>0Iffishsound=1ThenRightClick1Delay9、1000GotobeginEndIffishtime=fishtime-1Delay300WendGotobeginEndFunctionFunctionfishsound()//声音判断,跳到第三格则返回1//MoveToL+R*0.911,T+B*0.21IfColorsL+sR*0.911,sT+sB*0.21,"23A232",2Then//坐标是声音窗口的相对坐标,颜色是声音指示的颜色fishsound=1Elsefishsound=0EndIfEndFunction
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
此文档下载收益归作者所有