Ahoj. Programuji aplikaci, jenž spouští v CMD program. Potřebuji, aby se výstup z CMD tahal do RichTextBoxu. Teď mám něco takového:
Private Sub run_Click(sender As System.Object, e As System.EventArgs) Handles run.Click
Try
Dim proc As New ProcessStartInfo("cmd")
proc.RedirectStandardInput = True
proc.RedirectStandardOutput = True
proc.UseShellExecute = False
srv = Process.Start(proc)
srv.StandardInput.WriteLine("""C:\Program Files\Java\jre7\bin\java.exe"" -Xmx3072m -Xms1024m -jar D:\test\PROGRAM.jar -nojline")
Catch ex As Exception
End Try
End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
RichTextBox1.Text = srv.StandardOutput.ReadToEnd()
End Sub
- při každém tiku timeru by se měl přečíst obsah console a vepsat do RichTextBoxu. Ale v tomto případě se to zacyklí, protože čeká na konec streamu. Jak jej mám tedy ukončit, případně jak to předělat jinak, pokud to jde? Díky moc.
|