怎样用vbs检测正在运行的程序并等待它结束？
比如，我用VBS判断RAR.EXE压缩程序是否已结束，如果没有结束，则过2秒后继续判断，直到结束为止，以继续执行后面的代码。用VBS应该如何写呢？...
比如，我用VBS判断RAR.EXE压缩程序是否已结束，如果没有结束，则过2秒后继续判断，直到结束为止，以继续执行后面的代码。用VBS应该如何写呢？
展开
1个回答
展开全部
Set WMI=GetObject("WinMgmts:")
Dim isrun
Do
isrun=0
Set procs=WMI.InstancesOf("Win32_Process")
For Each p In procs
If "rar.exe"=p.name Then isrun=1
Next
Set procs=Nothing
If 1=isrun Then WScript.Sleep 2*1000
While (1=isrun)
Dim isrun
Do
isrun=0
Set procs=WMI.InstancesOf("Win32_Process")
For Each p In procs
If "rar.exe"=p.name Then isrun=1
Next
Set procs=Nothing
If 1=isrun Then WScript.Sleep 2*1000
While (1=isrun)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
