怎样等待一个SHELL调用程序执行完再继续
1个回答
展开全部
先得到.exe的PID号。
循环，等进程终止跳出。
例如要调用计算器(CALC.EXE)并等到它运行完成后再执行下一语句，可以使用以下代码：
Dim RetVal
MsgBox ″开始运行″
RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1)
While IsRunning(RetVal)
DoEvents
Wend
MsgBox ″结束运行″
循环，等进程终止跳出。
例如要调用计算器(CALC.EXE)并等到它运行完成后再执行下一语句，可以使用以下代码：
Dim RetVal
MsgBox ″开始运行″
RetVal = Shell(″C:\WINDOWS\CALC.EXE″, 1)
While IsRunning(RetVal)
DoEvents
Wend
MsgBox ″结束运行″
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
