9zhmke

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
复制代码