VBS能否自动计算安装程序的进度作判断！？ - 中国DOS联盟论坛

想让vbs自动安装程序，但是中间需要WScript.Sleep 沉睡的时间的语句，但是有的电脑慢一点有的快，有没有什么语句是自动让vbs计算安装程序的进度然后作出判断，进行操作！能有这样子的效果的话那真的是太好了！
一下是vbs的脚本不知道需不需要改进！

Set objShell = CreateObject("Wscript.Shell")
strCommandLine = "McAfeeSetup.exe"
objShell.Run(strCommandLine)
set WshShell = CreateObject("WScript.Shell")
WScript.Sleep 40000
WshShell.SendKeys "n"
WScript.Sleep 300
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{TAB}"
WScript.Sleep 300
WshShell.SendKeys "{DOWN}"
WScript.Sleep 300
WshShell.SendKeys "{DOWN}"
..........................................................

高手们帮帮我吧！

第1楼　devilip	发表于 2007-04-29 15:19
初级用户　发帖 12　积分 36
[求助]VBS能否自动计算安装程序的进度作判断！？想让vbs自动安装程序，但是中间需要WScript.Sleep 沉睡的时间的语句，但是有的电脑慢一点有的快，有没有什么语句是自动让vbs计算安装程序的进度然后作出判断，进行操作！能有这样子的效果的话那真的是太好了！一下是vbs的脚本不知道需不需要改进！ Set objShell = CreateObject("Wscript.Shell") strCommandLine = "McAfeeSetup.exe" objShell.Run(strCommandLine) set WshShell = CreateObject("WScript.Shell") WScript.Sleep 40000 WshShell.SendKeys "n" WScript.Sleep 300 WshShell.SendKeys "{TAB}" WScript.Sleep 300 WshShell.SendKeys "{TAB}" WScript.Sleep 300 WshShell.SendKeys "{DOWN}" WScript.Sleep 300 WshShell.SendKeys "{DOWN}" .......................................................... 高手们帮帮我吧！