if ping("ping.com")<888 then xxxxxxxxxxxxx- Function Ping(url) '检查网络Ping值,单位毫秒
- Set objWMI = GetObject("winmgmts:\\.")
- Set colPings = objWMI.ExecQuery ("Select * From Win32_PingStatus where Address = '" & url & "'")
- Ping=9999
- On error resume next
- For Each objPing in colPings
- Ping=objPing.ResponseTime+0
- Next
- On error goto 0
- End Function
复制代码
|