Question

Vbs代码，要求完成运行vbs后自动打开一个程序A，在A程序关闭后自动打开B程序

Vbs代码，要求完成运行vbs后自动打开一个程序A，在A程序关闭（无论手动关闭或自动关闭）后自动打开B程序。

求大神帮助
Program1 = "A程序路径"
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)

这样编写自动运行A程序时候有问题？还有如何在这个程序关闭后开启B程序？

Answer 1

Set WshShell = CreateObject("wscript.shell")
WshShell.Run "notepad.exe", , True '这条语句等到被打开序关闭时才执行下一句。

也可以循环监视 oExec.Status =WshFinished 确定程序是否已退出

追问

大神，循环监视语句如何使用，菜鸟一个求指点

追答

const WshFinished=1
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
do until oExec.Status =WshFinished '直到oExec.Status =WshFinished 结束循环
loop
WshShell.Exec B ‘然后执行B程序

'这好像没什么意义，占用cpu资源。
'还是 run 好

追问

大神，最后两个问题，run语句对于自动关闭的程序有效吗？vbs能否做成exe文件？

追答

什么自动关闭，这我不确定，自己试试。在run之后放一句msgbox "ok" ，自己看看效果。我试验打开的是记事本，按关闭按钮有效，在任务管理器中关闭也有效。
vbs 不能做成 exe文件，不过可以拷贝到VB工程中生成 exe文件吗。