使用AutoIt3实现每9秒按一下F5。
WinWaitActive("SYBQ:63区")Sleep(9000)HotKeySet("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 说到做到!!!! 展开
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 说到做到!!!! 展开
2个回答
展开全部
第一怎么才能让他无限循环
用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
用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
追问
哥们 首先很感谢你的回答 我弄了一下 一个也不行 可能是我不会弄 方便留个联系方式么 我象您请教一下
追答
给你发站内消息了,请查看。
巧豚豚
2024-12-25 广告
2024-12-25 广告
作为深圳富斯达商务科技有限公司的工作人员,提报Woot BD的流程如下:首先,确保产品符合Woot BD的提报条件,包括足够的库存、采购价满足要求、产品星级和评论数达标,以及提供足够的折扣。其次,通过WOOT合规渠道提交产品给WOOT报价,...
点击进入详情页
本回答由巧豚豚提供
展开全部
第一:无限循环如下
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
另:以上操作建议做成快捷键启动,会方便一些
擦..回答多余了..基本都一样..
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询