NetworkTrafficMonitor Class

Public Class NetworkTrafficMonitor
	Implements IDisposable

Dim instance As NetworkTrafficMonitor

public ref class NetworkTrafficMonitor : IDisposable

type NetworkTrafficMonitor = 
    class
        interface IDisposable
    end

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

Public NotInheritable Class Form1 : Inherits Form

    Friend WithEvents NetMon As NetworkTrafficMonitor

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

    Private Sub InitializeNetMon

        Try
            If Not NetworkTrafficMonitor.GetAvailableInterfaceNames.Any() Then
                Throw New Exception("Any available network interface found.")

            Else
                Me.NetMon = New NetworkTrafficMonitor(NetworkTrafficMonitor.GetAvailableInterfaceNames.First())
                Me.NetMon.UpdateBehavior = TrafficMonitorUpdateBehavior.FireAlwaysAfterTick
                Me.NetMon.UpdateInterval = 1000 ' 1 sec
                Me.NetMon.Start()

            End If

        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="NetworkTrafficMonitor.TrafficChanged"/> event of the <see cref="NetMon"/> 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 NetMon_TrafficChanged(ByVal sender As Object, ByVal e As TrafficChangedEventArgs) _
    Handles netMon.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.netMon.IsActive Then
            Me.netMon.Stop()
        Else
            Me.netMon.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.