在本節，演示DSAPI.實時統計類下的功能。

要實現上述幾項資訊的獲取，通常需要使用Timer控制元件來間隔獲取，以便重新整理最新的資料。

    Private CPU As New DSAPI.實時統計.CPU
    Private 記憶體 As New DSAPI.實時統計.記憶體
    Private 硬碟 As New DSAPI.實時統計.硬碟
    Private 網路 As New DSAPI.實時統計.網路資訊
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 2000 '2秒重新整理一次
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim Sb As New System.Text.StringBuilder
        With Sb
            .AppendLine("CPU: " & CPU.CPU型號 & _
                        "  " & CPU.核心數 & "核  " & _
                        "使用率:" & CPU.CPU使用率)
            .AppendLine("記憶體: 總共" & DSAPI.檔案類.獲取可讀性強的位元組大小資訊(記憶體.總容量) & _
                        "  剩餘" & DSAPI.檔案類.獲取可讀性強的位元組大小資訊(記憶體.可用空間) & _
                        "  硬體驅動佔用" & DSAPI.檔案類.獲取可讀性強的位元組大小資訊(記憶體.硬體驅動佔用))
            .AppendLine("硬碟: 讀寫速度 " & _
                        DSAPI.檔案類.獲取可讀性強的位元組大小資訊(硬碟.當前讀取速度) & "/" & _
                        DSAPI.檔案類.獲取可讀性強的位元組大小資訊(硬碟.當前寫入速度))
            .AppendLine("網路: 上傳速度" & DSAPI.檔案類.獲取可讀性強的位元組大小資訊(網路.當前上傳速度) & _
            " 下載速度" & DSAPI.檔案類.獲取可讀性強的位元組大小資訊(網路.當前下載速度))
        End With
        TextBox1.Text = Sb.ToString
    End Sub
 

編譯執行效果如下：