2024年1月26日发(作者：)

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

脚本思路：

1.找浮漂，使用鼠标在钓鱼区域滑行，每滑行10像素进行一次鼠标形状判断，碰到浮漂进入钓鱼模式

2.上钩判断，，打开windows 7声音窗口，扬声器有个声音输出指示，我这里判定声音指示条到3格判定鱼上钩，判定方法用ifcolor

3.程序过程查找声音窗口魔兽世界窗口并获取窗口大小---->确定鼠标滑行区域进行鼠标滑行---->监控鼠标形状直到找到浮漂-->监控鱼上钩声音直到上钩-->点击鼠标右键-->循环

4.具体过程看视频（上传中）

http:

5.源代码如果复制到按键精灵里有问题，把注释删掉，似乎按键精灵加了中文注释会出现问题：

-==============================================代码开始=======================================

Rem begin

Delay 100

Rem国服魔兽世界自动钓鱼脚本

// normalshape = 9

// fishape = 38 //鼠标在浮漂上的形状

Rem获取声音窗口大小（用来定位第三格声音的点）：

soundwin = (0, "声音")

1 / 6

If soundwin = 0 Then

MsgBox "没有打开声音窗口"

End If

soundRect = entRect(soundwin)

Dim soundArray

soundArray = split(soundRect, "|")

//MessageBox(wowRect)

sL = Clng(soundArray

(0))

sT = Clng(soundArray

(1))

sR = Clng(soundArray

(2))

sB = Clng(soundArray

(3))

(soundwin)

wowin=(0, "魔兽世界")

//MessageBox (wowin)

Rem窗口置顶：

(wowin)

wowRect = entRect(wowin)

2 / 6

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

Delay 100

KeyDown "1", 1

Delay 200

KeyUp "1", 1

Delay 500

Rem鼠标滑动

Call mouse(L1, R1, T1, B1, 8, 25)

3 / 6

-----------------------------------------------以下全部是函数----------------------------------------------------------------------------------

Function mouse(l2, r2, t2, b2,ustep,vstep) //鼠标滑动函数，参数是滑动范围和滑动间隔

//滑动起始点

mbx = l2+5

mby = b2-5

while t2

while l2

MoveTo mbx, mby

If findfishmouse = 1 Then

call fish

End If

delay 8

mbx = mbx+ustep

Wend

delay 8

mby = mby - vstep

mbx = l2 + 1

Wend

Goto begin

End Function

4 / 6

Function findfishmouse() //判断鼠标是否在浮漂上，是则返回1

mouseshape=GetCursorShape

(0)

If (mouseshape=38) Then

findfishmouse = 1

Else findfishmouse=0

End If

End Function

Function fish() //找到浮漂则进入此函数，行一次声音判断

GetCursorPos x, y

MoveTo x-5, y

Delay 100

//MsgBox "找到浮漂！进入钓鱼模式!"

fishtime=60

While fishtime>0

If fishsound = 1 Then

RightClick 1

Delay 1000

Goto begin

End If

fishtime = fishtime - 1

5 / 6

秒倒计时，没隔300毫秒进18

Delay 300

Wend

Goto begin

End Function

Function fishsound() //声音判断，跳到第三格则返回1

//MoveTo L + R *

0.911, T + B *

0.21

IfColor sL + sR *

0.911, sT + sB *

0.21, "23A232", 2 Then //坐标是声音窗口的相对坐标，颜色是声音指示的颜色

fishsound=1

Else

fishsound=0

End If

End Function

============================================代码结束====================================================

6 / 6