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

■35497 / 2階層)  VB.NETからcmdでpingを実行した時の結果
□投稿者/ ぱんだ 一般人(3回)-(2023/08/23(Wed) 00:12:12)
  • アイコン
    KOZさん
    
    度々すみません。
    以下のコードと添付写真の通り作成してみたのですが、
    例えば添付写真のように途中でキャンセルする方法はありますか?
    実行中は他のボタンも押せなくなってしまいます。
    何度も申し訳ありませんが、可能でしたらサンプルコードを教えて
    いただけましたら幸いです。
    何卒よろしくお願いいたします。
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            'Process.StandardOutput は StreamReader です。
            'EndOfStream プロパティが True になるまで ReadLine を繰り返してください。
    
            Using p As New Process
                p.StartInfo.FileName = Environment.GetEnvironmentVariable("ComSpec")
                p.StartInfo.UseShellExecute = False
                p.StartInfo.RedirectStandardOutput = True
                p.StartInfo.RedirectStandardInput = False
                p.StartInfo.CreateNoWindow = True
                'p.StartInfo.Arguments = "/c ping 127.0.0.1"
                p.StartInfo.Arguments = "/c " & TextBox2.Text
                p.Start()
                Dim reader = p.StandardOutput
                Do Until reader.EndOfStream
                    Dim buffer = reader.ReadLine()
                    'Console.WriteLine(buffer)
                    Debug.Print(buffer)
                    TextBox1.Text = TextBox1.Text & vbCrLf & buffer
                    Me.Refresh()
                Loop
                p.WaitForExit()
            End Using
            'Console.WriteLine("何かキーを押すと終了します。")
            'Console.ReadKey()
        End Sub

639×389 => 250×152
イメージ
2023-08-23.png
/11KB
違反を報告
削除キー/

前の記事(元になった記事) 次の記事(この記事の返信)
←Re[1]: VB.NETからcmdでpingを実行した時の結果 /KOZ →Re[3]: VB.NETからcmdでpingを実行した時の結果 /KOZ
 
上記関連ツリー

Nomalアイコン VB.NETからcmdでpingを実行した時の結果 / ぱんだ (23/08/22(Tue) 19:38) #35494
Nomalアイコン Re[1]: VB.NETからcmdでpingを実行した時の結果 / KOZ (23/08/22(Tue) 21:00) #35495
  ├Nomalアイコン Re[2]: VB.NETからcmdでpingを実行した時の結果 / ぱんだ (23/08/22(Tue) 23:54) #35496
  └Nomalアイコン VB.NETからcmdでpingを実行した時の結果 / ぱんだ (23/08/23(Wed) 00:12) #35497 2023-08-23.png/11KB ←Now
    └Nomalアイコン Re[3]: VB.NETからcmdでpingを実行した時の結果 / KOZ (23/08/23(Wed) 05:54) #35498
      └Nomalアイコン Re[4]: VB.NETからcmdでpingを実行した時の結果 / ぱんだ (23/08/23(Wed) 21:05) #35501

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/


- Child Tree -