Set objShell = CreateObject("Wscript.Shell") do WScript.Sleep 3000 objShell.SendKeys "%1" WScript.Sleep 3000 objShell.SendKeys "%1" loop复制代码