求VB按时间PING一个IP，并且显示速度。

来源：百度知道 编辑：UC知道 时间：2024/06/08 20:27:18
功能大概就像浩方，QQ对站平台房间速度检测那样

绿的就是很快，红的很慢，然后后面写出时间。

求原代码,或者方法。直接写这或邮箱

邮箱cyldq2486@163.com

求大家帮我，编写成功追分，相信咱分多。
这个我也找到了，没实例，写的也不全啊。。。

BAS Module 模块
把以下代码回到 BAS Module 模块:
Option Explicit
Private Const IP_SUCCESS As Long = 0
Private Const IP_STATUS_BASE As Long = 11000
Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)
Private Const IP_DEST_NET_UNREACHABLE As Long = (11000 + 2)
Private Const IP_DEST_HOST_UNREACHABLE As Long = (11000 + 3)
Private Const IP_DEST_PROT_UNREACHABLE As Long = (11000 + 4)
Private Const IP_DEST_PORT_UNREACHABLE As Long = (11000 + 5)
Private Const IP_NO_RESOURCES As Long = (11000 + 6)
Private Const IP_BAD_OPTION As Long = (11000 + 7)
Private Const IP_HW_ERROR As Long = (11000 + 8)
Private Const IP_PACKET_TOO_BIG As Long = (11000 + 9)
Private Const IP_REQ_TIMED_OUT As Long = (11000 + 10)
Private Const IP_BAD_REQ As Long = (11000 + 11)
Private Const IP_BAD_ROUTE As Long = (11000 + 12)
Private Const IP_TTL_EXPIRED_TRANSIT As Long = (11000 + 13)
Private Const IP_TTL_EXPIRED_REASSEM As Lo