edito
ya hice uno pero esta muy lento tarda mucho en terminar de hacer los ping
Código
Imports System.Net
Public Class Form1
Dim a As Integer
Dim b As Integer
Dim i As Integer
Dim t As Integer
Dim eco As New System.Net.NetworkInformation.Ping
Dim respuesta As System.Net.NetworkInformation.PingReply
Dim algo As System.Net.NetworkInformation.IPInterfaceProperties
Dim ip As IPAddress
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = Val(TextBox2.Text)
a = Val(TextBox3.Text)
t = 0
For i = a To b
TextBox4.Text = i
ip = IPAddress.Parse("192.168.1." + TextBox4.Text)
respuesta = eco.Send(ip)
If respuesta.Status = NetworkInformation.IPStatus.Success Then
TextBox1.Text = TextBox1.Text + "Respuesta desde: " & respuesta.Address.ToString + vbCrLf
Else
TextBox1.Text = TextBox1.Text + "Sin Respuesta" + vbCrLf
End If
Next
End Sub
End Class


 
  




 Autor
 Autor
		




 En línea
									En línea
								

 
						 
						