Comment communiquer avec la console dans Visual Basic

Ouvrez Visual Basic et lancer un nouveau projet , en utilisant le modèle " standard EXE » qui se trouve sous "Fichier", "Nouveau projet " . Cliquez sur " Projet " dans le menu en haut et " Ajouter un module " dans la liste déroulante.
2

Tapez les lignes suivantes dans la fenêtre Module1 , qui, selon Microsoft contient le seul code qui permettra communication directe avec la console dans Visual Basic . Le trait de soulignement à la fin de certaines lignes indique que le texte sur la ligne suivante est un prolongement de la ligne actuelle . Ne comprend pas le caractère de soulignement lorsque vous entrez ce code , il suffit de continuer à taper sur une seule ligne:

Option ExplicitDeclare Fonction AllocConsole Lib " kernel32 " () As LongDeclare Fonction FreeConsole Lib " kernel32 " () As LongDeclare Fonction CloseHandle Lib " kernel32 " ( ByVal hObject As Long ) _En LongDeclare Fonction GetStdHandle Lib" kernel32 " ( ByVal _nStdHandle As Long ) Comme LongDeclare Fonction WriteConsole Lib" kernel32 " Alias" WriteConsoleA " _ByVal hConsoleOutput As Long , lpBuffer As Any , _nNumberOfCharsToWrite ByVal As Long , lpNumberOfCharsWritten As Long , _lpReserved As Any ) Comme LongPublic Const STD_OUTPUT_HANDLE = -11 &
3

Double -cliquez sur Form1 dans la liste de projet sur le droit d'ouvrir ce formulaire. Cliquez sur " View" puis "Code " de la liste . Entrez les lignes suivantes:

hConsole As LongPrivate Sub Form_Load () Si AllocConsole () ThenhConsole = GetStdHandle ( STD_OUTPUT_HANDLE ) Si hConsole = 0 Then MsgBox " Impossible d'allouer STDOUT " ElseMsgBox " Impossible d'allouer console " End IfEnd Sous

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

maintenez la touche Maj et F7 pour revenir à la vue des objets de Form1. Le code entré jusqu'ici fournit l'accès à la console . Entrez un code à donner des instructions à la console . Ajouter un OptionButton à la forme en utilisant l'icône d'option de la liste des contrôles généraux dans la colonne de boîte à outils sur la gauche. Faites glisser le bouton en haut à gauche du formulaire. Répétez cette opération trois fois , l'espacement des boutons dans deux colonnes et deux lignes . Ajouter un dernier contrôle , un bouton de commande de la boîte à outils .
5

Faire les changements suivants dans le panneau Propriétés sur le droit à la propriété Caption de chaque contrôle , l'évolution de la valeur par défaut Option 1 , Option 2 , et ainsi de suite pour nouvelles légendes de lecture «Répertoire de disque ", " ipconfig /all ", " Afficher les utilisateurs du réseau " et " Effacer l'écran . " Changer la légende de commande à «Go».
6

Utilisez le Bloc-notes pour créer quatre fichiers texte avec une « chauve-souris ». Suffixe au lieu de « . Txt ». Notez bien où vous enregistrez ces fichiers. Chaque fichier contient une seule ligne comme suit :

FileName : Voir dirw.bat : DIR /WFileName : ip.bat Contenu: ipconfig /ALLFileName : netuser.bat Contenu: USERFileName NET : Voir clear.bat : CLS
7

Double-cliquez sur le bouton " Go" sur le formulaire pour ouvrir la fenêtre de code . Entrez ce code entre les " Private Sub Go_Click ()" et "End Sub " :

Private Sub Go_Click () Si l'option 1 = True ThenShell " [ substituer ici l'emplacement du fichier bat sauvé. ] /Dirw . bat " Fin IFIF Option 2 = True ThenShell " [ substituer ici l'emplacement du fichier bat sauvé. ] /ip.bat "Fin IFIF Option3 = True ThenShell " [ substituer ici l'emplacement du fichier bat sauvé. ] /netuser.bat " fin IFIF Option4 = True ThenShell " [ substituer ici l'emplacement du fichier bat sauvé. ] /clear.bat " End Sub IfEnd

Appuyez sur F5 pour exécuter le programme. Choisissez l'une des options et cliquez sur «Go». Cela ouvre une fenêtre de la console et exécute la commande sélectionnée.