求VB按时间PING指定IP，并返回ping值中的最大延迟值。

来源：百度知道 编辑：UC知道 时间：2024/06/06 00:21:11
比如在text1到text5中分别有一个默认已经输入的IP地址（如果想更改也能更改，不要是固定的ip值），然后有一个command按钮，当按下此按钮时，在text6到text10中分别对应text1-5中的IP显示出ping值中的最大延迟值。

为避免分数浪费，先设置10分，答案满意的追加50分。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Dim a As String * 65400
Dim s As String
Dim l As Long
Shell "cmd /c ping " & Text1 & " >c:\1.txt", 0
Sleep 5000
Open "c:\1.txt" For Binary As #1
Get #1, , a
l = InStr(a, ", Average") - InStr(a, "Maximum =")
If InStr(a, "Maximum =") > 0 And l > 0 Then Text2 = Mid(a, InStr(a, "Maximum ="), l - 1)
Close #1
Kill "c:\1.txt"
End Sub

text1输入ip text2返回最大延迟

我这儿有个API写的ping模块
可直接传入IP地址返回ping值
这样一来 做个循环就可以实现你说的功能了
只是不知道怎么发给你