Dim hConsoleOutput As IntPtr = GetStdHandle(STD_HANDLES.STD_OUTPUT_HANDLE) Dim Buffer(3840) As CHAR_INFO Dim BufferSize As New COORD(120, 32) Dim BufferCoord As New COORD(0, 0) Dim ReadRegion As New SMALL_RECT(0, 0, 119, 31) Dim X As Boolean = (ReadConsoleOutput(hConsoleOutput, Buffer(0), BufferSize, BufferCoord, ReadRegion))
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)