Question

下午全部，

我正在用VB编写我的第一个控制台应用程序。我正在开发的应用程序基本上ping了一个网站列表，然后写出状态。

我的问题如下......

我有没有办法订购我希望在VB中ping的网站。目前我只是列出这个并且无关紧要，我在ping命令中编写这些站点的顺序似乎拉回写出最快的repsonce的状态。问题是我有几个位于同一个网箱上的网站，并且在写出状态时状态消息似乎搞得一团糟。我认为这是因为他们有相同的响应时间。

请找到我一直在使用的代码......

'Imports ping class
Imports System.Net.NetworkInformation

Module Module1

Sub Main()

    Console.Title = ("Daily Checks PING to Check Current Status")
    Dim myPingList As New List(Of String) 'A LIST TO HOLD SOME STRINGS
    Dim myPing As Ping = Nothing          'PING CLASS 
    Dim timeout As Integer = 100000         'TIMEOUT FOR PING REQUESTS


    'ADD A BUNCH OF THINGS TO PING
    myPingList.Add("website1")
    myPingList.Add("website3")
    myPingList.Add("website2")


    'LOOP THE STRING LIST OF PLACES WE WANT TO PING
    For Each ItemToPing As String In myPingList

        'CREATE A NEW PING OBJECT
        myPing = New Ping

        'ADD EVENT HANDLER FOR THE PING COMPLETED EVENT
        'PingResult IS THE SUB ROUTINE BELOW
        AddHandler myPing.PingCompleted, _
                   AddressOf PingResult

        'TELL USER WHAT IS BEING PINGED
        'Console.WriteLine("Sending PING Request To: " & ItemToPing)

        'SEND ASYNC PING REQUEST
        'myPing.SendAsync(ItemToPing, timeout, Buffer, ItemToPing)
        myPing.SendAsync(ItemToPing, timeout, ItemToPing)
    Next

    'WAIT FOR A KEYPRESS TO CLOSE CONSOLE WINDOW
    Console.WriteLine("")
    Console.WriteLine("Critical Systems Ping Results:")
    Console.ReadKey(True)

End Sub

'THE PING RESULT THAT WILL FIRE WHEN A PING COMPLETES
Private Sub PingResult(ByVal sender As Object, ByVal e As  System.Net.NetworkInformation.PingCompletedEventArgs)

    'OUTPUT TO USER, e.UserState IS WHAT WE PASSED IN AS THE UserToken (ItemToPing) IN THE ABOVE CODE
    Console.WriteLine("")
    Console.WriteLine("***********************************")
    Console.WriteLine("Application: " & e.UserState.ToString)

    ''IF THERE WAS AN ERROR THEN OUTPUT INFORMATION ABOUT THE ERROR
    ''OTHERWISE OUTPUT INFORMATION ABOUT THE RESULT OF THE PING REQUEST
    ''THE EVENTARGS e HAVE A LOT OF INFORMATION IN THE e.Reply VARIABLE
    If e.Error IsNot Nothing Then
        Console.WriteLine("Error: " & e.Error.Message)
        If e.Error.InnerException IsNot Nothing Then
            Console.WriteLine("More Info: " & e.Error.InnerException.Message)
        End If
    Else
        Console.WriteLine("Status: " & e.Reply.Status.ToString)
        Console.WriteLine("Round Trip Time: " & e.Reply.RoundtripTime.ToString)
        Console.WriteLine("Response Buffer Length:" & e.Reply.Buffer.Length.ToString)
    End If
    Console.WriteLine("***********************************")


    'THE SENDER IN THE ARGUMENTS IS THE PING OBJECT THAT WE CREATED
    'SO NOW REMOVE THE EVENT HANDLER LISTENER AS IT IS NO LONGER NEEDED
    'AND CALL Dispose() ON THE PING CLASS TO CLEAN UP UNMANAGED RESOURCES
    With DirectCast(sender, Ping)
        RemoveHandler .PingCompleted, AddressOf PingResult
        .Dispose()
    End With

End Sub

End Module

有一种更好的方法可以完成/编写这个任务，但上面是一个开始。非常感谢任何帮助。

此致贝蒂。

Answer 1

您正在为每个IP地址调用Ping.SendAsync（），这是一种异步方法，因此响应不一定按照它们发送的顺序返回。

您可以使用Ping.Send（）方法吗？

Answer 2

据我所知，您有两种选择：

缓冲结果。收集所有结果，仅在完成后显示。这可能是两个选项中执行速度最快的，但可能会延迟显示结果。
排队ping并等待一个完成，然后再开始下一个。

您正在使用SendAsync，这意味着它是异步设计。这是你在代码中做出的选择。如果您希望将它们按顺序排列（即Send），则可以使用同步命令。或者如果你仍然希望它们由于某种原因而变为异步，那么你也可以使用信号量和互斥量来停止下一次迭代的执行......这里有很多选项，你只需选择最适合你的那个。< / p>

我可以按特定顺序ping一系列网站吗？

2 个答案: