Ejemplos usando el Api de windows para Visual basic

232 - Consola DOS

Ejemplo para escribir y leer desde una una ventana DOS en visual basic

Ejemplo programado y enviado por Helmuth Campos

El código usa las funciones WriteConsole, ReadConsole, SetConsoleTextAttribute y SetConsoleTitle entre otras, para poder abrir una consola dos, leer el prompt es decir lo que que escribimos y luego obtener dicho dato para mostrarlo en el formulario principal de la aplicación

consola dos

Nota: es posible que genere error si se ejecuta desde el IDE

Código fuente en el formulario

Private Const FOREGROUND_BLUE = &H1 Private Const FOREGROUND_GREEN = &H2 Private Const FOREGROUND_RED = &H4 Private Const BACKGROUND_BLUE = &H10 Private Const BACKGROUND_GREEN = &H20 Private Const BACKGROUND_RED = &H40 Private Const BACKGROUND_INTENSITY = &H80& Private Const BACKGROUND_SEARCH = &H20& Private Const FOREGROUND_INTENSITY = &H8& Private Const FOREGROUND_SEARCH = (&H10&) Private Const ENABLE_LINE_INPUT = &H2& Private Const ENABLE_ECHO_INPUT = &H4& Private Const ENABLE_MOUSE_INPUT = &H10& Private Const ENABLE_PROCESSED_INPUT = &H1& Private Const ENABLE_WINDOW_INPUT = &H8& Private Const ENABLE_PROCESSED_OUTPUT = &H1& Private Const ENABLE_WRAP_AT_EOL_OUTPUT = &H2& Private Const STD_OUTPUT_HANDLE = -11& Private Const STD_INPUT_HANDLE = -10& Private Const STD_ERROR_HANDLE = -12& Private Const INVALID_HANDLE_VALUE = -1& Private Declare Function AllocConsole _ Lib "kernel32" () As Long Private Declare Function FreeConsole _ Lib "kernel32" () As Long Private Declare Function CloseHandle _ Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function GetStdHandle _ Lib "kernel32" (ByVal nStdHandle As Long) As Long Private 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 Private Declare Function ReadConsole _ Lib "kernel32" Alias "ReadConsoleA" _ (ByVal hConsoleInput As Long, _ ByVal lpBuffer As String, _ ByVal nNumberOfCharsToRead As Long, _ lpNumberOfCharsRead As Long, _ lpReserved As Any) As Long Private Declare Function SetConsoleTextAttribute _ Lib "kernel32" (ByVal hConsoleOutput As Long, _ ByVal wAttributes As Long) As Long Private Declare Function SetConsoleTitle _ Lib "kernel32" Alias "SetConsoleTitleA" _ (ByVal lpConsoleTitle As String) As Long Private hConsoleOut As Long, hConsoleIn As Long, _ hConsoleErr As Long Private Sub Form_Load() If AllocConsole() Then hConsoleOut = GetStdHandle(STD_OUTPUT_HANDLE) If hConsoleOut = INVALID_HANDLE_VALUE Then MsgBox "No se pudo obtener STDOUT" End If hConsoleIn = GetStdHandle(STD_INPUT_HANDLE) If hConsoleOut = INVALID_HANDLE_VALUE Then MsgBox "No se pudo obtener STDIN" End If Else MsgBox " ¡Chin! No encontré la consola" End If SetConsoleTitle "Dj_Dexter es muy guapo" SetConsoleTextAttribute hConsoleOut, _ FOREGROUND_RED Or FOREGROUND_GREEN Or _ FOREGROUND_INTENSITY Or BACKGROUND_BLUE ConsoleWriteLine "No te metas con mi cucu" ConsoleWrite "Dime tu nombre peladete: " Label1.AutoSize = True Label1.Caption = "Hola " + ConsoleReadLine() + _ " ¿pos ontablas peladete cochinón?" CerrarConsolaCochina End Sub Private Sub Form_Resize() On Error Resume Next Move (Screen.Width - Width) \ 29, (Screen.Height - Height) \ 29 End Sub Private Sub Form_Unload(Cancel As Integer) CerrarConsolaCochina End Sub Private Sub ConsoleWriteLine(sInput As String) ConsoleWrite sInput + vbCrLf End Sub Private Sub ConsoleWrite(sInput As String) Dim cWritten As Long WriteConsole hConsoleOut, ByVal sInput, _ Len(sInput), cWritten, ByVal 0& End Sub Private Function ConsoleReadLine() As String Dim ZeroPos As Long ConsoleReadLine = String(10, 0) ReadConsole hConsoleIn, ConsoleReadLine, _ Len(ConsoleReadLine), vbNull, vbNull ZeroPos = InStr(ConsoleReadLine, Chr$(0)) If ZeroPos > 0 Then ConsoleReadLine = Left$(ConsoleReadLine, _ ZeroPos - 3) End If End Function Private Function CerrarConsolaCochina() CloseHandle hConsoleOut CloseHandle hConsoleIn FreeConsole End Function

Enlaces relacionados

Ejecutar comando DOS en visual basic y retornar la salida hacia nuestro programa

Buscar en Recursos vb