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

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/


- Child Tree -