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

admin管理员组

文章数量:1540285

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

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

脚本思路：

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

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

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

//sid/XMzA3MjY2MDIw/

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

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

Rem begin

Delay 100

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

// normalshape = 965986689

// fishshape = 1053591638 //鼠标在浮漂上的形状

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

soundwin = (0, "声音")

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)

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)

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

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

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

mouseshape=GetCursorShape(0)

If (mouseshape=1053591638) Then

findfishmouse = 1

Else findfishmouse=0

End If

End Function

Function fish() //找到浮漂则进入此函数，18秒倒计时，没隔300毫秒进行一次声音判断

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

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

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

本文标签： 鼠标声音钓鱼浮漂