多IP乒乓

Question

If My.Computer.Network.Ping("192.168.20.251") Then
     Console.WriteLine("IP FOUND")
Else
     Console.WriteLine("IP NOT FOUND")
End If

如果有多少是在线和离线的，是否有一种方法来平一个IP地址数组并显示？

Answer 1

让我们考虑一下，ListOfIPs是一个已经填充的List(Of String)或字符串数组。

我不明白你是否只是想要的在线I和离线的数量。这两种方法都有一个解决方案:显示哪个是打开/关闭的，并计算它们。

Dim IpIsOn as Integer = 0
Dim IpIsOff as Integer = 0

For Each ip as String in ListOfIPs
    If My.Computer.Network.Ping(ip) Then
         Console.WriteLine(ip & " is online")
         IpIsOn = IpIsOn + 1
    Else
         Console.WriteLine(ip & " is offline")
         IpIsOff = IpIsOff + 1
    End If
Next

Console.WriteLine("A total of " & IpIsOn & " IP are online, while " & IpIsOff & " are offline.")

Answer 2

是的，这可以通过将您想要的IP地址放入数组并循环遍历该数组，然后测试每个IP来实现。

代码(没有测试，但应该给出想法)：

Dim list As New List(Of String)
list.Add("192.168.20.251")
list.Add("192.168.233.1")
list.Add("192.168.0.199")
list.Add("192.168.2.55")


For Each item As String In list
    If My.Computer.Network.Ping(item) Then Console.WriteLine("IP FOUND " + item) Else Console.WriteLine("IP NOT FOUND " + item) End If
Next