1
Abra Visual Basic e iniciar un nuevo proyecto, a través del " EXE estándar" modelo 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 líneas siguientes en la ventana del módulo 1 , que según Microsoft contiene el único código que permitirá 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 incluye el guión bajo al entrar en este código , simplemente continúe escribiendo en una línea:
Opción ExplicitDeclare Función AllocConsole Lib " kernel32 " () Como LongDeclare Función FreeConsole Lib " kernel32 " () Como LongDeclare Función CloseHandle Lib " kernel32 " ( ByVal hObject As Long ) _Como LongDeclare Función GetStdHandle Lib" kernel32 " ( ByVal _nStdHandle As Long ) Como LongDeclare Función WriteConsole Lib" kernel32 "Alias " WriteConsoleA " _ByVal hConsoleOutput As Long , lpBuffer como cualquier otro, _nNumberOfCharsToWrite ByVal As Long , lpNumberOfCharsWritten As Long , _lpReserved Como cualquiera) Como LongPublic Const STD_OUTPUT_HANDLE = -11 y
3 Haga doble clic en Form1 en la lista de proyectos a la derecha para abrir el formulario. Haga clic en " Ver" y luego " Código" de la lista. Entre estas líneas :
hConsole Dim como LongPrivate Sub Form_Load () Si AllocConsole ) ThenhConsole = GetStdHandle ( STD_OUTPUT_HANDLE ) Si hConsole = 0 Then MsgBox " No se pudo asignar STDOUT " ElseMsgBox "No se pudo asignar la consola " End ( IfEnd Sub
Form_Unload Sub Private ( Cancel As Integer ) CloseHandle hConsoleFreeConsoleEnd Sub
4
Mantenga pulsada la tecla Mayús y F7 para volver a la vista del objeto de Form1 . El código introducido hasta el momento proporciona acceso a la consola . Introduzca un código de dar instrucciones a la consola . Añadir un OptionButton en el formulario utilizando el icono Opciones de la lista de los controles generales de la columna Cuadro 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 . Agregue un control pasado, un CommandButton desde el cuadro de herramientas.
5
Realice los cambios siguientes en el panel Propiedades en el derecho a la propiedad de título de cada control , cambiando el valor por defecto Opción 1 , Opción 2 , y así sucesivamente para nuevas leyendas que decían " Directorio del disco ", " ipconfig /all ", " Vista de usuarios de red " y "Clear Screen ". Cambie el título CommandButton a " Go".
6
Uso Bloc de notas para crear cuatro archivos de texto con el sufijo " . Bat" en lugar de " . Txt ". Hacer buena nota de dónde lo guarda estos archivos. Cada archivo contiene una sola línea de la siguiente manera :
archivo: Realizar dirw.bat : DIR /WFileName : Realizar ip.bat : IPCONFIG /ALLFileName : Realizar netuser.bat : NET USERFileName : Realizar clear.bat : CLS
7
doble clic en el botón " Go " en el formulario para abrir la ventana de código . Introduzca el código entre el "Sub Go_Click Privado ()" y "End Sub ":
Private Sub Go_Click () Si Opción 1 = True ThenShell " [ sustituir aquí la ubicación de la bat guardada. ] /Dirw . bat " End IFIF Option2 = True ThenShell " [ sustituir aquí la ubicación de la bat guardada. ] /ip.bat "End IFIF Option3 = True ThenShell " [ sustituir aquí la ubicación de la bat guardada. ] /netuser.bat " Fin IFIF Opción4 = True ThenShell " [ sustituir aquí la ubicación de la bat guardada. ] /clear.bat " End Sub IfEnd
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.