Private Sub Btn_Ping_Click(sender As Object, e As EventArgs) Handles Btn_Ping.Click
If CType(txtBox_ping_start.Text, Integer) < 1 Or CType(txtBox_ping_end.Text, Integer) > 254 Or CType(txtBox_ping_start.Text, Integer) > CType(txtBox_ping_end.Text, Integer) Then
MessageBox.Show("Ping IP必须是2~254之间, 且!", "IP填写错误!")
txtBox_ping_start.Text = "2"
txtBox_ping_end.Text = "254"
Exit Sub
End If
Try
Dim ping_ok_number As Integer = 0
Lbl_ping_ok_num.Text = "0"
For i As Integer = CType(txtBox_ping_start.Text, Integer) To CType(txtBox_ping_end.Text, Integer) Step 1
Dim m_ping As New System.Net.NetworkInformation.Ping
Dim m_PingReply As System.Net.NetworkInformatio