Question

按键精灵wow自动钓鱼脚本是否可以？

认为扫描的地方有点小，修改了UserVar LTop="300,380" "鼠标扫描左上起点"和UserVar RBot="500，580" "鼠标扫描右下终点"这两个的数值，可是范围依旧那样没改变，求救。

上代码

[Script]
MessageBox "点击确定 5 秒后将开始钓鱼，请切换至魔兽世界窗口，自动钓鱼期间请勿动鼠标键盘"
Delay 5000
UserVar LTop="300,380" "鼠标扫描左上起点"
UserVar RBot="500，580" "鼠标扫描右下终点"
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))
Rem KaiShi

KeyPress 49, 1

Rem SouSuo

Delay 1000
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
Goto ShangGou
Rem ShangGou

While true
If GetCursorShape(0)<>mouseType
MoveTo x0, y0
Delay 200
RightClick 1
Delay 2000
Goto KaiShi
End If
Wend

Answer 1

不能吧因为钓鱼并不是有规律的 按键精灵只可以做自动的循环操作 但是钓鱼上钩的时间是不同的 所以应该不能实现
打字不易，如满意，望采纳。

追问

这个脚本自动寻找鱼钩的

Answer 2

完全可以实现的。。你需要去侦测声音 打开系统声音面板，有声音那个音量条会涨的。