EXEからDOSコマンドを実行、結果（DOSプロンプトに表示される内容）を取得するには (ID:114934)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

フォームは必ず誰かが New しないと実体化できません。
ただし、この『誰か』がプログラマ(彼方)とは限りません。
場合によっては、設定の変更などのタイミングで[VB.NET]が
自動で作成することもあると思います。

新規プロジェクトで試して頂けましたか？デフォルトで作成される
Form1 に
ip              ：IPアドレス入力テキストボックス
txtPingRslt ：ping結果出力テキストボックス
cmdPing      ：実行ボタン
のみを配置し、デザイン画面で cmdPing をダブルクリックして
cmdPing_Click 関数を自動生成し、以下のコードのみ実行しても
フォームは表示されますか？また、表示されるのは部品(ボタンや
テキストボックス)の無い新規フォームですか？フォームのタイトル
(フォームの Name プロパティ。Form1 のデフォルトは Form1 のはず
です)には何と表示されていますか？

Private Sub cmdPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPing.Click
        Dim p As New Diagnostics.Process
        With p.StartInfo
            .WindowStyle = ProcessWindowStyle.Hidden    ' プロセスを起動するときに使用するウィンドウの状態
            .FileName = "PING"                          ' 起動するアプリケーションまたはドキュメント
            .Arguments = Me.ip.Text                     ' コマンド ライン引数のセット
            .RedirectStandardOutput = True              ' StandardOutput メンバに書き込むかどうか？
            .UseShellExecute = False                    ' プロセスの起動にオペレーティング システムのシェルを使用するかどうか？
            .CreateNoWindow = True                      ' プロセスを新しいウィンドウで起動するかどうか？
        End With
        p.Start()
        p.WaitForExit(1000)
        ' 標準出力
        'Trace.WriteLine(p.StandardOutput.ReadToEnd())
        With Me.txtPingRslt
            .Multiline = True
            .Text = p.StandardOutput.ReadToEnd()
        End With

' プロセス破棄
        p.Dispose()
    End Sub

←解決時は質問者本人がここをチェックしてください。

戻る