Imports NetworkUtil
Imports NetworkUtil.NetworkTrafficMonitor
 
Public NotInheritable Class Form1 : Inherits Form
 
    Dim WithEvents procNetMon As NetworkUtil.ProcessTrafficMonitor
 
    Private Sub Form1_Load() Handles MyBase.Load
 
        Me.procNetMon = New ProcessTrafficMonitor(Process.GetCurrentProcess.Id)
        Me.procNetMon.UpdateBehavior = UpdateBehaviorEnum.FireAlwaysAfterTick
        Me.procNetMon.UpdateInterval = 1000 ' 1 sec.
        Me.procNetMon.Start()
 
    End Sub
 
    Private Sub ProcNetMon_TrafficChanged(ByVal sender As Object, ByVal e As ProcessTrafficMonitor.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

Dim WithEvents netMon As New NetworkTrafficMonitor(NetworkTrafficMonitor.GetAvaliableInterfaceNames.First)

@ECHO OFF
:: Check Windows version: NT 4 or later required
IF NOT "%OS%"=="Windows_NT" GOTO Syntax
:: Check number of command line arguments: 1 and only 1 required
IF     "%~1"=="" GOTO Syntax
IF NOT "%~2"=="" GOTO Syntax
:: Check if the command line argument consists of zeroes and ones only
ECHO "%~1"| FINDSTR /R /B /C:"\"[01][01]*\"$" >NUL || GOTO Syntax
 
:: Initialize the variables
SET Binary=%~1
SET Decimal=0
SET DigVal=1
 
:: Display the initial binary value
SET Binary
 
:Loop
:: Extract the last digit from the binary number
IF %Binary% GTR 1 (
	SET Digit=%Binary:~-1%
	SET Binary=%Binary:~0,-1%
) ELSE (
	SET /A Digit = %Binary%
	SET Binary=0
)
:: Add the digit's value to the decimal result
IF %Digit% EQU 1 SET /A Decimal = %Decimal% + %DigVal%
:: Increment the digit's value (multiply by 2)
SET /A DigVal *= 2
:: If the value of the remaining digits is
:: greater than 0, loop to the next iteration
IF %Binary% GTR 0 GOTO Loop
 
:: Clean up aal variables but one
SET Binary=
SET Digit=
SET DigVal=
 
:: Display the decimal result
SET Decimal
 
:: Exit with the decimal result as return code
EXIT /B %Decimal%
 
 
:Syntax
ECHO Bin2Dec.bat,  Version 1.00 for Windows NT 4 and later
ECHO Convert binary numbers to decimal
ECHO.
ECHO Usage:  BIN2DEC  binary_number
ECHO.
ECHO Written by Rob van der Woude
ECHO http://www.robvanderwoude.com

Dim bin As String = "101001001" ' 329
Dim dec As Integer = Convert.ToInt32(bin, fromBase:=2)
Console.WriteLine(dec)

• Visual Basic Script (VBS)
• Visual Basic for Applications (VBA)
• PowerShell
• javascript (mejor no lo tomes cómo una opción por el momento en lo relacionado con apps/tareas de escritorio)

CMD.exe /C Help