VB.net VS2013 Visaul basic Ping程序源码



   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