在VB內運行基於Java控制檯的程序'10

Question

我基本上試圖在vb.net裏面運行一個基於java控制檯的程序並且顯示輸出讓我們說一個正常的文本框並且還有另一個文本框鍵入程序的輸入。是否有可能做到這一點？

Answer 1

你基本上需要創建一個帶有參數的新進程，這個參數是你的文本框的輸入。然後，你可以捕捉程序的輸出，將其存儲在一個變量，並顯示在對話框中。

這裏有一個小片斷：

Dim command As String = "C:\My Dir\MyFile.exe" 
Dim args As String = "MyParam1 MyParam2" 

Dim proc = New Process() With { _ 
    Key .StartInfo = New ProcessStartInfo() With { _ 
    Key .FileName = "program.exe", _ 
    Key .Arguments = args, _ 
    Key .UseShellExecute = False, _ 
    Key .RedirectStandardOutput = True, _ 
    Key .CreateNoWindow = True _ 
    } _ 
} 

proc.Start() 

While Not proc.StandardOutput.EndOfStream 
    Dim line As String = proc.StandardOutput.ReadLine() 
    ' do something with the line 
End While 

Answer 2

下面是一些樣板代碼（確保有txtInput和txtOutput的形式）：

Private m_process As Process 
Private m_encoding_for_program As System.Text.Encoding 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    m_encoding_for_program = System.Text.Encoding.GetEncoding(866) 'Adjust as needed 

    Dim psi As New ProcessStartInfo 
    psi.CreateNoWindow = True 
    psi.UseShellExecute = False 
    psi.FileName = "cmd.exe" 
    psi.RedirectStandardInput = True 
    psi.RedirectStandardError = True 
    psi.StandardErrorEncoding = m_encoding_for_program 
    psi.RedirectStandardOutput = True 
    psi.StandardOutputEncoding = m_encoding_for_program 

    m_process = Process.Start(psi) 
    AddHandler m_process.OutputDataReceived, AddressOf OutputDataReceived 
    AddHandler m_process.ErrorDataReceived, AddressOf OutputDataReceived 'Make different handler if needed. 
    m_process.BeginOutputReadLine() 
    m_process.BeginErrorReadLine() 

End Sub 

Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed 
    m_process.CancelOutputRead() 
    m_process.CancelErrorRead() 
    m_process.Kill() 
End Sub 

Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtInput.KeyUp 
    If e.KeyCode = Keys.Enter Then 
     Dim b = m_encoding_for_program.GetBytes(txtInput.Text) 
     m_process.StandardInput.BaseStream.Write(b, 0, b.Length) 
     m_process.StandardInput.WriteLine() 
    End If 
End Sub 

Private Sub OutputDataReceived(ByVal sender As Object, ByVal e As DataReceivedEventArgs) 
    Me.Invoke(CType(AddressOf Me.ThreadProcSetter, Action(Of Object)), e.Data) 
End Sub 

Private Sub ThreadProcSetter(ByVal text As Object) 
    txtOutput.AppendText(DirectCast(text, String) & ControlChars.NewLine) 
End Sub 

在txtInput輸入命令，然後按回車看結果。確保txtOutput是多行。
添加錯誤需要檢查。