vbs循环按键

Posted 2023-04-04

dim t1
Set WshShell= WScript.CreateObject("WScript.Shell")
t1=0
do
if t1<=10 then
WScript.Sleep 300
objShell.SendKeys "^4"
WScript.Sleep 300
objShell.SendKeys "^9"
end if
t1=t1+1
wscript.sleep 10
loop
上面是脚本，问什么运行时说缺少对象"OBJSHELL"
可以的话可以重新写一个

把Set WshShell= WScript.CreateObject("WScript.Shell")改成Set objShell= WScript.CreateObject("WScript.Shell") 参考技术A Set OBJSHELL= WScript.CreateObject("WScript.Shell")

间隔一分钟按某个按键一次——VBS脚本

间隔一分钟按某个按键一次-VBS脚本

我们在玩游戏挂机的时候，有的时候长时间鼠标键盘不动一下，游戏就掉线了。或者居家办公出去做核酸检测，时间一长你的钉钉、企业微信等通讯工具就会显示离线状态，这个时候需要有个简易的小脚本帮你按一按键盘，让你一直留在线上。那么这个时候，这个小工具就非常有帮助了。

Set objShell = CreateObject("Wscript.Shell") 
do
WScript.Sleep 60*1000
objShell.SendKeys "F5"                
loop

上面的意思就是每隔一分钟，脚本帮你按一下F5键。这是一个循环，如果不主动结束，会一直帮你按下去。

保存上面的代码，在桌面新建一个记事本文件，然后粘贴进去后保存记事本，最后把记事本文件后缀名改为.vbs就行了，双击就可以运行。

那么怎么结束这个脚本呢？肯定是另一个脚本了。

dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "taskkill /im wscript.exe /f ",0 ,true 

这样你就可以让你的电脑随时帮你按按键盘，不至于掉线了。当然了，有人说我想按其他键怎么办？

https://www.cnblogs.com/caimuqing/p/5795614.html

上面的卡片是一些常用的按键的vbs调用代码，有需要的自己研究。当然了，有个别人的win10电脑双击vbs文件会提示错误，没法运行vbs文件。

https://blog.csdn.net/qq_41344259/article/details/119765914?utm_medium=distribute.pc_aggpage_search_result.none-task-blog-2_{aggregatepage}first_rank_ecpm_v1~rank_aggregation-1-119765914.pc_agg_rank_aggregation&utm_term=win10%E6%97%A0%E6%B3%95%E8%BF%90%E8%A1%8Cvbs%E8%84%9A%E6%9C%AC&spm=1000.2123.3001.4430

这里有一个解决思路，碰到此问题的朋友可以自己尝试着解决。以上就是本次分享的全部内容，帮助你游戏不掉线，通讯工具不离开，让你做一个永远在线上的优秀青年。

原文链接：
https://zhuanlan.zhihu.com/p/430657845