Tecnología

Inicio

Cómo comunicarse con la consola en Visual Basic

Visual Basic no incluye una forma sencilla de comunicarse directamente con la consola, la pantalla en negro se accede en Vista escribiendo "cmd" en el cuadro "Iniciar búsqueda" o correr el enlace "Símbolo del sistema" de "Accesorios de programa." Microsoft hace proporcionar instrucciones escritas para un trabajo en torno a participar, que se describe en este ejemplo, el uso de algunos de los comandos específicos autorizados. Aun así, la comunicación se limita sin conocimientos de programación avanzada y rutinas de programación complicados.

Instrucciones

1 Abra Visual Basic e iniciar un nuevo proyecto, utilizando la plantilla "EXE estándar" que se encuentra en "Archivo", "Nuevo proyecto". Haga clic en "Proyecto" en el menú superior y "Agregar módulo" de la lista desplegable.

2 Escriba las siguientes líneas en la ventana de módulo 1, que según Microsoft contienen el único código que permitirá la comunicación directa con la consola en Visual Basic. El guión bajo al final de algunas líneas indica que el texto en la línea siguiente es una continuación de la línea actual. No incluya el carácter de subrayado al entrar en este código; simplemente continúe escribiendo en una línea:

Option Explicit
Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject como de largo)

As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal
nStdHandle As Long) As Long
Declare Function WriteConsole Lib "WriteConsoleA" "kernel32" Alias
ByVal As Long hConsoleOutput, como cualquier lpBuffer, ByVal
nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
Como lpReserved Cualquier) As Long
Public Const STD_OUTPUT_HANDLE = -11 y

3 Haga doble clic en Form1 en la lista de proyectos a la derecha para abrir este formulario. Haga clic en "Ver" y luego "Código" de la lista. Introduzca las siguientes líneas:

Dim hConsole tan largo
Private Sub Form_Load ()
Si AllocConsole () A continuación,
hConsole = GetStdHandle (STD_OUTPUT_HANDLE)
Si hConsole = 0 Then MsgBox "No se pudo asignar STDOUT"
Más

MsgBox "No se pudo asignar la consola"
Terminara si
End Sub

Private Sub Form_Unload (Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub

4 Mantenga pulsada la tecla Shift y F7 para volver a la vista del objeto de Form1. El código introducido hasta ahora proporciona acceso a la consola. Introduzca un código para dar instrucciones a la consola. Añadir un OptionButton en el formulario utilizando el icono de opción de la lista de los controles generales en la columna de la caja de herramientas de la izquierda. Arrastre el botón de la esquina superior izquierda del formulario. Esta acción se repite tres veces más, el espaciamiento de los botones en dos columnas y dos filas. Añadir un último control, un control CommandButton de la caja de herramientas.

5 Realizar los siguientes cambios en el panel de propiedades de la derecha a la propiedad Caption de cada control, cambiando el valor por defecto Opción 1, Opción 2, y así sucesivamente a nuevas leyendas que decían "directorio del disco," "ipconfig / all", "Usuarios Vista de red" y " Pantalla clara." Cambiar el título de comando para "Go".

6 Utilice el Bloc de notas para crear cuatro archivos de texto con el sufijo ".bat" en lugar de ".txt". Hacer buena nota de dónde guarda estos archivos. Cada fichero contendrá una sola línea de la siguiente manera:

Nombre de archivo: Contenido dirw.bat: DIR / W
Nombre de archivo: ip.bat Contenido: IPCONFIG / ALL
Nombre de archivo: Contenido netuser.bat: NET USER
Nombre de archivo: clear.bat Contenido: CLS

7 Haga doble clic en el botón "Go" en el formulario para abrir la ventana de código. Introduce el código entre el "Private Sub Go_Click ()" y "End Sub":

Private Sub Go_Click ()
Si la opción 1 = entonces verdad
Shell "[sustituto aquí la ubicación del archivo de guardado .bat] /dirw.bat"
Terminara si
Si Option2 = entonces verdad
Shell "[sustituto aquí la ubicación del archivo de guardado .bat] /ip.bat"
Terminara si
Si Option3 = entonces verdad
Shell "[sustituto aquí la ubicación del archivo guardado .bat] / netuser.bat"
Terminara si
Si Opción4 = entonces verdad
Shell "[sustituto aquí la ubicación del archivo de guardado .bat] /clear.bat"
Terminara si
End Sub

Presione F5 para ejecutar el programa. Elija una de las opciones y haga clic en "Go". Esto abre una ventana de la consola y ejecuta el comando seleccionado.

Consejos y advertencias

  • Añadir a o reemplazar los botones ejemplo de instrucciones para la forma básica para que coincida con lo que se quiere comunicar, crear lotes (.bat) archivos con la instrucción principal.
  • Preguntar al usuario en un sistema de la consola e incluir código que crea automáticamente un archivo por lotes y, a continuación Conchas en la consola.
  • En el desarrollo de su propia versión, no sólo tiene que cerrar la ventana de la consola, haga clic en el cuadro "Cerrar" (X) en la parte superior derecha de la consola. Esto cerrará Visual Basic, así y puede hacer que la ventana de la consola para colgar. Cualquiera de detener la ejecución de la rutina haciendo clic en la opción Formulario "Cerrar" o dentro de la propia pantalla de desarrollo de Visual Basic.