批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS如何实现先运行A程序，待A程序退出再运行B程序 [打印本页]

作者: zinet 时间: 2008-10-25 22:53 标题: VBS如何实现先运行A程序，待A程序退出再运行B程序

本帖最后由 pcl_test 于 2016-7-23 21:21 编辑

有一脚本代码如下：
set ws=createobject("wscript.shell")
ws.run "aaa.exe"

我想当aaa.exe退出后自动启动 bbb.exe 不知代码怎样写，请高人指点

作者: jellyhk 时间: 2008-10-25 23:15

可能要用检测语句？
我也不会 vbs不好意思！

[ 本帖最后由 jellyhk 于 2008-10-25 23:17 编辑 ]

作者: lixiaodaoaaa 时间: 2008-10-25 23:47 标题: vbs好象不可以做到

我见,得必须有第三方程序做监控，监视进程,一旦发现不在运行,马上重新运行aaa.exe
有病毒的特性

作者: zqz0012005 时间: 2008-10-26 00:47

楼主是何意思？
1、等待aaa.exe运行结束后再运行bbb.exe？

set ws=createobject("wscript.shell") 
ws.run "aaa.exe",,True
ws.run "bbb.exe"
复制代码

2、监视进程？

set ws=createobject("wscript.shell") 
ws.run "aaa.exe"
Set colMonitoredProcesses = GetObject("winmgmts:"). _
    ExecNotificationQuery("select * from __instancedeletionevent " _ 
            & "within 1 where TargetInstance isa 'Win32_Process'")
Do
    Set objLatestProcess = colMonitoredProcesses.NextEvent
    if LCase(objLatestProcess.TargetInstance.Name)=LCase("aaa.exe") then ws.run "bbb.exe"
Loop
复制代码

作者: everest79 时间: 2008-10-26 01:03

使用exec来启动程序并把句柄指向程序后vbs会一直等待程序结束

作者: lixiaodaoaaa 时间: 2008-10-26 06:22 标题: 回复 4楼的帖子

他的帖子实在不错!
刚才测试一下很好,希望写个教程出来,我们大家一起学习下vbs
就以这个为例子吧,我感觉这个例子很好，很有代表性.

set ws=createobject("wscript.shell") 
ws.run "aaa.exe",,True
ws.run "bbb.exe"
复制代码

上面这个代码当aaa.exe退出后,就运行bbb.exe,
测试正常. 下面他写的代码我就不知道什么意思了,希望再写个相关的教程，我想了解下
我想大家都喜欢,来看看吧,感谢一下他...zqz 001025,兄弟发个帖把，把你的第二个程序
以他做个相关解释,很详细的解释,做个教程，大家练习下vbs,

[ 本帖最后由 lixiaodaoaaa 于 2008-10-26 06:29 编辑 ]

作者: Batcher 时间: 2008-10-26 16:11 标题: 回复 6楼的帖子

多看教程：

System Administration Scripting Guide.chm
http://bbs.bathome.net/thread-2320-1-1.html

Managing Windows with VBScript and WMI.chm
http://bbs.bathome.net/thread-377-1-1.html

作者: anyhow 时间: 2008-12-17 10:08

超强的斑竹，不过好像论坛里的普通学友们的VBS明显不如其批处理水平高

作者: Batcher 时间: 2008-12-17 10:51 标题: 回复 8楼的帖子

可能因为这里是批处理论坛吧，呵呵。
不过有些朋友的VBS水平巨高，只是不怎么发帖而已^_^

作者: newxso 时间: 2008-12-19 19:33

原帖由 everest79 于 2008-10-26 01:03 发表
使用exec来启动程序并把句柄指向程序后vbs会一直等待程序结束

能否举个例子，让大家学学。

欢迎光临批处理之家 (http://bathome.net./)