vb运行批处理文件

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:30:25
各位朋友，我有调用.bat文件时遇到了一些对我来说剌手的问题。就是.bat文件还没有运行完，vb的其它程序就开始运行了，请各位告诉我应该怎么样避免这个问题。本人非常感谢。

pid = Shell("C:\haha.bat", vbNormalFocus)

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)

ExitEvent = WaitForSingleObject(hProcess, INFINITE)

Call CloseHandle(hProcess)

这些函数都到api查看器里找，都是标准api

VB是异步运行模式,需要用API达到同步运行的效果,这个已经在百度发过贴了,自己要多搜搜,给你个函数

'在标准模块中写入下列代码
Public Const SYNCHRONIZE = &H100000
Public Const INFINITE = &HFFFFFFFF
Public Const WAIT_TIMEOUT = &H102&

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