求一个不停按空格的VBS脚本~~谢谢~

'新建一个 txt 文件

'内容：

set ws=createobject("wscript.shell")

set fso=createobject("scripting.filesystemobject")

if not fso.fileexists("停止.bat") then

set file=fso.createtextfile("停止.bat")

file.writeline "@echo off"

file.writeline "taskkill /f /im WScript.exe"

file.close

end if

msgbox "确定，将一直按空格键，要停止请双击当前目录下的“停止.bat”文件。",4096+48,"友情提示"

do

ws.sendkeys " "

loop

'保存为 .vbs 格式，双击运行即可。

set WShell=createobject("Wscript.Shell")

WShell.Sendkeys " "

set WShell= nothing

---