BOOL WINAPI WriteConsole(
  __in        HANDLE hConsoleOutput,
  __in        const VOID* lpBuffer,
  __in        DWORD nNumberOfCharsToWrite,
  __out       LPDWORD lpNumberOfCharsWritten,
  __reserved  LPVOID lpReserved
);
//Implemented as WriteConsoleW (Unicode) and WriteConsoleA (ANSI).


BOOL WINAPI ReadConsole(
  __in      HANDLE hConsoleInput,
  __out     LPVOID lpBuffer,
  __in      DWORD nNumberOfCharsToRead,
  __out     LPDWORD lpNumberOfCharsRead,
  __in_opt  LPVOID pInputControl
);
//Implemented as ReadConsoleW (Unicode) and ReadConsoleA (ANSI).


BOOL WINAPI ReadConsoleOutput(
  __in     HANDLE hConsoleOutput,
  __out    PCHAR_INFO lpBuffer,
  __in     COORD dwBufferSize,
  __in     COORD dwBufferCoord,
  __inout  PSMALL_RECT lpReadRegion
);
//Implemented as ReadConsoleOutputW (Unicode) and ReadConsoleOutputA (ANSI).

   Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
           (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
           nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
           lpReserved As Any) As Long

   Declare Function ReadConsole Lib "kernel32" Alias "ReadConsoleA" _
           (ByVal hConsoleInput As Long, lpBuffer As Any, ByVal _
           nNumberOfCharsToRead As Long, lpNumberOfCharsRead As Long, _
           pInputControl As Any) As Long

   Declare Function ReadConsoleOutput Lib "kernel32" Alias "ReadConsoleOutputA" _
           (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
           dwBufferSize As Long, dwBufferCoord As Long, _
           lpReadRegion As Any) As Long

   Private Sub Command1_Click()
   Dim Result As Long, sOut As String, cWritten As Long
   Dim Result1 As Long, sIn As String, cWritten1 As Long
     sOut = "Hi There" & vbCrLf
     Result = WriteConsole(hConsole, ByVal sOut, Len(sOut), cWritten, _
                           ByVal  0 &)
     Shell "C:\111\TEST.BAT"
     Result1 = ReadConsole(hConsole, sIn,  200 , cWritten1, ByVal  0 &)
     MsgBox sIn
   End Sub

       Do
            Call PeekNamedPipe(hReadPipe, ByVal  0 &,  0 &, ByVal  0 &, _
                lPeekData, ByVal  0 &)
            
            If lPeekData >  0  Then
                Buffer = Space$(lPeekData)
                bSuccess = ReadFile(hReadPipe, Buffer, Len(Buffer), L,  0 &)
                
                If bSuccess =  1  Then
                    
                    s = Left(Buffer, L)
                    sss = Space$(Len(s))
                    OemToChar s, sss
'-------------------------------------------------------------------------------------------
                    MsgBox sss
'-------------------------------------------------------------------------------------------
                    retText = retText & sss
                    
                Else
                    MsgBox "ReadFile failed!"
                End If
            Else
                bSuccess = WaitForSingleObject(proc.hProcess,  0 &)
                        
                If bSuccess =  0  Then
                    Exit Do
                End If
            End If
            
            DoEvents
        Loop
 

start.hStdOutput = hWritePipe
    start.hStdError = hWritePipe

    
    Result = CreateProcessA( 0 &, cmdline, sa, sa,  1 &, _
        NORMAL_PRIORITY_CLASS,  0 &,  0 &, start, proc)

    If Result <>  0  Then
        
        Dim lPeekData As Long
        
        Do
            Call PeekNamedPipe(hReadStdOutputDup, ByVal  0 &,  0 &, ByVal  0 &, _
                lPeekData, ByVal  0 &)
            
            If lPeekData >  0  Then
                Buffer = Space$(lPeekData)
                bSuccess = ReadFile(hReadStdOutputDup, Buffer, Len(Buffer), L,  0 &)
                
                If bSuccess =  1  Then
                    
                    s = Left(Buffer, L)
                    sss = Space$(Len(s))
                    OemToChar s, sss
                    
                    OUT.SelStart = Len(OUT.Text)
                    OUT.SelText = sss
                    
                Else
                    ExecCmd = "ERROR: ReadFile failed!"
                    Exit Do
                End If
            Else
                bSuccess = WaitForSingleObject(proc.hProcess,  0 &)
                        
                If bSuccess =  0  Then
                    Exit Do
                End If
            End If
            
            Call PeekNamedPipe(hReadStdErrorDup, ByVal  0 &,  0 &, ByVal  0 &, _
                lPeekData, ByVal  0 &)
            
            If lPeekData >  0  Then
                Buffer = Space$(lPeekData)
                bSuccess = ReadFile(hReadStdErrorDup, Buffer, Len(Buffer), L,  0 &)
                
                If bSuccess =  1  Then
                    
                    s = Left(Buffer, L)
                    sss = Space$(Len(s))
                    OemToChar s, sss
                    
                    OUT.SelStart = Len(OUT.Text)
                    OUT.SelText = sss
                    
                Else
                    ExecCmd = "ERROR: ReadFile failed!"
                    Exit Do
                End If
            Else
                bSuccess = WaitForSingleObject(proc.hProcess,  0 &)
                        
                If bSuccess =  0  Then
                    Exit Do
                End If
            End If
            
            If bExit Then
                bExit = False
                TerminateProcess proc.hProcess, Result
                ExecCmd = vbCrLf & "Stopped."
                GoTo lb_out
            End If
            
            DoEvents
        Loop
        ExecCmd = vbCrLf & "Success."

#include <windows.h>
void main()
{
    HANDLE hFile;

    SECURITY_ATTRIBUTES sa;

    sa.nLength = sizeof(sa);
    sa.bInheritHandle = TRUE;    
    sa.lpSecurityDescriptor = NULL;

//) 1)CreateFile
    hFile = CreateFile(
                "stdout.txt",
                GENERIC_WRITE | GENERIC_READ, 
                FILE_SHARE_READ | FILE_SHARE_WRITE, 
                &sa,
                OPEN_ALWAYS,
                 0 ,
                NULL);
//2) Redirect stdout to handle of file previously created (set proper handle in STARTUPINFO that will be passed to CreateProcess)

    SetFilePointer(hFile,  0 , NULL, FILE_END);

    STARTUPINFO si = {sizeof(STARTUPINFO)};

    si.hStdOutput = hFile;
    si.dwFlags    = STARTF_USESTDHANDLES;

    PROCESS_INFORMATION pi;
//3) execute "sendfax" using CreateProcess
    CreateProcess(NULL, "c:\\111\\sendfax.exe 84951234567 c:\\fax.tif /convert=no /output=txt", NULL, NULL, TRUE , 0 ,  0 ,  0 , &si, &pi);
//4) close handle
    CloseHandle(hFile);
}

Dim commandText As String
Dim dTaskID As Double
Dim fsuccess As Integer
Dim csScreenBuffer As CONSOLE_SCREEN_BUFFER_INFO
Dim ConsoleBoundary As SMALL_RECT
Dim XPos As Integer, YPos As Integer
Private Sub Command1_Click()
    'запуск консоли
     If AllocConsole() Then
       hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE)
       If hConsoleOut =  0  Then Err.Raise Number:= 502 , Description:="Couldn't allocate STDOUT"
     Else
       Err.Raise Number:= 502 , Description:="Couldn't allocate console"
     End If
    commandText = Text2.Text
    'таймер активирован
    Timer1.Enabled = True
    'запуск приложения и ожидание его завершения
    ShellAndContinue commandText
    'таймер дезактивирован
    Timer1.Enabled = False
    'еще раз читаем экран на случай если не успели считать крайние строки
    Timer1_Timer
    'расправляемся с ненужной более консолью
    CloseHandle hConsoleOut
    FreeConsole
End Sub

Private Sub Timer1_Timer()
    'раз в 0,5 сек читает экран консоли
    fsuccess = GetConsoleScreenBufferInfo(hConsoleOut, csScreenBuffer)
    'non-zero result is a success
    ConsoleBoundary = csScreenBuffer.srWindow
    Dim lineMessage As String *  80 
    readLength =  80 
    XPos =  0 
    YPos =  0 
    Text1.Text = ""
    'последовательное чтение всех видимых на экране строк
    For YPos =  0  To ConsoleBoundary.Bottom
        def = ReadConsoleOutputCharacter(hConsoleOut, lineMessage, readLength, YPos *  65536 , vbNull)
        If Trim(lineMessage) <> "" Then
            Text1.Text = Text1.Text & Trim(lineMessage) & vbCrLf
        End If
    Next YPos
End Sub

Option Explicit
'Functions that support the application opening the command
'window where the subsequent execcmd will execute from,
'as well as close and free the command window.
'Also functions that support reading the console screen buffer

Public hConsoleIn As Long
Public hConsoleOut As Long

Global Const NORMAL_PRIORITY_CLASS = &H20&
Global Const INFINITE = - 1 &
Public Const STD_OUTPUT_HANDLE = - 11 &
Public Const STD_INPUT_HANDLE = - 10 &


Public Const GW_HWNDFIRST =  0 
Public Const GW_HWNDLAST =  1 
Public Const GW_HWNDNEXT =  2 
Public Const GW_HWNDPREV =  3 

Public Const GW_CHILD =  5 
Public Const GW_MAX =  5 


Public Const STILL_ACTIVE = &H103
Public Const PROCESS_QUERY_INFORMATION = &H400

Public Const GW_OWNER =  4 
Public Const GWL_STYLE = - 16 
Public Const WS_DISABLED = &H8000000
Public Const WS_CANCELMODE = &H1F
Public Const WM_CLOSE = &H10

Public glCurrentHwnd

Public 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

Public Type PROCESS_INFORMATION
    hProcess As Long
    hThread As Long
    dwProcessID As Long
    dwThreadID As Long
End Type

Public Type COORD
        x As Integer
        y As Integer
End Type

Public Type SMALL_RECT
        Left As Integer
        Top As Integer
        Right As Integer
        Bottom As Integer
End Type

Public Type CONSOLE_SCREEN_BUFFER_INFO
        dwSize As COORD
        dwCursorPosition As COORD
        wAttributes As Integer
        srWindow As SMALL_RECT
        dwMaximumWindowSize As COORD
End Type

Declare Function AllocConsole Lib "kernel32" () As Long

Declare Function FreeConsole Lib "kernel32" () As Long

Declare Function GetStdHandle Lib "kernel32" (ByVal _
           nStdHandle As Long) As Long

Declare Function GetLastError Lib "kernel32" ()

Declare Function GetConsoleScreenBufferInfo Lib "kernel32" _
(ByVal hConsoleOutput As Long, _
lpConsoleScreenBufferInfo As CONSOLE_SCREEN_BUFFER_INFO) As Long

Declare Function SetConsoleCursorPosition Lib "kernel32" _
(ByVal hConsoleOutput As Long, ByVal CursorPosition As Long) As Long

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

Declare Function CreateProcessA Lib "kernel32" (ByVal _
    lpApplicationName As String, ByVal lpCommandLine As String, ByVal _
    lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _
    ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _
    ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As String, _
    lpStartupInfo As STARTUPINFO, lpProcessInformation As _
    PROCESS_INFORMATION) As Long

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

Declare Function GetExitCodeProcess Lib "kernel32" _
    (ByVal hProcess As Long, lpExitCode As Long) As Long

Declare Function ReadConsoleOutputCharacter Lib "kernel32" Alias _
"ReadConsoleOutputCharacterA" _
    (ByVal hConsoleOutput As Long, ByVal lpCharacter As String, ByVal _
    nLength As Long, ByVal dwReadCoord As Long, _
    lpNumberOfCharsRead As Long) As Long


Declare Function OpenProcess Lib "kernel32" _
   (ByVal dwDesiredAccess As Long, ByVal bInheritHandle _
   As Long, ByVal dwProcessID As Long) As Long
Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) _
    As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal wCmd As Long) As Long
Declare Function PostMessage Lib "user32" Alias _
    "PostMessageA" (ByVal hwnd As Long, ByVal wMsg _
    As Long, ByVal wParam _
    As Long, ByVal lParam As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hwnd As Long, _
    ByVal nIndex As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hwnd _
As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias _
    "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias _
    "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString _
    As String, ByVal cch As Long) As Long

Public Const SW_SHOWNOACTIVATE =  4 

Declare Function ShowWindow Lib "user32" (ByVal hwnd _
    As Long, ByVal nCmdShow As Long) As Long
Public Sub ShellAndContinue(ByVal AppToRun As String)
   ' On Error GoTo ErrorRoutineErr
    
    Dim hProcess As Long
    Dim RetVal As Long
    Dim Msg, Style, Title, Response 'msgbox variables
    
    'The next line launches AppToRun,
    'captures process ID
    hProcess = OpenProcess(PROCESS_QUERY_INFORMATION,  1 , _
    Shell(AppToRun, vbHide))
    Do
        'Get the status of the process
        GetExitCodeProcess hProcess, RetVal
        DoEvents
    'Loop while the process is active
    Loop While RetVal = STILL_ACTIVE
    
ErrorRoutineResume:
    Exit Sub
'ErrorRoutineErr:
'    MsgBox Error.Description
End Sub

Public Function ExecCmd(cmdline$)
    Dim proc As PROCESS_INFORMATION
    Dim start As STARTUPINFO
    Dim ret&

    ' Initialize the STARTUPINFO structure:
    start.cb = Len(start)

    ' Start the shelled application:
    ret& = CreateProcessA(vbNullString, cmdline$,  0 &,  0 &,  1 &, _
        NORMAL_PRIORITY_CLASS,  0 &, vbNullString, start, proc)

    ' Wait for the shelled application to finish:
        ret& = WaitForSingleObject(proc.hProcess, INFINITE)
        Call GetExitCodeProcess(proc.hProcess, ret&)
        Call CloseHandle(proc.hThread)
        Call CloseHandle(proc.hProcess)
        ExecCmd = ret&
End Function

ShowWindow FindWindow("ConsoleWindowClass", App.Path & "\" & App.EXEName & ".exe"), vbHide

Declare Function FindWindow Lib "User32.dll" Alias "FindWindowA" _
(ByVal Classname As String, ByVal WindowName As String) As Long

   SetConsoleTitle "MyNewConsole77"
    'пауза
    ltime = Timer()
    Do
        dummy = DoEvents()
        If (Timer - ltime >  0 . 000000001 ) Or (Timer < ltime) Then
            Exit Do
        End If
    Loop
    ShowWindow FindWindow("ConsoleWindowClass", "MyNewConsole77"), vbHide

Declare Function SetConsoleTitle Lib "kernel32" Alias _
    "SetConsoleTitleA" (ByVal lpConsoleTitle As String) As Long

Private Sub Timer1_Timer()
    'раз в 0,5 сек читает экран консоли
    fsuccess = GetConsoleScreenBufferInfo(hConsoleOut, csScreenBuffer)
    'non-zero result is a success
    ConsoleBoundary = csScreenBuffer.srWindow
    Dim lineMessage As String *  80 
    readLength =  80 
    XPos =  0 
    YPos =  0 
    Text1.Text = ""
    'последовательное чтение всех видимых на экране строк
    For YPos =  0  To ConsoleBoundary.Bottom
        def = ReadConsoleOutputCharacter(hConsoleOut, lineMessage, readLength, YPos *  65536 , vbNull)
        If Trim(lineMessage) <> "" Then
            Text1.Text = Text1.Text & Trim(lineMessage) & vbCrLf
        End If
    Next YPos
End Sub