Imports System
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
 
Public Class clsPing
    Private msIPAddress As String
    Private msMessage As String
    Private miPort As Integer = 80
 
    Public Property IPAddress() As String
        Get
            Return msIPAddress
        End Get
        Set(ByVal Value As String)
            msIPAddress = Value
        End Set
    End Property
 
    Public Property Port() As Integer
        Get
            Return miPort
        End Get
        Set(ByVal Value As Integer)
            miPort = Value
        End Set
    End Property
 
    Public Property Message() As String
        Get
            Return msMessage
        End Get
        Set(ByVal Value As String)
            msMessage = Value.Trim
        End Set
    End Property
 
    Public Function Ping() As Boolean
        Dim mySocket As Socket = Nothing
        Dim hostEndPoint As IPEndPoint
        Dim hostAddress As IPAddress = Nothing
 
        'TODO: Hier noch IPAdresse als Object laden siehe Forum im Internet
        'hostAddress = 
        hostAddress = System.Net.IPAddress.Parse(msIPAddress)
 
        hostEndPoint = New IPEndPoint(hostAddress, miPort)
        mySocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
          ProtocolType.Tcp)
        Try
            ' Connect to the host using its IPEndPoint.
            mySocket.Connect(hostEndPoint)
 
        Catch ex As Exception
            msMessage = ex.Message
        End Try
        ' Get DNS host information.
        'Dim hostInfo As IPHostEntry = Dns.Resolve(IPAddress)
        ' Get the DNS IP addresses associated with the host.
        'Dim IPaddresses As IPAddress() = hostInfo.AddressList
 
        If mySocket.Connected Then
            mySocket.Close()
            msMessage = "Replay from " & msIPAddress
            Return True
        Else
            mySocket.Close()
            If msMessage.Length = 0 Then
                msMessage = "Request timed out!"
            Else
                msMessage = msMessage & vbNewLine & "Request timed out!"
            End If
            Return False
        End If
    End Function
 
End Class