摘要：
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 阅读(558) 评论(0) 推荐(0) 编辑