フリーズVBを使わずにIPにpingする方法は？

Question

私は、VBウィンドウ形式でIPにpingをかけるためのpingシステムを作ろうとしています。私が使用している現在のpingシステムでは、テキストボックスにテキストを入力するとアプリケーションがフリーズする傾向があります。私はこれを行うより良い方法があると確信しています。

私が間違っていたアイデアはありますか？

タイマー：

Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick 
    If Timer4.Enabled = True Then 
     Dim pingreq As Ping = New Ping() 
     Dim rep As PingReply = pingreq.Send(NsTextBox1.Text) 
     NsTextBox4.Text = NsTextBox4.Text + Environment.NewLine + ("Reply from " + NsTextBox1.Text + ":" + NsTextBox2.Text + "| time= " + rep.RoundtripTime.ToString() + "ms") 
     If rep.RoundtripTime = 0 Then 
      Timer4.Enabled = False 
     End If 
    End If 
End Sub 

ボタン：

Private Sub NsButton2_Click(sender As Object, e As EventArgs) Handles NsButton2.Click 

    Timer4.Enabled = True 

End Sub 

Answer 1

あなたはタイマーを取り除くと、ちょうどこのように、右のボタンハンドラからあなたのpingを実行したタスクを待っていますができます

Private Async Sub NsButton2_Click(sender As Object, e As EventArgs) Handles NsButton2.Click 
    Dim t = Task(Of PingReply).Run(
     Function() 
      Dim pingreq As Ping = New Ping() 
      Dim rep As PingReply = pingreq.Send(NsTextBox1.Text) 
      Return rep 
     End Function) 

    Dim result = Await t 

    NsTextBox4.Text = NsTextBox4.Text + Environment.NewLine + 
     ("Reply from " + NsTextBox1.Text + ":" + NsTextBox2.Text + 
     "| time= " + result.RoundtripTime.ToString() + "ms") 
End Sub