魔兽自动钓鱼按键精灵脚本

SyntaxVersion=2 BeginHotkey=119 BeginHotkeyMod=0 PauseHotkey=0 PauseHotkeyMod=0 StopHotkey=120 StopHotkeyMod=0 RunOnce=1 EnableWindow=

MacroID=1002212b-d2d6-466e-8b60-4406b4e9e915 Description=魔兽世界自动钓鱼程序 Enable=1 AutoRun=0 [Repeat] Type=1 Number=1 [Relative]

SetupOCXFile= [Comment]

魔兽世界自动钓鱼程序1.0 —— 松江游子 整理优化 温馨提示：

1、本程序由免费版按键精灵制作，会附带广告，对此表示抱歉 2、使用按键精灵可能会导致魔兽世界帐号被封，请自行斟酌 3、本程序适合魔兽世界大地的裂变国服版本（其他未测） 4、为保证程序生效，请按照使用说明对您的游戏进行设置 使用说明：

1、建议设置魔兽世界为1024*768分辨率，将游戏特效开至最大 如发现本程序无法在您的计算机上运行，请联系作者松江游子

2、将 “钓鱼” 技能拖至绑定了按键“1”的位置，装备上 “鱼竿” 3、请开启自动拾取并检查背包空间

4、将人物停留在没有其他玩家钓鱼的地方，提高上钩成功率 5、请尽量靠近水面

6、本程序快捷键 F8启动 F9停止 其他设置默认即可

7、第一次甩杆，程序会关闭当前界面，如需要恢复请按ALT+Z 每次甩杆，程序都会将视角切换至第一人称

8、当前设置理想延迟50-200，如您无法正常使用，请联系作者 程序原理：

程序启动后，会逐行扫描已经记录下来的当前版本鱼钩特征 通过对比在指定区域内迅速找到鱼漂，并监控鱼漂的动作 当鱼漂上下浮动时，自动点击右键，收杆，就这么简单！

[Script]

MessageBox \"点击确定 5 秒后将开始钓鱼，请切换至魔兽世界窗口，自动钓鱼期间请勿动

鼠标键盘\" Delay 5000

UserVar LTop=\"300,380\" \"鼠标扫描左上起点\" UserVar RBot=\"980,500\" \"鼠标扫描右下终点\" mouseType=1053591638 Call GetCursorShape(0)

Dim s, x0, y0, x1, y1, x2, y2, x, y, c, starttime, endtime, m1, n1, m2, n2 s = InStr(LTop, \

x1 = int(Mid(LTop, 1, s - 1)) y1 = int(Mid(LTop, s + 1)) s = InStr(RBot, \

x2 = int(Mid(RBot, 1, s - 1)) y2 = int(Mid(RBot, s + 1)) KeyDown 18, 1 KeyPress 90, 1 KeyUp 18, 1 Delay 100 Rem KaiShi

KeyPress \"End\Delay 100

KeyPress \"Home\Delay 1000 KeyPress 49, 1

Rem SouSuo Delay 1500 x = x1 y = y1

MoveTo x, y starttime = Now

While y < y2 y = y + 25 While x < x2 x = x + 2 MoveTo x, y Delay 1 If GetCursorShape(0) = mouseType Then GetCursorPos x0, y0 MoveTo x, y Goto YiDong End If Wend x=x1

Wend

Goto KaiShi

Rem YiDong

While GetCursorShape(0) = mouseType x = x + 1 MoveTo x, y Delay 10

GetCursorPos m1, n1 Wend x = x0 y = y0

MoveTo x, y Delay 200

While GetCursorShape(0) = mouseType x = x - 1 MoveTo x, y Delay 20

GetCursorPos m2, n2 Wend

x = (m1 + m2) / 2 y = (n1 + n2) / 2 MoveTo x, y Delay 200

While GetCursorShape(0) = mouseType y = y - 1 MoveTo x, y Delay 50 Wend

y = y + 1 MoveTo x, y Delay 200

Goto ShangGou

Rem ShangGou While true If GetCursorShape(0)<>mouseType MoveTo x0, y0 Delay 200 RightClick 1 Delay 2000 Goto KaiShi End If Wend