aspNetTraceRoute

TraceMe.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="TraceMe.aspx.vb" Inherits="aspNetPingTest3.TraceMe"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
  <HEAD>
    <title>TraceMe</title>
    <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
    <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
    <meta name=vs_defaultClientScript content="JavaScript">
    <meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
  </HEAD>
  <body MS_POSITIONING="GridLayout">

    <form id="Form1" method="post" runat="server">
<INPUT id=txtHost type=text runat="server" NAME="txtHost"><INPUT type=submit value=Trace ID="Submit1" NAME="Submit1"> 
<br> <PRE><asp:Literal id=TraceResults  Runat="server"></asp:Literal></PRE> 

    </form>

  </body>
</HTML>

TraceMe.aspx.vb


Imports aspNetTraceRoute
Public Class TraceMe
    Inherits System.Web.UI.Page
    Protected WithEvents TraceResults As System.Web.UI.WebControls.Literal
    Protected WithEvents txtHost As System.Web.UI.HtmlControls.HtmlInputText

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
     Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If Page.IsPostBack Then
            Dim results As TraceRouteReplyCollection = TraceRouteClient.Trace(txtHost.Value, 30, True)
            TraceResults.Text = results.ToString()
        End If

    End Sub

End Class