魔兽世界按键精灵钓鱼
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
精心整理魔兽世界按键精灵钓鱼
有童鞋使用声音监听按键精灵钓鱼，实在麻烦。
后来细细观察鱼漂，发现一些小现象，特此写以下代码供大家参考。
技能条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
精心整理