Option Strict Off
Imports System.Runtime.InteropServices
 
Namespace Icmp
    Public Class Ping
 
#Region "api"
        'Icmp constants converted from
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisd
        ' k/wmi/win32_pingstatus.asp
 
        Private Const ICMP_SUCCESS As Integer = 0
        Private Const ICMP_STATUS_BUFFER_TO_SMALL As Short = 11001 'Buffer Too 
        ' Small
        Private Const ICMP_STATUS_DESTINATION_NET_UNREACH As Short = 11002 _
          'Destination Net Unreachable
        Private Const ICMP_STATUS_DESTINATION_HOST_UNREACH As Short = 11003 _
        'Destination Host Unreachable
        Private Const ICMP_STATUS_DESTINATION_PROTOCOL_UNREACH As Short = 11004 _
        'Destination Protocol Unreachable
        Private Const ICMP_STATUS_DESTINATION_PORT_UNREACH As Short = 11005 _
        'Destination Port Unreachable
        Private Const ICMP_STATUS_NO_RESOURCE As Short = 11006 'No Resources
        Private Const ICMP_STATUS_BAD_OPTION As Short = 11007 'Bad Option
        Private Const ICMP_STATUS_HARDWARE_ERROR As Short = 11008 'Hardware 
        ' Error
        Private Const ICMP_STATUS_LARGE_PACKET As Short = 11009 'Packet Too Big
        Private Const ICMP_STATUS_REQUEST_TIMED_OUT As Short = 11010 'Request 
        ' Timed Out
        Private Const ICMP_STATUS_BAD_REQUEST As Short = 11011 'Bad Request
        Private Const ICMP_STATUS_BAD_ROUTE As Short = 11012 'Bad Route
        Private Const ICMP_STATUS_TTL_EXPIRED_TRANSIT As Short = 11013 _
          'TimeToLive Expired Transit
        Private Const ICMP_STATUS_TTL_EXPIRED_REASSEMBLY As Short = 11014 _
        'TimeToLive Expired Reassembly
        Private Const ICMP_STATUS_PARAMETER As Short = 11015 'Parameter Problem
        Private Const ICMP_STATUS_SOURCE_QUENCH As Short = 11016 'Source Quench
        Private Const ICMP_STATUS_OPTION_TOO_BIG As Short = 11017 'Option Too 
        ' Big
        Private Const ICMP_STATUS_BAD_DESTINATION As Short = 11018 'Bad 
        ' Destination
        Private Const ICMP_STATUS_NEGOTIATING_IPSEC As Short = 11032 _
          'Negotiating IPSEC
        Private Const ICMP_STATUS_GENERAL_FAILURE As Short = 11050 'General 
        ' Failure
 
        Private Const WINSOCK_ERROR As String = "Windows Sockets not responding" & _
          "correctly."
        Private Const INADDR_NONE As Integer = &HFFFFFFFF
        Private Const WSA_SUCCESS As Short = 0
        Private Const WS_VERSION_REQD As Integer = &H101S
 
        'Clean up sockets.
        'http://support.microsoft.com/default.aspx?scid=kb;EN-US;q154512
 
        Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Integer
 
        'Open the socket connection.
        'http://support.microsoft.com/default.aspx?scid=kb;EN-US;q154512
        Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal _
          wVersionRequired As Integer, ByRef lpWSADATA As WSADATA) As Integer
 
        'Create a handle on which Internet Control Message Protocol (ICMP) 
        ' requests can be issued.
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesd
        ' kr/htm/_wcesdk_icmpcreatefile.asp
        Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Integer
 
 
        'Close an Internet Control Message Protocol (ICMP) handle that 
        ' IcmpCreateFile opens.
        'http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wcesd
        ' kr/htm/_wcesdk_icmpclosehandle.asp
 
        Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal _
          IcmpHandle As Integer) As Integer