博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年6月5日

纯api实现ping主机（仅仅返回是否ping通）

摘要： modPing.basAttribute VB_Name = "modPing"'modPing'MsgBox IPValid("10.167.133.205")Option ExplicitPrivate Const IP_STATUS_BASE = 11000Private Const IP_SUCCESS = 0Private Const IP_BUF_TOO_SMALL = (11000 + 1)Private Const IP_DEST_NET_UNREACHABLE = (11000 + 2)Private Const IP_DEST_HOST_UNREACHABLE = (110 阅读全文

posted @ 2009-06-05 13:11 随风飘零0 阅读(570) 评论(0) 推荐(0)