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

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

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