[ممدوح]

هذا الكود ولكن تحتاج صلاحية لتشغيله بالاضافة لإضاغة المرجع System.Management

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Try
        Dim searcher As New Management.ManagementObjectSearcher _
            ("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
        For Each queryObj As Management.ManagementObject In searcher.Get()
            Dim kelvin As Double = CDbl(queryObj("CurrentTemperature"))
            Dim celsius As Double = kelvin / 10 - 273.15
            Dim fahrenheit As Double = (kelvin / 10 - 273.15) * 9 / 5 + 32

            MessageBox.Show(kelvin & " K")
            MessageBox.Show(celsius & " °C")
            MessageBox.Show(fahrenheit & " °F")

        Next
    Catch ex As Management.ManagementException
        MessageBox.Show(ex.Message)
    End Try
End Sub