Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "QQGame2008Beta1Patch1_web_setup.exe" '启动安装程序
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 3000 '延时3秒
WshShell.SendKeys "n" '模拟按下 S 键开始安装
WScript.Sleep 300 '延时0.3秒
WshShell.SendKeys "a" '模拟按下 A 键同意协议
如能解决不胜感激