標題: PING DOS 資料 [打印本頁] 作者: mhfo 時間: 2013-4-18 18:39 標題: PING DOS 資料
Private Function Ping(ByVal strAddr As String) As String
Dim pingChk As Boolean
Dim tempStr As String
pingChk = GetObject("winmgmts:").Get("NetDiagnostics=@").Ping(strAddr, Ping)
DataArray = Split(Ping, "<br>")
For i = 0 To UBound(DataArray)
tempStr = tempStr & TimeMs(DataArray(i)) & ","
Next i
Ping = Mid$(tempStr, 1, Len(tempStr) - 1)
End Function
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line