Imports System.Net
Imports System.Net.NetworkInformation
 
Public Class IPTest
 
    Private WithEvents mPing As New Ping
    Private mTimeOut As Integer = 200
    Private mIPNetAddress As String
    Private mNetwork As Integer
    Private mWeiter As Boolean 
 
    ' Eigenschaft Network bestimmt den Netzwerkbereich
    Public Property Network() As Integer
        Get
            Return mNetwork
        End Get
        Set(ByVal value As Integer)
            mIPNetAddress = "192.168." & value & "."
            mNetwork = value
        End Set
    End Property
 
    'Gibt den kompletten Netzwerknamen aus
    Public ReadOnly Property IPNetAddress() As String
        Get
            Return mIPNetAddress
        End Get
    End Property
 
    'Standardkonstruktor
    Public Sub New()
        mIPNetAddress = "192.168.1."
        mNetwork = 1
    End Sub
 
    'Überladener Konstruktor
    Public Sub New(ByVal network As Integer)
        mIPNetAddress = "192.168." & network & "."
        mNetwork = network
    End Sub
 
    Public Sub Main()
        For n As Integer = 1 To 255
            mWeiter = False
            mPing.SendAsync(mIPNetAddress & n, mTimeOut)
            'Schleife zum Pausieren
            While (mWeiter = False)
            End While
        Next n
    End Sub
 
    'Eventhandler bestimmt die Textausgabe und soll beim Auslösen die 
    ' While-Schleife von Sub-Main mit Hilfe von mWeiter beenden
    Private Sub PingComplete(ByVal sender As Object, ByVal e As _
      System.Net.NetworkInformation.PingCompletedEventArgs) Handles _
      mPing.PingCompleted
        Dim sStatus As PingReply = e.Reply
 
        mWeiter = True
        If sStatus.Status = IPStatus.Success Then
            Console.WriteLine("IP: " & sStatus.Address.ToString)
            Console.WriteLine("Verzögerung: " & sStatus.RoundtripTime & "ms" & _
              vbCrLf)
        ElseIf sStatus.Status = IPStatus.TimedOut Then
            Console.WriteLine("Timeout für " & sStatus.Address.ToString)
        End If
    End Sub
 
End Class
 
Module Module1
 
    Sub Main()
 
        Dim test1 As New IPTest(1)
        test1.Main()
 
    End Sub
 
End Module