強力鎯頭 VB BLOG

VB.Net 效能監視器運用 (數位儀表板)

可運用於 Win Form , 或 Web Form 監視 Web Server 或 IIS 

' 匯入名稱空間 Imports System.Diagnostics Imports System.Management Public Class Form1 ' Processor Private Shared CPU_Core1 As PerformanceCounter = Nothing Private Shared CPU_Core2 As PerformanceCounter = Nothing ' Page File Private Shared PageFile_Usage As PerformanceCounter = Nothing Private Shared PageFile_UsagePeak As PerformanceCounter = Nothing ' My.Computer.Info Private Shared cptInfo As Devices.ComputerInfo = Nothing ' 查詢擷取管理物件 Private Shared Searcher As ManagementObjectSearcher = Nothing Private Shared TotPhyMem As UInt64 = 0 ' Total Physical Memory Private WithEvents tmr As New Timer ' Timer Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load ' 宣告並建立 "效能計數器元件" 類別 ' New PerformanceCounter(CategoryName,CounterName,InstanceName) ' CategoryName : 取得或設定這個效能計數器的效能計數器分類的名稱。 ' CounterName : 取得或設定與這個 PerformanceCounter 執行個體相關的效能計數器的名稱。 ' InstanceName : 取得或設定這個效能計數器的執行個體名稱。 ' 可用 Environment.ProcessorCount 取得 CPU Core 核心數量 ' Processor Core#0 核心1 CPU_Core1 = New PerformanceCounter("Processor", "% Processor Time", "0") ' Processor Core#1 核心2 CPU_Core2 = New PerformanceCounter("Processor", "% Processor Time", "1") ' 分頁檔 PageFile_Usage = New PerformanceCounter("Paging File", "% Usage", "_Total") ' 尖峰分頁檔 PageFile_UsagePeak = New PerformanceCounter("Paging File", "% Usage Peak", "_Total") cptInfo = New Devices.ComputerInfo() ' 取電腦資訊 tmr.Interval = 999 ' Timer.Interval 屬性 : 取得或設定引發 Elapsed 事件的間隔。 tmr.Start() ' 啟動 Timer ' 取得 CPU 名稱 (WMI) For Each MngObj As ManagementObject In New ManagementObjectSearcher(New SelectQuery("Win32_Processor")).Get() ' Get Processor Name imgLstBoxCPU.Items.Add(String.Format(" CPU : {0}", MngObj.GetPropertyValue("Name")), 1) Next GetProcessorInfo() ' 取得 CPU 資訊 (WMI) ' My.Computer.Info.TotalPhysicalMemory TotPhyMem = cptInfo.TotalPhysicalMemory ' 取得全部實體記憶體 lbl實體記憶體.Text = KB2MB(TotPhyMem) ' 顯示到 Label End Sub Private Sub GetProcessorInfo() ' 取得 CPU 資訊 (WMI) '使用 SelectQuery 物件可下 SELECT 陳述式查詢 'Select * From Win32_Processor 語法可省略 , 直接寫 WMI 類別名稱即可 Dim SelQry As New SelectQuery("Win32_Processor") '使用 ManagementObjectSearcher 物件取回一個 WMI 物件基底之查詢的 集合物件(Collection) Using MngObjSch As New ManagementObjectSearcher(SelQry) ' 使用 ManagementObjectSearcher.Get 方法, 叫用指定的 WMI 查詢，並傳回產生的集合。 ' 列舉出 Win32_Processor WMI 類別中每一個處理器 (成員) For Each MngObj As ManagementObject In MngObjSch.Get() ' 顯示 CPU 資訊 lstBox.Items.Add(String.Format("Caption : {0}", MngObj!Caption)) lstBox.Items.Add(String.Format("Manufacturer : {0}", MngObj!Manufacturer)) lstBox.Items.Add(String.Format("Number Of Logical Processors : {0}", MngObj!NumberOfLogicalProcessors)) lstBox.Items.Add(String.Format("L2 Cache Size : {0} KB", MngObj!L2CacheSize)) lstBox.Items.Add(String.Format("Current Clock Speed : {0} MHz", MngObj!CurrentClockSpeed)) lstBox.Items.Add(String.Format("Clock frequency : {0} MHz", MngObj!MaxClockSpeed)) lstBox.Items.Add(String.Format("CurrentVoltage : {0} V", MngObj!CurrentVoltage)) lstBox.Items.Add(String.Format("Number Of Cores : {0}", MngObj!NumberOfCores)) lstBox.Items.Add(String.Format("Address Width : {0}", MngObj!AddressWidth)) lstBox.Items.Add(String.Format("External Clock : {0} MHz", MngObj!ExtClock)) lstBox.Items.Add(String.Format("Data Width : {0}", MngObj!DataWidth)) lstBox.Items.Add(String.Format("Socket Designation : {0}", MngObj!SocketDesignation)) Next End Using End Sub ' Timer Tick 事件 Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmr.Tick Dim Core1 As Int32 = dgt2(CPU_Core1.NextValue) ' 取得 CPU 核心1 使用率 Dim Core2 As Int32 = dgt2(CPU_Core2.NextValue) ' 取得 CPU 核心2 使用率 lblCore1Usage.Text = String.Format("Core #0 {0} % ", Core1) ' 取得 CPU 核心1 使用率 lblCore2Usage.Text = String.Format("Core #1 {0} % ", Core2) ' 取得 CPU 核心2 使用率 Dim AvPhyMem As UInt64 = cptInfo.AvailablePhysicalMemory ' 取得可用實體記憶體 Dim TotVtMem As UInt64 = cptInfo.TotalVirtualMemory ' 取得全部虛擬記憶體 Dim AvVtNen As UInt64 = cptInfo.AvailableVirtualMemory ' 取得可用虛擬記憶體 lblAvPhyMem.Text = KB2MB(AvPhyMem) ' 顯示可用實體記憶體 lblTotVtMem.Text = KB2MB(TotVtMem) ' 顯示全部虛擬記憶體 lblAvVtNen.Text = KB2MB(AvVtNen) ' 顯示可用虛擬記憶體 lblRAMusage.Text = KB2MB(TotPhyMem - AvPhyMem) ' 顯示 RAM 已用 ' 顯示分頁檔使用 lblPageFileUsage.Text = String.Format(" Page File {0:##0.00} %", PageFile_Usage.NextValue) ' 顯示分頁檔尖峰使用 lblPageFileUsagePeak.Text = String.Format(" Page File Peak {0:##0.00} %", PageFile_UsagePeak.NextValue) ' 顯示本程式使用記憶體 ' Process.GetCurrentProcess.WorkingSet ' Process.GetCurrentProcess.WorkingSet64 bsi.Caption = String.Format("本程式記憶體 : {0} MB", KB2MB(Environment.WorkingSet)) End Sub Private Shared Function KB2MB(ByVal kb As Long) As String ' 講 KB 轉 MB ( / 1024 / 1024 ) 並指定格式 ' 四捨五入將值捨入至指定的小數點兩位。 Return Math.Round(kb / 2 ^ 20, 2).ToString("#,##0.00") End Function Private Shared Function dgt2(ByVal value As Single) As String ' 四捨五入將值捨入至指定的小數點兩位。 Return Math.Round(value, 2).ToString() End Function End Class

 

關於 3rd Party Gauge 元件可參考
http://www.devexpress.com/
http://www.componentart.com/

關於 CPU 溫度的取得可參考 < VB.Net 使用 WMI 取得 CPU 溫度 >
http://blog.blueshop.com.tw/hammerchou/archive/2007/10/11/52873.aspx

由於 Windows 本身並無提供各項硬體溫度的監控方式，
因此 WMI 雖然是 Windows 提供的管理服務，
但仍然需要硬體支援才能得到所需的資訊。
MSAcpi_ThermalZoneTemperature 顧名思義是透過 Acpi 這個共同管理介面來查詢，
因此您的系統必須具備 ACPI Thermal Zone 才有辦法問到，
而 ACPI Thermal Zone 其實是 Notebook 設計下的產品
在 PC 系統下並無 ACPI Thermal Zone 的設計。
一般在 PC 上是使用 Win32_TemperatureProbe 進行查詢，
但由於 Win32_TemperatureProbe 是直接問 SMBIOS，由 SMBIOS 裡面挖出資料，
但 SMBIOS 是否有支援 WMI 是由主機板廠商決定。
也就是說，若主機板廠商有支援 WMI ，便可以使用
Win32_TemperatureProbe 的 CurrentReading 讀到 CPU 溫度。
但很不幸的，大多數(幾乎可說是全部)的主機板廠商都沒有支援這項功能。

PC若要知道 CPU 溫度，必須要以 C 語言自行實作 Monitor Chip Driver
可參考 http://temperature.myweb.hinet.net/index_en.htm