如何在VB6中读取子进程的标准输出？

Option Explicit

Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As Any, lpThreadAttributes As Any, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDirectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As Any) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Type STARTUPINFO
    cb As Long
    lpReserved As String
    lpDesktop As String
    lpTitle As String
    dwX As Long
    dwY As Long
    dwXSize As Long
    dwYSize As Long
    dwXCountChars As Long
    dwYCountChars As Long
    dwFillAttribute As Long
    dwFlags As Long
    wShowWindow As Integer
    cbReserved2 As Integer
    lpReserved2 As Long
    hStdInput As Long
    hStdOutput As Long
    hStdError As Long
End Type

Private Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessId As Long
    dwThreadId As Long
End Type

Private Sub Form_Load()
    Dim si As STARTUPINFO
    Dim pi As PROCESS_INFORMATION
    Dim hOutputRead As Long
    Dim hOutputWrite As Long
    Dim hInputRead As Long
    Dim hInputWrite As Long
    Dim lRet As Long
    Dim sBuffer As String
    Dim lBytesRead As Long
    
    ' Create pipes for redirecting input/output
    lRet = CreatePipe(hOutputRead, hOutputWrite, 0, 0)
    lRet = CreatePipe(hInputRead, hInputWrite, 0, 0)
    
    ' Set up STARTUPINFO structure
    si.cb = Len(si)
    si.hStdOutput = hOutputWrite
    si.hStdInput = hInputRead
    si.hStdError = hOutputWrite ' Redirect standard error to output
    si.dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES
    si.wShowWindow = SW_HIDE ' Hide the window
    
    ' Start the child process
    lRet = CreateProcess(vbNullString, "cmd.exe /c dir", 0, 0, 1, 0, 0, vbNullString, si, pi)
    
    ' Close handles to child process and its main thread
    Call CloseHandle(pi.hProcess)
    Call CloseHandle(pi.hThread)
    
    ' Read output from child process
    Do
        sBuffer = String(256, Chr(0))
        lBytesRead = 0
        lRet = ReadFile(hOutputRead, sBuffer, Len(sBuffer) - 1, lBytesRead, 0)
        sBuffer = Left(sBuffer, lBytesRead)
        Debug.Print sBuffer
    Loop While lRet <> 0
    
    ' Clean up
    Call CloseHandle(hOutputRead)
    Call CloseHandle(hOutputWrite)
    Call CloseHandle(hInputRead)
    Call CloseHandle(hInputWrite)
End Sub