コマンドプロンプトの出力をテキストボックスへ表示する方法について
コマンドプロンプトの出力をテキストボックスへ表示する方法について
現在、VBを使ったプログラミングを行っています。
以下に質問内容を示しますので、回答を宜しくお願いします。
＜環境＞
OS:Windows XP
開発ソフト:VB2008 express edition
質問：コマンドプロンプトの出力をテキストボックスへ表示する方法について
リダイレクトを使って、コマンドプロンプトの出力結果をVBのフォーム上(テキストボックス)
に表示したいのですが、常に出力が更新されるコマンドの場合、実行後にフリーズが起きてしまいます。
以下の例ではpingを送っていますが、テキストボックスには常にコマンドの出力結果が更新されません。(実行が終わるまで待つ必要がある)
理想としては、pingコマンドを実行したときの結果が、そのままテキストボックス上にリアルタイムに表示されることです。
リアルタイムにテキストボックスにコマンドプロンプトの結果を表示するには、
どのような設定が必要になるのでしょうか？
ご教授願います。宜しくお願いします。
----- 以下サンプルソース -----
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim results As String
Dim psi As New System.Diagnostics.ProcessStartInfo()
'ComSpecのパスを取得する
psi.FileName = System.Environment.GetEnvironmentVariable("ComSpec")
'出力を読み取れるようにする
psi.RedirectStandardInput = False
psi.RedirectStandardOutput = True
psi.UseShellExecute = False
'ウィンドウを表示しないようにする
psi.CreateNoWindow = True
'コマンドラインを指定（"/c"は実行後閉じるために必要）
psi.Arguments = "/c ping 192.168.1.1"
'起動
Dim p As System.Diagnostics.Process = System.Diagnostics.Process.Start(psi)
'出力を読み取る
results = p.StandardOutput.ReadToEnd
'出力された結果を表示
TextBox1.Text = results
'WaitForExitはReadToEndの後である必要がある
'(親プロセス、子プロセスでブロック防止のため)
p.WaitForExit()
End Sub
End Class
