Kód: Vybrať všetko

Imports System.Net.NetworkInformation
Module Module1

    Sub Main()
        Dim rozhrania() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces()
        For Each o As NetworkInterface In rozhrania
            Console.WriteLine("{0}:", o.Name)
            Console.WriteLine("Received: {0,15} B", o.GetIPv4Statistics.BytesReceived)
            Console.WriteLine("Sent: {0,19} B", o.GetIPv4Statistics.BytesSent)
            Console.WriteLine("---------------------------------------------------------")
        Next
        Console.Read()
    End Sub

End Module