如何解决不相等的多次ping-VBA
我在Excel中制作了一个工具来捕获来自多个IP的ping,但是当我将-n参数设置为更大的值时,它存在问题。第一个IP运作良好,但第二个IP延迟了,我必须手动将它们破坏。
-n 300的采样结果:
- IP1:已发送= 300
- IP2:已发送= 102
- IP3:已发送= 77
- IP4:已发送= 75
- IP5:已发送= 75
有什么建议吗?
非常感谢
Sub runPing(可选参数作为字符串)
Dim sh As Object
Dim shEx1 As Object
Dim pingComand1 As String
Dim buffor1 As String
Dim shEx2 As Object
Dim pingComand2 As String
Dim buffor2 As String
Dim shEx3 As Object
Dim pingComand3 As String
Dim buffor3 As String
Dim shEx4 As Object
Dim pingComand4 As String
Dim buffor4 As String
Dim shEx5 As Object
Dim pingComand5 As String
Dim buffor5 As String
Set sh = CreateObject("WScript.Shell")
pingComand1 = ActiveSheet.Range("B3")
pingComand2 = ActiveSheet.Range("B4")
pingComand3 = ActiveSheet.Range("B5")
pingComand4 = ActiveSheet.Range("B6")
pingComand5 = ActiveSheet.Range("B7")
If Parameters = "" Then
pingComand1 = pingComand1 & " " & ActiveSheet.Range("C3")
pingComand2 = pingComand2 & " " & ActiveSheet.Range("C4")
pingComand3 = pingComand3 & " " & ActiveSheet.Range("C5")
pingComand4 = pingComand4 & " " & ActiveSheet.Range("C6")
pingComand5 = pingComand5 & " " & ActiveSheet.Range("C7")
Else
pingComand1 = pingComand1 & " " & Parameters
pingComand2 = pingComand2 & " " & Parameters
pingComand3 = pingComand3 & " " & Parameters
pingComand4 = pingComand4 & " " & Parameters
pingComand5 = pingComand5 & " " & Parameters
End If
pingComand1 = "C:\Windows\System32\PING.exe " & pingComand1
pingComand2 = "C:\Windows\System32\PING.exe " & pingComand2
pingComand3 = "C:\Windows\System32\PING.exe " & pingComand3
pingComand4 = "C:\Windows\System32\PING.exe " & pingComand4
pingComand5 = "C:\Windows\System32\PING.exe " & pingComand5
Set shEx1 = sh.Exec(pingComand1)
Set shEx2 = sh.Exec(pingComand2)
Set shEx3 = sh.Exec(pingComand3)
Set shEx4 = sh.Exec(pingComand4)
Set shEx5 = sh.Exec(pingComand5)
buffor1 = shEx1.StdOut.ReadAll
buffor2 = shEx2.StdOut.ReadAll
buffor3 = shEx3.StdOut.ReadAll
buffor4 = shEx4.StdOut.ReadAll
buffor5 = shEx5.StdOut.ReadAll
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。