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