2024年5月18日发(作者：联想笔记本2015年款型号)

精心整理

魔兽世界按键精灵钓鱼

有童鞋使用声音监听按键精灵钓鱼，实在麻烦。

后来细细观察鱼漂，发现一些小现象，特此写以下代码供大家参考。

技能条1号键为扔钓鱼竿。

longtime = 0

speed =2

flag = false

a = 2

ii=0

MoveTo 0, 500

KeyPress "1", 1

longtime = longtime + 1000

Delay 1000

For i = 1 To 1366

MoveTo i, 500

var = GetCursorShape(0)

a = 0

ii = i

GetCursorPos x1, y1

flag = true

Exit For

End If

longtime = longtime + speed*1.5

Delay speed*1.5

Next

If flag Then

GetCursorPos x, y

For i = 0 To 1000

MoveTo x + i, y

var = GetCursorShape(0)

GetCursorPos x2, y2

Exit For

End If

longtime = longtime + speed*2*5

Delay speed*2*5

Next

MoveTo (x2-x1)/2+x1, y

GetCursorPos x, y

longtime = longtime + 200

精心整理

精心整理

Delay 200

For i = 0 To 1000

MoveTo x, y + i

var = GetCursorShape(0)

Exit For

End If

longtime = longtime + speed*2*5

Delay speed*2*5

Next

For i=0 to 1900-(longtime/10)

var = GetCursorShape(0)

RightClick 1

Exit For

End If

Delay 10

Next

Delay 2000

End If

精心整理