Visual Basic não inclui uma maneira simples de se comunicar diretamente com o console , a tela preta você acessa no Vista , digitando "cmd" na caixa "Start Search" ou executar o "Prompt de comando " link " Acessórios Programa ". Microsoft faz fornecer instruções para uma envolvido solução alternativa , que é descrito neste exemplo, usando alguns dos comandos específicos autorizados . Mesmo assim , a comunicação é limitada , sem conhecimento de programação avançada e rotinas de programação complicadas. Instruções
1

Abra o Visual Basic e iniciar um novo projeto, usando o modelo " Standard EXE " encontrado em "Arquivo", "New Project ". Clique em " Project" no menu superior e " Add Module " na lista drop-down.
2

Digite as seguintes linhas na janela de Module1 , que de acordo com a Microsoft contêm o único código que permitirá comunicação direta com o console no Visual Basic. O sublinhado no final de algumas linhas indica que o texto na próxima linha é uma continuação da linha atual . Não inclua o sublinhado ao entrar esse código , basta continuar a digitar em uma linha:

Opção ExplicitDeclare Função AllocConsole Lib " kernel32 " () As Função LongDeclare FreeConsole Lib " kernel32 " () As Função LongDeclare CloseHandle Lib " kernel32 " (ByVal hObject As Long ) _AS LongDeclare Função GetStdHandle Lib" kernel32 " (ByVal _nStdHandle As Long ) em função LongDeclare WriteConsole Lib" kernel32 " Alias ​​" WriteConsoleA " _ByVal hConsoleOutput As Long , lpBuffer As Any , ByVal _nNumberOfCharsToWrite As Long , lpNumberOfCharsWritten As Long , _lpReserved as Any ) Como LongPublic Const STD_OUTPUT_HANDLE = -11 &
3

clique duas vezes em Form1 na lista de projetos à direita para abrir o formulário . Clique em " Exibir" e em seguida "Código" da lista. Entre essas linhas :

Dim hConsole como LongPrivate Sub Form_Load () Se AllocConsole () = ThenhConsole GetStdHandle ( STD_OUTPUT_HANDLE ) Se hConsole = 0 Then MsgBox "Não foi possível alocar STDOUT " ElseMsgBox " Não foi possível alocar console" Fim IfEnd Sub

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

Mantenha a tecla Shift e F7 para retornar à visualização de objetos de Form1. O código inseridas até o momento dá acesso ao Console. Digite um código para dar instruções para o console. Adicionar um OptionButton para o formulário usando o ícone de opção na lista de controles gerais na coluna ToolBox à esquerda. Arraste o botão no canto superior esquerdo do formulário. Repita esta ação mais três vezes , o espaçamento entre os botões em duas colunas e duas linhas. Adicionar um último controle, um botão de comando da caixa de ferramentas.
5

Faça as seguintes alterações no painel Propriedades sobre o direito à propriedade Caption de cada controle , mudando o padrão Option1 , Option2 e assim por diante para novas legendas leitura "Diretório de Disco", "ipconfig /all ", "Os usuários da Rede " e " Limpar tela". Alterar a legenda CommandButton para " Go".
6

Use o bloco de notas para criar quatro arquivos de texto com um sufixo " . Bat" em vez de " . Txt ". Anote cuidadosamente onde você salvar esses arquivos . Cada arquivo conterá apenas uma linha da seguinte forma:

Matrícula: Conteúdo dirw.bat : DIR /WFileName : ip.bat Conteúdo : ipconfig /ALLFileName : netuser.bat Conteúdo: NET USERFileName : clear.bat Conteúdo: CLS
7

Dê um duplo clique no botão " Go" no formulário para abrir a janela de código. Digite o código entre o " Private Sub Go_Click () " e " End Sub " :

Private Sub Go_Click () Se Option1 = True ThenShell " [ substituto aqui o local do arquivo bat salvo. ] /Dirw . bat "End IFIF Option2 = True ThenShell " [ substituto aqui o local do arquivo bat salvo. ] /ip.bat "End IFIF Option3 = True ThenShell " [ substituto aqui o local do arquivo bat salvo. ] /netuser.bat " End IFIF Opção4 = True ThenShell " [ substituto aqui o local do arquivo bat salvo. ] /clear.bat " End Sub IfEnd

Pressione F5 para executar o programa. Escolha uma das opções e clique em " Go". Isso abre uma janela do console e executa o comando selecionado.