直接写成
do
WSHshell.Sendkeys "%{F4}"
loop
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
wend
do
CreateObject("WScript.Shell").Sendkeys "%{F4}"
loop
while(1) do
WSHshell.SendKeys "%{F4}"
loop