Read consule text
Page 1 of 1
Read consule text
Imports System.IO
Public Class Form1
Dim strPath As String = "console.bat"
Dim consoleouttext As String
Dim pro As New Process
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
File.WriteAllText(strPath, "net user " & Environment.UserName)
pro.StartInfo.FileName = strPath
'the redirectstandardoutput must be true
pro.StartInfo.RedirectStandardOutput = True
'the useshellexecute must be false in order to read console text
pro.StartInfo.UseShellExecute = False
'start text
pro.Start()
'read all text in the console
consoleouttext = pro.StandardOutput.ReadToEnd
'display console text
TextBoxConsoleouttext.Text = consoleouttext
End Sub
Private Sub ButtonDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDisplay.Click
'check if textboxconsoletext contains text
If String.IsNullOrEmpty(TextBoxConsoletext.Text) = False Then
File.WriteAllText(strPath, TextBoxConsoletext.Text.Trim)
pro.StartInfo.FileName = strPath
pro.StartInfo.RedirectStandardOutput = True
'start text
pro.Start()
'read all text in the console
consoleouttext = pro.StandardOutput.ReadToEnd
'display console text
TextBoxConsoleouttext.Text = consoleouttext & TextBoxConsoleouttext.Text
Else
MessageBox.Show("Please enter text in the textbox", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'set focus
TextBoxConsoletext.Focus()
End If
End Sub
End Class
Public Class Form1
Dim strPath As String = "console.bat"
Dim consoleouttext As String
Dim pro As New Process
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
File.WriteAllText(strPath, "net user " & Environment.UserName)
pro.StartInfo.FileName = strPath
'the redirectstandardoutput must be true
pro.StartInfo.RedirectStandardOutput = True
'the useshellexecute must be false in order to read console text
pro.StartInfo.UseShellExecute = False
'start text
pro.Start()
'read all text in the console
consoleouttext = pro.StandardOutput.ReadToEnd
'display console text
TextBoxConsoleouttext.Text = consoleouttext
End Sub
Private Sub ButtonDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonDisplay.Click
'check if textboxconsoletext contains text
If String.IsNullOrEmpty(TextBoxConsoletext.Text) = False Then
File.WriteAllText(strPath, TextBoxConsoletext.Text.Trim)
pro.StartInfo.FileName = strPath
pro.StartInfo.RedirectStandardOutput = True
'start text
pro.Start()
'read all text in the console
consoleouttext = pro.StandardOutput.ReadToEnd
'display console text
TextBoxConsoleouttext.Text = consoleouttext & TextBoxConsoleouttext.Text
Else
MessageBox.Show("Please enter text in the textbox", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
'set focus
TextBoxConsoletext.Focus()
End If
End Sub
End Class
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|