Open Visual Basic 1 en start een nieuw project , met behulp van de "Standard EXE " sjabloon vinden onder " File ", " New Project . " Klik op " Project " in het bovenste menu en " Module toevoegen " uit het drop - down lijst .

Type 2 de volgende regels in het venster Module1 , die volgens Microsoft bevatten de enige code die het mogelijk maken directe communicatie met de console in Visual Basic . De underscore aan het eind van sommige lijnen geeft aan dat de tekst op de volgende regel is een voortzetting van de huidige regel . Omvatten niet de underscore bij het invoeren van deze code , gewoon doorgaan met het typen op een regel :

Option ExplicitDeclare Functie AllocConsole Lib " kernel32 "
( ) Zoals LongDeclare Functie FreeConsole Lib " kernel32 " ( ) Zoals LongDeclare Functie CloseHandle Lib " kernel32 " ( ByVal hObject als lang) _As LongDeclare Functie GetStdHandle Lib " kernel32 " ( ByVal _nStdHandle als lang) als LongDeclare Functie WriteConsole Lib " kernel32 "alias " WriteConsoleA " _ByVal hConsoleOutput As Long , lpBuffer Zoals Elke , ByVal _nNumberOfCharsToWrite zoals lang, lpNumberOfCharsWritten As Long , _lpReserved Als Elke ) Zoals LongPublic Const STD_OUTPUT_HANDLE = -11 &
3

Dubbelklik op Form1 in de lijst Project inzake het recht op dit formulier te openen . Klik op " View " en vervolgens " Code " uit de lijst . Voer deze lijnen :

Dim hConsole
als LongPrivate Sub Form_Load ( ) Als AllocConsole ( ) ThenhConsole = GetStdHandle ( STD_OUTPUT_HANDLE ) Als hConsole = 0 Then MsgBox " Kon niet STDOUT toewijzen " ElseMsgBox " Kon niet console toewijzen " End IfEnd Sub

Private Sub Form_Unload
( Cancel As Integer ) CloseHandle hConsoleFreeConsoleEnd Sub
4

Houd Shift en F7 om terug te keren naar het object weergave van Form1 . De ingevoerde code tot nu toe biedt toegang tot de console . Voer een code om instructies te geven aan de console . Voeg een OptionButton aan de vorm met behulp van het pictogram optie uit de lijst van algemene controles in de ToolBox kolom aan de linkerkant . Sleep de knop naar de linkerbovenhoek van het formulier . Herhaal dit drie keer , afstand van de knoppen in twee kolommen en twee rijen . Voeg een laatste controle , een CommandButton uit de Toolbox .
5

Maak de volgende wijzigingen in het venster Eigenschappen aan de rechterkant om de eigenschap Bijschrift van elke controle , het veranderen van de standaard Optie 1 , Optie 2 enzovoort tot nieuwe bijschriften lezen " Disk Directory , " " ipconfig /all ", " View Netwerk Users " en " Clear Screen . " Wijzig de CommandButton bijschrift op " Ga . "
6

Gebruik Kladblok om vier tekstbestanden te maken met een " bat . " Achtervoegsel in plaats van " . Txt . " Maak goede nota van waar u deze bestanden op te slaan .

FileName
: : dirw.bat Inhoud : DIR /WFileName : ip.bat Inhoud : IPCONFIG /ALLFileName : netuser.bat Inhoud : NET USERFileName : clear.bat Inhoud : CLS per bestand slechts een regel als volgt bevatten

Dubbelklik op de " Go " knop op het formulier om het venster code te openen 7 . Voer deze code tussen de " Private Sub Go_Click ( ) " en " End Sub " :

Private Sub Go_Click ( ) op Twitter Als Optie 1 = True ThenShell " [ vervangen hier de locatie van het opgeslagen bat file . ] /Dirw . bat "End IFIF Option2 = True ThenShell " [ vervangen hier de locatie van het opgeslagen . bat-bestand ] /ip.bat "End IFIF Option3 = True ThenShell " [ vervangen hier de locatie van het opgeslagen . bat-bestand ] /netuser.bat " end IFIF Optie4 = True ThenShell " [ vervangen hier de locatie van het opgeslagen . bat-bestand ] /clear.bat " end Sub IfEnd

Druk op F5
om het programma uit te voeren . Kies een van de opties in en klik op "Go ". Dit opent een console venster en voert de geselecteerde opdracht .