DOBON.NETプログラミング道掲示板

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 発言ランク ファイル一覧 検索 過去ログ

No34773 の記事


■34773 / ) 　Re[3]: コンソールではなくテキストボックスに文字列を出力したい
□投稿者/ 魔界の仮面弁士 大御所(1351回)-(2021/06/09(Wed) 14:17:04)
  • アイコン■No34772に返信(スイカさんの記事)
    > 何やらすごい難しそうな処理を追加しないといけないんですね。
    多少煩雑なのは、エラー出力と標準出力を分けて表現しているのが一因。

    No34645 のサンプルで言えば、
    　TextBox1.Text = Environment.GetEnvironmentVariable("ComSpec")
    　TextBox2.Text = "/c ping 192.168.0.1"
    にした状態で Button1 を押せば、
    結果が黒背景の RichTextBox1 に表示されます。

    通常応答は白文字、エラー応答は赤背景に黄色文字。


    しかし、目的が PING だけなのであれば、
    Ping クラスを使った方が手っ取り早いですよ。

    Using P As New System.Net.NetworkInformation.Ping()
    　Dim r = P.Send("www.yahoo.co.jp")
    　If r.Status = System.Net.NetworkInformation.IPStatus.Success Then
    　　TextBox1.Text = $"Reply from {r.Address}:bytes={r.Buffer.Length} time={r.RoundtripTime}ms TTL={r.Options.Ttl}"
    　Else
    　　TextBox1.Text = "失敗: " & r.Status
    　End If
    End Using
    https://dobon.net/vb/dotnet/internet/ping.html
違反を報告
返信 削除キー/

Mode/　 Pass/

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 発言ランク ファイル一覧 検索 過去ログ

- Child Tree -