摘要:VB.Net 使用 WMI 取得 CPU 溫度
VB.Net 使用 WMI ( Windows Management Instrumentation ) 來取得 CPU 溫度
<< VB.Net >>
請先加入參考 System.Management
Imports System
Imports System.Management
Public Class Form1
Private Sub Button1_Click(ByVal s As Object, ByVal e As EventArgs) Handles Button1.Click
Dim CPUtprt As Integer = CPU_Temperature()
If CPUtprt >= 100 Then
MessageBox.Show("CPU 溫度: " & CPUtprt.ToString & " °C" & ControlChars.CrLf & _
"溫度破錶嚕! 快準備煎蛋囉! " & ControlChars.CrLf & _
"或開啟自動灑水系統降溫喔!")
Else
MessageBox.Show("CPU 溫度: " & CPU_Temperature() & " °C")
End If
End Sub
' 取得CPU 溫度
Private Function CPU_Temperature() As Integer
Dim Q As String = "Select * From MSAcpi_ThermalZoneTemperature"
Dim mos As New ManagementObjectSearcher("root\WMI", Q)
For Each mo As ManagementObject In mos.Get
Return Convert.ToInt32(mo.GetPropertyValue("CurrentTemperature") - 2732) / 10
Next
End Function
End Class