/ Snippet Library - View Code

Visual Basic / Miscellaneous / Read from Console App

Snippet details

ID: 393

Viewed: 1338

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

read from console app

' See KB Article : Q171654

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight All'2. You have wrong declaration of ReadConsoleOutputCharacter Function. 'Use this declaration: Declare Function ReadConsoleOutputCharacter Lib "kernel32" _ Alias "ReadConsoleOutputCharacterA" (ByVal hConsoleOutput As Long, _ ByVal lpCharacter As String, ByVal nLength As Long, _ ByVal dwReadX As Integer, ByVal dwReadY As Integer, _ lpNumberOfCharsRead As Long) As Long '3. The first character position In Console Screen Buffer Is (0,0). Type COORD X As Integer Y As Integer End Type Public Const PROCESS_ALL_ACCESS = &H1F0FFF Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Declare Function ReadConsoleOutputCharacter Lib "kernel32" Alias "ReadConsoleOutputCharacterW" (handle As Long, ByVal buffer As String, nbcar As Long, position As COORD, ByVal caracteres As Long) As Long
Code
Highlight All '1. You need Console Screen Buffer handle instead of Process handle. See ' Microsoft KB Q171654. ' Sub Test() Dim buff As String, position As COORD, caracteres As Long, nbcar As Long, handle As Long, Processus As Long Processus = Shell("C:test.bat") handle = OpenProcess(PROCESS_ALL_ACCESS, 0, Processus) position.X = 1 position.Y = 1 nbcar = 100 buff = String(nbcar + 1, " ") msg = ReadConsoleOutputCharacter(handle, buff, nbcar, position, caracteres) MsgBox caracteres End Sub

No Reviews to show