很久以前弄得。没啥难度
可能是测速算法问题。感觉和实际有些偏差




        Dim properties As IPGlobalProperties = IPGlobalProperties.GetIPGlobalProperties()
        Dim ipstat As IPGlobalStatistics = properties.GetIPv4GlobalStatistics()
        Dim nics As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
        For Each adapter As NetworkInterface In nics
            Dim ipv4Statistics As IPv4InterfaceStatistics = adapter.GetIPv4Statistics()
            k = k + 1
            speedS(k) = ipv4Statistics.BytesSent
            speedR(k) = ipv4Statistics.BytesReceived
        Next



WindowsApplication1.rar 72.34KB RAR 22次下载