你的位置：
魔兽钓鱼脚本求问~~
13:26:14 |
来源: 按键精灵资源站
Rem 国服魔兽世界自动钓鱼脚本
// normalshape =
// fishshape =
Rem 获取声音窗口大小（用来定位第三格声音的点）：
soundwin = Plugin.Window.Find(0, &声音&)
If soundwin = 0 Then
MsgBox &没有打开声音窗口&
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&&
KeyDown &1&, 1& &
KeyUp &1&, 1
Rem 鼠标滑动
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&b2
&&while l2&mbx and mbx&r2
& & MoveTo mbx, mby
& &&&If findfishmouse = 1 Then
& && & call fish
& & End If
mbx = mbx+ustep
mby = mby - vstep
mbx = l2 + 1
Goto begin
End Function
Function findfishmouse()
mouseshape=GetCursorShape(0)
If (mouseshape=) Then
findfishmouse = 1
Else findfishmouse=0
End Function
Function fish()
GetCursorPos x, y
MoveTo x-5, y
//MsgBox &找到浮漂！进入钓鱼模式!&
fishtime=60
While fishtime&0
If fishsound = 1 Then
RightClick 1
Delay 1000
Goto begin
fishtime = fishtime - 1
Goto begin
End Function
Function fishsound()
IfColor A232&,2 Then
fishsound=1
fishsound=0
End Function
RightClick 3
脚本思路：
& &&&1.找浮漂，使用鼠标在钓鱼区域滑行，每滑行10像素进行一次鼠标形状判断，碰到浮漂进入钓鱼模式
& &&&2.上钩判断，，打开windows 7 声音窗口，扬声器有个声音输出指示，我这里判定声音指示条到3格判定鱼上钩，判定方法用 ifcolor
这是一个论坛小前辈 的帖子，思路非常精妙。别出心裁，我在台服和国服都已经试验成功，前面半段都没有问题，包括打开声音窗口，鼠标自动扫描找到鱼钩，但就在后面出问题，声音出现后，鼠标就是没有反应，在下初入论坛，也不知道是哪里出了问题，附上声音图一张，求达人君子看看是否找色出问题？？还是声音窗口的坐标出问题？？也没有其他要求，升级都是一个个做任务升上去的，只是钓鱼实在太费眼和时间，还要注意力高度集中，只要能自动钓鱼，于愿足矣。不胜感激涕零，拜谢。
下载地址请访问原帖你的位置：
魔兽世界钓鱼脚本源码加小精灵
17:29:28 |
来源: 按键精灵资源站
[General]Description=钓鱼BeginHotkey=120BeginHotkeyMod=2PauseHotkey=0PauseHotkeyMod=0StopHotkey=122StopHotkeyMod=2RunOnce=1EnableWindow=Enable=1AutoRun=0[Repeat]Type=1Number=1[Relative]SetupOCXFile=[Comment]Content=[Script]dim tsRem Starterts = 0IfColor 770,785,172,2& & IfColor 724,547,ffffff,1& && &&&Delay 100& && &&&KeyPress 13,1& & EndIf & & Delay 100& & KeyPress 74,1& & Delay 100& & KeyPress 69,1& & Delay 100& & KeyPress 83,1& & Delay 100& & KeyPress 83,1& & Delay 100& & KeyPress 73,1& & Delay 100& & KeyPress 78,1& & Delay 100& & KeyPress 49,1& & Delay 100& & KeyPress 50,1& & Delay 100& & KeyPress 48,1& & Delay 100& & KeyPress 54,1& & Delay 100& & KeyPress 13,1& & Delay 5000& & IfColor 800,580,6a,2& && &&&Delay 100& && &&&KeyPress 13,1& && &&&Goto Starter& & EndIf & & Delay 20000& & KeyPress 13,1& & Delay 60000& & //For 5& & //KeyPress 35,1& & //Delay 200& & //EndFor& & //KeyPress 36,1& & //Delay 1000& & //For 20& & //MouseWheel 10& & //Delay 100& & //EndForEndIf IfColor 970,830,3036f,2& & Delay 100& & KeyPress 13,1& & Delay 20000& & KeyPress 13,1& & Delay 60000EndIf Rem StartDelay 100ts = ts + 1If ts &= 30& & Delay 100& & KeyPress 32,1& & Goto StarterEndIf Delay 200MoveTo 840, 550Delay 200RightClick 1Delay 100RightClick 1Delay 3000Rem Pickupdim xdim yx = 0y = 0While 1& & //251105 - 夜色森林& & //112992 - 奧丹姆& & //29 - 暮光高地& & //10151F - 荊棘谷& & //0E2033 - 環形山& & //091A5C - 泰羅卡& & //080D31 - 北裂境& & //111948 - 地深之源& & VBSCall FindColorEx(300,150,.6,x,y)& & If x & 0 and y & 0& && &&&MoveTo x,y& & EndIf & & VBSCall mouse=GetCursorShape(0)& & If mouse = & && &&&Goto Fish& & EndIf & & Delay 500& & VBSCall mouse=GetCursorShape(0)& & If mouse = & && &&&Goto Start& & EndIf EndWhile Rem Fishdim intXdim intYintX = 0intY = 0While intX &= 0 and intY &= 0& & //AE7F29 - 夜色森林& & //FFFFFF,FFE9C9 - 奧丹姆& & //E88260,FFFFBB,FFE29B - 暮光高地& & //FFDA5A - 荊棘谷& & //8CFCAC - 環形山& & //B1DFCD - 泰羅卡& & //FFFFFF - 北裂境& & //FFF6D2 - 地深之源& & VBSCall FindColorEx(x-100,y-75,x+100,y+75,&FFE29B&,0,0.8,intX,intY)& & If intX & 0 and intY & 0& && &&&RightClick 1& && &&&Delay 1000& & EndIf & & Delay 50& & VBSCall mouse=GetCursorShape(0)& & If mouse = & && &&&Goto Start& & EndIf EndWhile Goto Start附件还没能力上传 下次附加魔兽世界6.2自动钓鱼 _ 游戏脚本专区 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 2397|回复: 8
[魔兽世界]
适用窗口模式。//钓鱼技能放在1的位置//开自动拾取speed =8 flag = falseRem startIfColor 1113, 65, &7588E6&, 1 Then
//上鱼饵的 判断右上角鱼竿buff颜色&&&&&&&&KeyPress &9&, 1 //加钓鱼技能鱼饵 放9键&&&&Delay 3000&&&&KeyPress &7&, 1 //德拉诺之王地图鱼饵 放7键&&&&Delay 3000&&&&End IfMoveTo 300, 500KeyPress &space&, 1Delay 500KeyPress &8&, 1 //鱼虫信息素 Delay 500KeyPress &1&, 1
//钓鱼技能 Delay 1000UserVar zsx=&300& &左上X&UserVar zsy=&250& &左上Y&UserVar zxx=&1000& &右下X&UserVar zxy=&500& &右下Y&//可以缩小游戏环境，通过抓抓找出合适的范围
窗口模式For t = zsy To zxy step 13 //从左到右平移&&&&For i = zsx To zxx step 15//自上而下换行&&&&&&&&MoveTo i, t&&&&&&&&Delay 10&&&&&&&&var = GetCursorShape(0) &&&&&&&&If var =
Then &&&&&&&&&&&&GetCursorPos x1, y1 &&&&&&&&&&&&flag = true &&&&&&&&&&&&Goto qigan&&&&&&&&End If&&&&&&&&Delay speed*1.5 &&&&NextNextRem qiganIf flag = true Then &&&&GetCursorPos x, yEnd If//微移鼠标， 把鼠标放到鱼漂下面几个像素位置 For i = 0 To 1000 &&&&MoveTo x + i, y&&&&x1=x&&&&var = GetCursorShape(0) &&&&&&&&If var =
Then &&&&&&&&GetCursorPos x2, y2 &&&&Exit For &&&&End If &&&&Delay speed*2Next MoveTo (x2-x1)/2+x1, y GetCursorPos x, y Delay 200 For i = 0 To 1000 &&&&MoveTo x, y + i &&&&var = GetCursorShape(0) &&&&If var =
Then &&&&&&&&GetCursorPos x3,y3&&&&&&&&Exit For &&&&End If &&&&Delay speed*2NextMoveTo x3, y3 + 3// 起竿
没有自动拾取， 用了插件fishbuddy 自动拾取For i=0 to 1000 &&&&var = GetCursorShape(0) &&&&If var =
Then &&&&&&&&MoveTo x3,y3-5&&&& &&&&Delay 1000&&&&&&&&RightClick 1&&&&&&&&Delay 500&&&&End If &&&&Delay 10 Next Delay 2000GetCursorPos x4, y4 If x4 = 1000 Then &&&&Goto startEnd If
下载按键精灵，复制到脚本。镜头拉到最近，看不到游戏人物水面在屏幕1/4至2/3位置。启动脚本
回复 ，的确可以用。但是发现一些问题，经常会甩鱼缸到非范围内，然后经常正确选取了目标却自动偏离等情况导致不会自动收杆。问下楼主，有办法在脚本内写出范围框选之类的嘛？还有我发现下杆总是往右侧偏移的，所以楼主其实该试试从右侧往左搜寻比较好吧，完全小白纯属路过觉得楼主可以再次优化。同时谢谢楼主！
语法错误：第9行，第31个字符：（错误码0）没有找到合法的符号。语法错误：第18行，第1个字符：（错误码0）没有找到合法的符号。
复制过来有2处错误求解
LZ不能用啊，报错
我是个小白，请教下那个鼠标微移到鱼漂下面几个像素点，怎么能让微移少点，经常移的太下了啊？
回复 同样的情况，往下移的太多，手动上巨型浮漂貌似可破
你好！问下，这个脚本我是能执行，但是只能执行一次，不会自动循环，好像是GetCursorPos x4, y4 If x4 = 1000 Then
Goto start没有Goto start了，那么x4=1000条件没满足吗？魔兽自动钓鱼按键精灵脚本-360文档中心
360文档中心免费免积分下载，各行业
知识、技术、信息等word文档下载网站
魔兽自动钓鱼按键精灵脚本
很好的钓鱼脚本,不会封号,拍卖钓鱼。[General]
SyntaxVersion=2
BeginHotkey=119
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=120
StopHotkeyMod=0
EnableWindow=
MacroID=1002212b-d2d6-466e-8b60-e915
Description=魔兽世界自动钓鱼程序
[Relative]
SetupOCXFile=
魔兽世界自动钓鱼程序1.0
整理优化 温馨提示：
1、本程序由免费版按键精灵制作，会附带广告，对此表示抱歉
2、使用按键精灵可能会导致魔兽世界帐号被封，请自行斟酌
3、本程序适合魔兽世界大地的裂变国服版本（其他未测）
4、为保证程序生效，请按照使用说明对您的游戏进行设置 使用说明：
1、建议设置魔兽世界为分辨率，将游戏特效开至最大 如发现本程序无法在您的计算机上运行，请联系作者松江游子
2、将 “钓鱼” 技能拖至绑定了按键“1”的位置，装备上 “鱼竿”
3、请开启自动拾取并检查背包空间
4、将人物停留在没有其他玩家钓鱼的地方，提高上钩成功率
5、请尽量靠近水面
6、本程序快捷键
其他设置默认即可
7、第一次甩杆，程序会关闭当前界面，如需要恢复请按ALT+Z 每次甩杆，程序都会将视角切换至第一人称
8、当前设置理想延迟50-200，如您无法正常使用，请联系作者 程序原理：
程序启动后，会逐行扫描已经记录下来的当前版本鱼钩特征 通过对比在指定区域内迅速找到鱼漂，并监控鱼漂的动作
当鱼漂上下浮动时，自动点击右键，收杆，就这么简单！
MessageBox "点击确定 5 秒后将开始钓鱼，请切换至魔兽世界窗口，自动钓鱼期间请勿动
免费下载该文档：
魔兽自动钓鱼按键精灵脚本的相关文档搜索
全自动魔兽世界钓鱼脚本_计算机软件及应用_IT/计算机_专业资料。按键精灵2014——简单游戏脚本制作开发工具, 按键精灵论坛配有丰富的简单脚本开发教程,学习游戏脚本开发...按键精灵魔兽世界自动钓鱼脚本_计算机软件及应用_IT/计算机_专业资料。按键精灵魔兽世界自动钓鱼脚本 按键精灵魔兽世界自动钓鱼脚本脚本思路: 1.找浮漂,使用鼠标在钓鱼...WOW自动钓鱼脚本_计算机软件及应用_IT/计算机_专业资料。转自魔兽世界论坛 作者t...废话结束,正题开始 需要准备:按键精灵,自行下载:反河蟹登陆器,这里提供,也可在...魔兽世界自动钓鱼脚本_计算机软件及应用_IT/计算机_专业资料。[General] SyntaxVersion...免费版按键精灵制作,会附带广告,对此表示抱歉 2、使用按键精灵可能会导致魔兽...WOW钓鱼按键精灵脚本7.3_游戏_生活休闲。WOW钓鱼按键精灵脚本7.3 //已默认浮标为目标3秒后监测浮标跳动,需打开自动拾取,最好角度人物左侧45°,仰角30度以下 Dim...【按键精灵】魔兽世界LR 自动打怪脚本_互联网_IT/计算机_专业资料。Hwnd = ...按键精灵脚本入门 7页 2下载券
魔兽自动钓鱼按键精灵脚... 4页 免费 喜欢...图文全通关攻略。《方舟:生存进化》中脚本可以帮助大家省下不少功夫,但是也是有风险的。下面一起看下“undead_90”分享的《方舟:生存进化》对应按键精灵的自动钓鱼...按键精灵钓鱼脚本(内附带注释的脚本及游戏说明) 大家现在玩的游戏大部分都有...钓鱼大师 自动钓鱼 按键... 1080人阅读 7页 免费
魔兽世界按键精灵钓鱼 7757...now)&=600 Delay 512 Goto ddw Else Delay 512 Gosub HPMP Delay 128 Goto ddsj EndIf Rem ddw Return 等待 学习网络游戏找 怪 的思路方法(按键精灵脚本技术...? 打开按键精灵-新建-空白脚本-确定 ? ? 点击源文件,复制代码。 然后回到游戏界面,钓鱼等出现好像有鱼儿上钩了的时候截图按“PrtSc”键 ? 截 图 效 果 如 ...魔兽世界钓鱼辅助(魔兽世界自动钓鱼宏)V1.3 绿色版软件下载 - 绿色先锋下载 - 绿色软件下载站
赞助商链接
本类月下载排行
本类周下载排行
常用软件推荐
魔兽世界钓鱼辅助(魔兽世界自动钓鱼宏)具有定点钓鱼、钓稀有鱼等功能，是wow最好用的钓鱼插件，其使用简单，可以设置热点操作，让钓鱼更加方便。
魔兽世界钓鱼辅助 使用说明：
1、在任意水边，非游泳状态下启动工具
2、如鱼不上钩或出现丢杆可尝试设置鱼漂速度，建议设置为40-80
&&请点击以下链接下载该软件：&魔兽世界钓鱼辅助(魔兽世界自动钓鱼宏)V1.3 绿色版
上一软件：
下一软件：
(评论内容只代表网友观点，与本站立场无关)
为了保证您快速的下载,推荐使用[] 、[] 等专业工具下载.
为确保软件能正常使用,请使用[
]解压本站软件.
目前不少软件都捆绑流氓插件，请在安装的之时务必留意每一个安装步骤.绿色先锋本身是不会捆绑任何插件在软件中的.
该软件为网上收集，若无意中侵犯了您的版权，.我们将在收信后24小时内删除侵权内
本站下载的软件中，部分软件经过压缩加密处理，解压密码为：www.greenxf.com
感谢您对绿色先锋的支持，请将网站地址放在您的博客，空间等地方，以便我们为您及您的朋友提供更好的服务.
软件按字母排列：
中文按声母搜索：}