DSAPI 网卡流量监控

这是一个非常有意思的趣味小功能，统计每个网卡的流量信息。

 Dim 网卡() As DSAPI.网络.网卡信息 = DSAPI.网络.获取本机所有网卡信息
        While True
            Console.Clear()
            For Each Nk As DSAPI.网络.网卡信息 In 网卡
                If Nk.连接可用 = False Then Continue For
                Console.WriteLine(String.Concat(Nk.设备名称, "(", Nk.网络连接名称, ")", vbCrLf, "总上行", DSAPI.文件.获取可读性强的字节大小信息(Nk.总发送流量), " 总下行", DSAPI.文件.获取可读性强的字节大小信息(Nk.总接收流量), vbCrLf, "总发送数据包", Nk.发送数据包数, vbCrLf, "总接收数据包", Nk.接收数据包数))

            Next
            Threading.Thread.Sleep(2000)
        End While

        Console.ReadKey(True)
    End Sub

　　运行截图

此示例仅使用DSAPI中网卡的流量属性，而在DSAPI中网卡的属性则非常多（DSAPI.网络.网卡属性），如有兴趣可以加入其他信息输出。