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.網絡.網卡屬性），若有興趣能夠加入其餘信息輸出。