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()

        MessageBox.Show("CPU 溫度: " & CPU_Temperature() & " °C")



    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