[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




في هذا الكود، إن شاء الله ينفع

PHP كود :

'  :التالي (Reference) أضف المرجع
'  System.Management

Imports System
Imports System.Management

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try
            Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")

            For Each queryObj As ManagementObject In searcher.Get()
                Dim temp As Double = CDbl(queryObj("CurrentTemperature"))

                temp = (temp - 2732) / 10.0

                MessageBox.Show(temp.ToString)

            Next

        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)

        End Try

    End Sub

End Class 


السلام عليكم ورحمة الله وبركاته