winapi - sintaxis - proceso primario y secundario la represion

¿Cómo leo el resultado estándar de un proceso secundario en VB6?

Question

Al crear un proceso en VB6 (relacionado con esta pregunta :), estoy usando la siguiente estructura:

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

Antes de comenzar mi proceso, ¿qué debe pasar con STARTUPINFO.hStdOutput para que mi aplicación VB6 lea la salida de mi proceso alojado?

¡¡Gracias!!

Answer 1

Ver AttachConsole(ATTACH_PARENT_PROCESS)

Answer 2

Microsoft da aquí un ejemplo sobre cómo hacerlo.

Answer 3

Siguiendo esta otra pregunta del OP , publico un método alternativo para ejecutar un comando y obtener stdout:

'' References: "Windows Script Host Shell Object Model" ''
Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" ( _
ByVal dwMilliseconds As Long)
Function ExecuteCommand(cmd As String, ExpectedResult as Long) As String
Dim shell As New IWshRuntimeLibrary.WshShell
Dim exec As IWshRuntimeLibrary.WshExec
Set exec = shell.Exec(cmd)
While exec.Status = 0
Sleep 100
Wend
If exec.ExitCode = ExpectedResult Then
ExecuteCommand = exec.StdOut.ReadAll
Else
ExecuteCommand = vbNullString '' or whatever ''
End
End Function