ComponentSpace Professional .NET and ActiveX components for developers
ComponentSpace Home | Products | Downloads | Support | Purchase | Services | About Us
 

Code Samples

The product includes numerous VB.NET, C# and ASP.NET sample applications. All samples include complete source code. For more detailed sample code please refer to the sample applications.


Tracing a Route to a Server

Listing 1 demonstrates using the asynchronous BeginTraceRoute method to perform a trace route to a server. The OnTraceRouteTimingCompleted event is fired when an individual timing to a hop has been completed. The OnTraceRouteHopCompleted event is fired when all timings to a hop have been completed. The OnTraceRouteCompleted event is fired when the server has been reached or the hop limit exceeded. Alternatively, the synchronous TraceRoute method may be used.



Private traceRouteClient As TraceRouteClient

Private Sub StartTraceRoute()
    ' Start the trace route.
    traceRouteClient = New TraceRouteClient()
    traceRouteClient.SynchronizingObject = Me
    
    AddHandler traceRouteClient.TraceRouteTimingCompleted, _
               AddressOf OnTraceRouteTimingCompleted
               
    AddHandler traceRouteClient.TraceRouteHopCompleted, _
               AddressOf OnTraceRouteHopCompleted
               
    AddHandler traceRouteClient.TraceRouteCompleted, _
               AddressOf OnTraceRouteCompleted
               
    traceRouteClient.BeginTraceRoute(textBoxTargetName.Text)
End Sub

Private Sub OnTraceRouteTimingCompleted(ByVal sender As Object, _
                                        ByVal e As TraceRouteTimingCompletedEventArgs)
    Dim traceRouteTiming As TraceRouteTiming

    traceRouteTiming = e.TraceRouteTiming

    ' Process the trace route timing information
End Sub

Private Sub OnTraceRouteHopCompleted(ByVal sender As Object, _
                                     ByVal e As TraceRouteHopCompletedEventArgs)
    ' Process the trace route hop completed event
End Sub

Private Sub OnTraceRouteCompleted(ByVal sender As Object, _
                                  ByVal e As TraceRouteCompletedEventArgs)
    traceRouteClient.EndTraceRoute(e.AsyncResult)

    " Process the trace route completed event
End Sub
									

Listing 1 Tracing a route to a server