Question

怎样在VBS运行后自动打开另一个程序

我想在第一个VBS程序的对话框关闭后（点击‘是’）自动弹出另一个VBS程序，它在F盘里。求助怎样编第一个VBS程序才能做到？
如果在点击之后重启动呢？

Answer 1

set
wshshell
=
createobject("wscript.shell")
wshshell.run
"notepad.exe",
,
true
'这条语句等到被打开序关闭时才执行下一句。
也可以循环监视
oexec.status
=wshfinished
确定程序是否已退出

Answer 2

=======打开一个vbs程序========
dim ans , strvbs
strvbs = "d:\test.vbs" '这里换成你的vbs路径
ans = msgbox("是否打开程序？" , vbyesno + vbinformation,"提示")
if ans = vbyes then
set oshell = createobject("wscript.shell")
oshell.run strvbs,false,false
end if

=======重启============
dim ans
ans = msgbox("是否重启？" , vbyesno + vbinformation,"提示")
if ans = vbyes then
set oshell = createobject("wscript.shell")
oshell.run "shutdown /s /t 0",false,false
end if

Answer 3

dim ws
set ws = createobject("wscript.shell")
ws.run "wscript.exe *.vbs"
这个是运行