Imports System.Net
Imports System.Net.NetworkInformation
 
Public Class myPing
 
   Private Class DoPingAsync
      Private WithEvents m_Ping As New Ping
 
      Public Event PingCompleted(ByVal sender As Object, ByVal e As _
        System.Net.NetworkInformation.PingCompletedEventArgs)
 
      Public Sub New(ByVal IP As String)
         m_Ping.SendAsync(IP, IP)
      End Sub
 
      Private Sub m_Ping_PingCompleted(ByVal sender As Object, ByVal e As _
        System.Net.NetworkInformation.PingCompletedEventArgs) Handles _
        m_Ping.PingCompleted
         RaiseEvent PingCompleted(sender, e)
      End Sub
   End Class
 
 
 
   Public Sub DoPing()
      For x As Integer = 2 To 20
         Dim p As DoPingAsync
         p = New DoPingAsync("10.1.30." & x.ToString)
         AddHandler p.PingCompleted, AddressOf PingCompleted
      Next
   End Sub
 
   Private Sub PingCompleted(ByVal sender As Object, ByVal e As _
     System.Net.NetworkInformation.PingCompletedEventArgs)
      Console.WriteLine("IP: {0} ,  State: {1}", e.UserState.ToString, _
      e.Reply.Status.ToString)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control