CPU Isısını Ölçmek ( Vb.Net )

ads

ads

Bu derste  arkadaşlar  bilgisayarınızın   CPU  sıcaklığını  ölçeceğiz  system.management ile.

İlk  yapmanı gereken   Projemize System.Management  ekleyeceğiz bunun için Project + Add  Reference + .NET + System.Management'i ekleyiniz.

Imports System.Management

Evenet'e  Timer ( örnek );

Try
Dim searcher As New ManagementObjectSearcher("rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get()
Dim sicak As Double = CDbl(queryObj("CurrentTemperature"))
sicak = (sicak - 2732) / 10.0
Text = sicak.ToString & " °C" ' 
Next
Catch
MsgBox "CPU sıcaklığı okunmuyor....
End Try

ads