DSAPI多功能元件程式設計應用-實時統計-CPU/記憶體/硬碟/網路
阿新 • • 發佈:2019-02-15
在本節,演示DSAPI.實時統計類下的功能。
有時,我們需要獲取當前計算機中CPU、記憶體、硬碟、網路等實時資訊,如下圖:要實現上述幾項資訊的獲取,通常需要使用Timer控制元件來間隔獲取,以便重新整理最新的資料。
本示例中,放一個Timer控制元件,放一個TextBox控制元件(多行),並編寫以下程式碼: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
編譯執行效果如下: