VBÄ£Äâ·¢ËÍICMPÊý¾Ý°ü(´úÂëÖ±½Ó¿ÉÓÃ)

'*********************************************************************
'         ³ÌÐòÉè¼Æ ºÓÄϹ¤Òµ´óѧÐÅÏ¢Íø-http://www.hautbbs.com.cn
'±¾Õ¾ÒÔ·½±ãÔÚУʦÉúÐÅÏ¢½»Á÷Ϊ×ÚÖ¼£¬ÊÇÒ»¸ö¼¯ÐÅÏ¢´«µÝ¡¢×ÊÁϲéѯ¡¢ÓéÀÖ½»ÓÑΪһÌåµÄУ԰ÍøÂçƽ̨!
'ÎÒվΪÄúÃâ·ÑÌṩÐÅϢƽ̨,ÄúÖ»ÐèҪע²áÒ»¸öͨÐÐÖ¤¼´¿ÉÇáËÉÓµÓÐÊôÓÚ×Ô¼ºµÄÍøÂç¿Õ¼ä,ÓéÀÖ½»ÓÑ¡¢·¢²¼ÐÅÏ¢µÈÍêÈ«ÓÉÄãÀ´ÕÆ¿Ø , ¾ÍÊÇÕâô¼òµ¥!
'     ¿ìÀÖ(À´)ÎÊ°É:http://www.huatbbs.com.cn/ask -ÔÚÏß½âÒÉ´ð»ó!
'                       °æȨËùÓÐ,¸Ä±à²»¾¿
'*********************************************************************
Option Explicit
Dim HostName As String
Const SOCKET_ERROR = 0
    Dim hFile As Long, lpWSAdata As WSAdata
    Dim hHostent As Hostent, AddrList As Long
    Dim Address As Long, rIP As String
    Dim OptInfo As IP_OPTION_INFORMATION
    Dim EchoReply As IP_ECHO_REPLY
Private Type WSAdata
    wVersion As Integer
    wHighVersion As Integer
    szDescription(0 To 255) As Byte
    szSystemStatus(0 To 128) As Byte
    '¿ìÀÖ(À´)ÎÊ°É:http://www.huatbbs.com.cn/ask -ÔÚÏß½âÒÉ´ð»ó!
    iMaxSockets As Integer
    iMaxUdpDg As Integer
    lpVendorInfo As Long
End Type
Private Type Hostent
    h_name As Long
    h_aliases As Long
    h_addrtype As Integer
    h_length As Integer
    h_addr_list As Long
End Type
Private Type IP_OPTION_INFORMATION
'¿ìÀÖ(À´)ÎÊ°É:http://www.huatbbs.com.cn/ask -ÔÚÏß½âÒÉ´ð»ó!
    TTL As Byte
    Tos As Byte
    Flags As Byte
    OptionsSize As Long
    OptionsData As String * 128
End