Question

vb 调用exe 程序结束后再继续

我想用shell语句调用exe文件，外部exe文件运行结束后会生成一个TXT文件，所以需要该程序结束后再运行下面的代码。
call shell（“d:\test3\select.exe",vbhide)

求救。

Answer 1

Shell是有个返回值的，返回值是ProcessID。
这个ID只有在被建立的进程关闭后才会消失。
所以可以循环判断这个ProcessID是否还存在，当消失后，则可以执行另一个Shell。
------
以上提供思路，若需要代码，可以追问。

追问

需要代码，劳驾。我是新手。

追答

楼上的zx001z回答的很好呀.
我帮忙多加点注释，你就应该能了解他的意思了。

' API 声明
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 Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

' 窗口载入事件
Private Sub Form_Load()

' 变量声明
Dim lngPId As Long ' Process ID
Dim lngPHandle As Long ' Process Handler

' 运行第一个程序 "Notepad.exe"
lngPId = Shell("Notepad.exe", vbNormalFocus)

' 获得进程句柄，并执行成功的情况
lngPHandle = OpenProcess(SYNCHRONIZE, 0, lngPId)
If lngPHandle = 0 Then

' 等待运行的进程执行完毕
Call WaitForSingleObject(lngPHandle, INFINITE)

' 销毁打开的进程句柄
Call CloseHandle(lngPHandle)

End If

' 执行第二个进程 "d:\test3\select.exe"
Call Shell("d:\test3\select.exe", vbHide)

End Sub

追问

我运行过这个代码，不能导出我想要的txt文件，不知道是什么原因。单独执行exe是没有问题的。

追答

您需要执行的第一个exe是有txt文件输出?
输出的txt是不是是相对路径，而不是绝对路径?
您可以将此vb代码保存为一个工程，然后运行一下，查看下vb的当前目录或临时目录中，是否存在您所要的txt文件，如果是的话，那您所说的外部程序，可能存储的txt文件是相对路径，那就需要指定其的运行目录了。

追问

谢谢您，能够顺利运行了。不过显示结果后，会弹出一个无内容的txt文件，这是为什么呢？

追答

那段代码中
' 运行第一个程序 "Notepad.exe"
lngPId = Shell("Notepad.exe", vbNormalFocus)

会运行一次Notepad.exe，而这个就是运行记事本，所以应该会有个无内容的记事本窗口。

Answer 2

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 Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub Form_Load()
Dim lngPId As Long
Dim lngPHandle As Long
lngPId = Shell("Notepad.exe", vbNormalFocus)
lngPHandle = OpenProcess(SYNCHRONIZE, 0, lngPId)
If lngPHandle = 0 Then
Call WaitForSingleObject(lngPHandle, INFINITE) ' 无限等待, 直到程式结束
Call CloseHandle(lngPHandle)
End If
Call Shell("d:\test3\select.exe", vbHide)
End Sub