VB 如何执行完一个外部程序后，再接着执行下一个外部程序啊！

[cnzjk]

VB 如何执行完一个外部程序后，再接着执行下一个外部程序啊！

[fj182]

如果不要求执行顺序

shell "a.exe"
shell "b.exe"

如果要执行完一个程序(程序已经关闭)再执行另外一个程序

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Private Const SYNCHRONIZE As Long = &H100000
Private Const INFINITE As Long = &HFFFF 'Infinite timeout

Public Sub ShellEx(ByVal PathName As String, _
Optional ByVal WindowStyle As VbAppWinStyle = vbMinimizedFocus, _
Optional ByVal Sync As Boolean = False)

Dim lRet As Long
Dim hProcess As Long

lRet = Shell(PathName, WindowStyle)
hProcess = OpenProcess(SYNCHRONIZE, 0, lRet)

If Sync And hProcess <> 0 Then
WaitForSingleObject hProcess, INFINITE
CloseHandle hProcess
End If

End Sub

ShellEx "a.exe",,true
ShellEx "b.exe",,true

[fj182]

ShellEx函数最后一个参数表示是否同步执行。

[cnzjk]

好的问题解决，怎么给分

[fj182]

点帖子上方的管理

[awperpvip]

学习

[Sandrer]

Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long

[tlbbyjw]

阿花你好！我在VB6.0+winxp2003下提示CloseHandle子程序未定义，为什么？

[浪客]

不错。。。
顶了。。

代码借用了。呵呵~~

[红叶哥]

不錯的東西，頂

[housen168]

1楼没有解释,看不懂!最好详细点,让我这样的菜鸟也看的懂.

[嗷嗷叫的老马]

顶了!!!

[nbdd0121]

TOP!TOP!

[Michael_g]

靠！一年前的贴子了，还能浮上来？

[xixihaha_2011_098]

说明，这个帖子好啊,哈哈