这篇文章上次修改于 839 天前，可能其部分内容已经发生变化，如有疑问可询问作者。

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "main.exe"
WScript.Sleep 5000
WshShell.AppActivate "main.exe"
WshShell.SendKeys "y"
WScript.Sleep 2000
WshShell.SendKeys "{ENTER}"