窗口没有激活，试一下 Dim s Set s = WScript.CreateObject("Wscript.Shell") s.AppActivate "无标题 - 记事本" '窗口标题 WScript.Sleep 200 '等待反应时间 s.SendKeys "%{enter}" '模拟按键
