Question

使用AutoIt3实现每9秒按一下F5。

WinWaitActive("SYBQ:63区")
Sleep(9000)
HotKeySet ("F5")
有几个问题 第一怎么才能让他无限循环
第二为什么他是好使的，但是在游戏里他不吃药呢（我游戏里F5是药）
第三：
Dim objws
Do
Set objws=WScript.CreateObject("wscript.shell")
objws.AppActivate "SYBQ:63区"
WScript.Sleep 9000
objws.SendKeys "{F5}"
loop
我以前是这样的，直接保存到记事本另存成VBS格式，好使是好使了，但是总是有时候按F5赶哪下就不按了，再赶哪下又按了这是为什么。
最后一个问题：
怎样用AutoIt3实现一下操作：
步骤1：鼠标右键按住
步骤2：鼠标移动到坐标XXX
步骤3：延迟3000毫秒（3秒）
步骤4：鼠标移动到坐标YYY
步骤5：延迟3000毫秒（3秒）
步骤6：从步骤2—5无限重复

在此感谢各位大神了，小弟绞尽脑汁也没搞定，就这点东西还是自学的，太不容易了。（按键精灵什么的一类软件是不能用的）

搞定后追加50 说到做到！！！！

Answer 1

第一怎么才能让他无限循环
用While循环：
While 1
要无限循环的代码
WEnd

第二为什么他是好使的，但是在游戏里他不吃药呢（我游戏里F5是药）
HotKeySet ("F5") 这句用错了吧？是 Send("{F5}") 吧？

第三：
AppActivate可能成功，可能失败，但按你这样的写法，后面的代码不管成功还是失败都会执行的。所以有可能激活失败的时候开始sleep，下次激活成功的时候还没从sleep出来。因此最好判断一下 AppActivate 的执行结果。
ret = objws.AppActivate("SYBQ:63区")
If ret Then ' if succeed
WScript.Sleep 9000
objws.SendKeys "{F5}"
End If

最后一个问题（你的问题貌似有点问题：鼠标右键一直按住就不松了？？？），我给个示例：
MouseDown("right")
While 1
MouseMove(x1, y1) ;还可以加第三个参数指定鼠标移动速度
Sleep(3000)
MouseMove(x2, y2)
Sleep(3000)
WEnd

追问

哥们 首先很感谢你的回答 我弄了一下 一个也不行 可能是我不会弄 方便留个联系方式么 我象您请教一下

追答

给你发站内消息了，请查看。

Answer 2

第一：无限循环如下
While 1
WinWaitActive("SYBQ:63区")
Sleep(9000)
HotKeySet("F5")
WEnd
第二：因为你只是设置了快捷键，并不是发送快捷键，所以想要向游戏发送F5，只要将问题一中的“HotKeySet("F5")”替换为“Send("{F5}")”
第三：因为objws.AppActivate "SYBQ:63区"
第四：如下
MouseDown("right");按下鼠标右键
While 1
MouseMove(1,2,0);鼠标立即移动到坐标1,2
Sleep(3000);延时3秒
MouseMove(3,4,0);鼠标立即移动到坐标3,4
Sleep(3000);延时3秒
WEnd

另:以上操作建议做成快捷键启动,会方便一些
擦..回答多余了..基本都一样..

追问

不行啊 鼠标的那个我试了一下 根本就不动 是au3写的么

追答

如下:按Pause键启动,再次按Pause暂停,按Alt+Pause退出

HotKeySet("{PAUSE}", "Start")
HotKeySet("!{PAUSE}","Quit")
TogglePause()

Func Start()
HotKeySet("{PAUSE}")
HotKeySet("{PAUSE}", "TogglePause")
ToolTip('Start.',0,0)
MouseDown("right");按下鼠标右键
While 1
MouseMove(1,2,0);鼠标立即移动到坐标1,2
Sleep(3000);延时3秒
MouseMove(3,4,0);鼠标立即移动到坐标3,4
Sleep(3000);延时3秒
WEnd
EndFunc

Func TogglePause()
ToolTip('Pause',0,0)
HotKeySet("{PAUSE}")
HotKeySet("{PAUSE}", "Start")
MouseUp("right");松开鼠标右键
While 1
sleep(100)
WEnd
EndFunc

Func Quit()
Exit
EndFunc

测试有效,如有疑问Q:2757161