这个问题我也碰到了，费了好大劲终于解决了，代码共享，要是管用希望大哥不吝赐分。dim WshShellSet WshShell = CreateObject("Wscript.Shell")Do While 1'发送1键WshShell.SendKeys "1"'睡眠制定时间WScript.Sleep 24000Loop
