User LoL Posted September 29, 2012 at 12:23 AM Report #476996 Posted September 29, 2012 at 12:23 AM Como faço pra executar um comando, "ipconfig" por exemplo no cmd,atraves de uma aplicação em vb.net? e depois mostrar os resultados do cmd,em uma richtextbox ou em uma listbox ?
renafi Posted September 29, 2012 at 05:10 AM Report #477004 Posted September 29, 2012 at 05:10 AM Uma coisa parecida com esta: Dim myProcess As Process = New Process Dim s As String myProcess.StartInfo.FileName = "c:\windows\system32\cmd.exe" myProcess.StartInfo.UseShellExecute = False myProcess.StartInfo.CreateNoWindow = True myProcess.StartInfo.RedirectStandardInput = True myProcess.StartInfo.RedirectStandardOutput = True myProcess.StartInfo.RedirectStandardError = True myProcess.Start() Dim sIn As System.IO.StreamWriter = myProcess.StandardInput Dim sOut As System.IO.StreamReader = myProcess.StandardOutput Dim sErr As System.IO.StreamReader = myProcess.StandardError sIn.AutoFlush = True sIn.Write("ipconfig" & System.Environment.NewLine) sIn.Write("exit" & System.Environment.NewLine) s = sOut.ReadToEnd() If Not myProcess.HasExited Then myProcess.Kill() End If cmdOutputTextBox.Text = s cmdOutputTextBox.Visible = True sIn.Close() sOut.Close() sErr.Close() myProcess.Close() Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist
User LoL Posted September 29, 2012 at 12:37 PM Author Report #477035 Posted September 29, 2012 at 12:37 PM é bem isto. eu tentei fazer o resultado ficar em uma listbox,assim ListBox1.Items.Add(s) mas preencheu apenas a primeira linha. oque eu queria fazer é. colocar o resultado linha por linha,assim como fica no richtextbox,e depois colocar um botao que mostrasse apenas a terceira linha,por exemplo,e apagasse as outras.
renafi Posted September 29, 2012 at 07:53 PM Report #477070 Posted September 29, 2012 at 07:53 PM Então com o objecto sOut usas o procedimento ReadLine dentro de um ciclo para ires avançando linha a linha e enviar para a listbox Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist
User LoL Posted September 29, 2012 at 11:35 PM Author Report #477096 Posted September 29, 2012 at 11:35 PM Mudei,mas agora só adiciona a primeira linha,olha as partes do codigo que eu mudei,não sei se esta certo assim. s = sOut.ReadLine() cmdOutputTextBox.Items.Add(s)
User LoL Posted September 30, 2012 at 12:12 AM Author Report #477104 Posted September 30, 2012 at 12:12 AM Mudei,mas agora só adiciona a primeira linha,olha as partes do codigo que eu mudei,não sei se esta certo assim. s = sOut.ReadLine() cmdOutputTextBox.Items.Add(s) So estou conseguindo uma linha de cada vez,nao consigo inserir todas em ordem.
Hitmanpt Posted October 6, 2012 at 12:08 AM Report #477963 Posted October 6, 2012 at 12:08 AM Tenta usar o ciclo for each... Se não estiveres a conseguir diz qualquer coisa que eu tento fazer-te o código mas á 1:07 da manhã não estou com paciencia
User LoL Posted October 10, 2012 at 04:13 AM Author Report #478515 Posted October 10, 2012 at 04:13 AM nao consegui :\ passei alguns dias me dedicando a isso mas nao saiu nada
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now