2024年4月15日发(作者：)

[General]

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", 1

Delay 100

KeyPress "Home", 5

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