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