ProcessTrafficMonitor Class

Public Class ProcessTrafficMonitor
	Inherits NetworkTrafficMonitor

Dim instance As ProcessTrafficMonitor

public ref class ProcessTrafficMonitor : public NetworkTrafficMonitor

type ProcessTrafficMonitor = 
    class
        inherit NetworkTrafficMonitor
    end

No code example is currently available or this language may not be supported.

Public NotInheritable Class Form1 : Inherits Form

    Friend WithEvents ProcNetMon As ProcessTrafficMonitor

    Private Sub Form1_Shown() Handles MyBase.Shown
        Me.InitializeNetMon()
    End Sub

    Private Sub InitializeNetMon

        Try
           Me.ProcNetMon = New ProcessTrafficMonitor(Process.GetCurrentProcess.Id)
           Me.ProcNetMon.UpdateBehavior = TrafficMonitorUpdateBehavior.FireAlwaysAfterTick
           Me.ProcNetMon.UpdateInterval = 1000 ' 1 sec
           Me.ProcNetMon.Start()

        Catch ex As Win32Exception When (ex.ErrorCode = -2147467259)
            MessageBox.Show("Cannot initialize network monitor. Ensure to enable performance counters service.", "",
                            MessageBoxButtons.OK, MessageBoxIcon.Error)

        Catch ex As Exception
            Throw

        End Try

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="ProcessTrafficMonitor.TrafficChanged"/> event of the <see cref="ProcNetMon"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="TrafficChangedEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub ProcNetMon_TrafficChanged(ByVal sender As Object, ByVal e As TrafficChangedEventArgs) _
    Handles procNetMon.TrafficChanged

        Me.LabelBytesReceived.Text = String.Format("Bytes received: {0} kb", (e.BytesReceived / 1024).ToString("n2"))
        Me.LabelDlSpeed.Text = String.Format("DL Speed: {0} kb/sec", (e.DiffBytesReceived / 1024).ToString("n2"))

        Me.LabelBytesSent.Text = String.Format("Bytes sent: {0} kb", (e.BytesSent / 1024).ToString("n2"))
        Me.LabelUlSpeed.Text = String.Format("UL Speed: {0} kb/sec", (e.DiffBytesSent / 1024).ToString("n2"))

    End Sub

    Private Sub BtDownloadUrl_Click() Handles BtDownloadUrl.Click

        Dim url As String = "http://download.thinkbroadband.com/10MB.zip"
        Dim client As New WebClient()
        client.DownloadFileAsync(New Uri(url), Path.GetTempFileName())

    End Sub

    Private Sub BtPauseMon_Click() Handles BtPauseMon.Click

        If Me.ProcNetMon.IsActive Then
            Me.ProcNetMon.Stop()
        Else
            Me.ProcNetMon.Start()
        End If

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.