vb中shell使批处理完成后再执行后续指令

Option Explicit

'shell and wait示例

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _

ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long

Private Const PROCESS_QUERY_INFORMATION = &H400

Private Const STATUS_PENDING = &H103

Private Const SYNCHRONIZE = &H100000

Private Const INFINITE = &HFFFFFFFF

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

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

'shell and wait

'执行外部命令并等待程序执行完毕再返回控制权

Private Sub Command1_Click()

Dim pId As Long, pHnd As Long ' 分别声明 Process Id 及 Process Handle 变数

pId = Shell("F:\1.bat") ' Shell 传回 Process Id

pHnd = OpenProcess(SYNCHRONIZE, 0, pId) ' 取得 Process Handle

DoEvents

If pHnd 0 Then

Call WaitForSingleObject(pHnd, INFINITE) ' 无限等待，直到程序结束

Call CloseHandle(pHnd)

End If

MsgBox "执行完毕 "

End Sub

鹏仔微信 15129739599 鹏仔QQ344225443 鹏仔前端 pjxi.com 共享博客 sharedbk.com