Public Class Form1
    Inherits System.Windows.Forms.Form
    Public Declare Function netPingIP Lib "vbarchiv.dll" (ByVal sAddress As _
      String, ByRef Reply As ICMP_ECHO_REPLY) As Long
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button7.Click
        Dim icmp As ICMP_ECHO_REPLY
        Dim uStatus As Long
        uStatus = netPingIP(netHostToIP("www.vbarchiv.net"), icmp)
        If uStatus <> -1 Then
            MsgBox("Ping-Ergebnis: " & netEvalPingResponse(icmp.Status))
        End If
    End Sub
End Class

Public Type ICMP_ECHO_REPLY
   address         As Long                  'IP-Adresse in Form einer 
   ' IPADDR-Struktur
   Status          As Long                  'Status für -> netEvalPingResponse
   RoundTripTime   As Long                  'TripTime in Millisekunden
   DataSize        As Long                  'Antwortgröße in Byte
   Reserved        As Integer               'Reserviert
   ptrData         As Long                  'Zeiger zu den Antwortdaten
   Options         As IP_OPTION_INFORMATION 'Antwortoptionen
   Data            As String * 250          'Daten
End Type

Gru?, Stefan

Option Strict On
Imports System.Net
Imports System.Net.Sockets
Imports System.Runtime.InteropServices
 
Public Class csNet
 
    Public Declare Function netPingIP Lib "vbarchiv.dll" (ByVal sAddress As _
      String, ByRef Reply As ICMP_ECHO_REPLY) As Long
    Public Declare Function netEvalPingResponse Lib "vbarchiv.dll" (ByVal _
    nPingStatus As Long) As String
 
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
    Public Structure ICMP_ECHO_REPLY
        Public Address As Integer
        Public Status As ICMPStatusEnum
        Public RoundTripTime As Integer
        Public DataSize As Short
        Public Reserved As Short
        Public DataPtr As IntPtr
        Public Options As ICMP_OPTIONS
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=250)> _
        Public Data As String
    End Structure
 
    Public Enum ICMPStatusEnum
        Success = 0
        BufferTooSmall = 11001 'Buffer Too Small 
        DestinationNetUnreachable = 11002 'Destination Net Unreachable 
        DestinationHostUnreachable = 11003 'Destination Host Unreachable 
        DestinationProtocolUnreachable = 11004 'Destination Protocol Unreachable 
        DestinationPortUnreachable = 11005 'Destination Port Unreachable 
        NoResource = 11006 'No Resources 
        BadOption = 11007 'Bad Option 
        HardwareError = 11008 'Hardware Error 
        LargePacket = 11009 'Packet Too Big 
        RequestTimedOUT = 11010 'Request Timed Out 
        BadRequest = 11011 'Bad Request 
        BadROUTE = 11012 'Bad Route 
        TtlExpiredInTransit = 11013 'TimeToLive Expired Transit 
        TtlExpiredInReassembly = 11014 'TimeToLive Expired Reassembly 
        Parameter = 11015 'Parameter Problem 
        SourceQuench = 11016 'Source Quench 
        OptionTooBig = 11017 'Option Too Big 
        BadDestination = 11018 'Bad Destination 
        NegotiatingIPSEC = 11032 'Negotiating IPSEC 
        GeneralFailure = 11050 'General Failure 
    End Enum
 
    <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi)> _
    Public Structure ICMP_OPTIONS
        Public Ttl As Byte
        Public Tos As Byte
        Public Flags As Byte
        Public OptionsSize As Byte
        Public OptionsData As IntPtr
    End Structure
 
End Class

        Dim icmp As csNet.ICMP_ECHO_REPLY
        Dim uStatus As Long
        uStatus = csNet.netPingIP("192.168.xxx.xxx", icmp)
        If uStatus <> -1 Then
            MsgBox("Ping-Ergebnis: " & csNet.netEvalPingResponse(icmp.Status))
        End If