Question

vbs按键代码

怎么在按键下加无限循环？
或者用别的代码也行
Set oWsh = CreateObject("Wscript.Shell")
oWsh.SendKeys "%{F4}"

Answer 1

set ws = createobject("wscript.shell")
do while 1
'按下alt+F4 (建议用其他的键来试验例如"A"因为alt+F4 是关闭当前窗口，
'关完窗口就会打开关机窗口)
ws.sendkeys("%{F4}")
'每次循环等待时间3000=3秒，以毫秒为单位的
wscript.sleep 3000
loop

想要停止它可新建文本m.txt改名m.bat右击编辑输入
taskkill /f /im wscript.exe
pause
保存
当需要停止。vbs时执行一下m.bat即可

Answer 2

VBS无限刷屏代码如下：）
On Error Resume Next
Set oWsh = CreateObject("WScript.Shell")
Do
oWsh.SendKeys "%{F4}"
WScript.Sleep 200
Lo

Answer 3

Set oWsh = CreateObject("Wscript.Shell")
while true
oWsh.SendKeys "%{F4}"
oWsh.sleep 100
wend