HTML Code:
mports System Imports System.Management Imports System.Drawing Imports Microsoft.Win32 Public Class Form1 Private Sub Sıcak_Tick(sender As Object, e As EventArgs) Handles Sıcak.Tick Try Dim searcher As New ManagementObjectSearcher("rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature") For Each queryObj As ManagementObject In searcher.Get() Dim temperature As Double = CDbl(queryObj("CurrentTemperature")) temperature = (temperature - 2732) / 10.0 sıcaklık.Text = temperature.ToString & " °C" ' Başlıkta gosteriyoruz Next Catch sıcaklık.Text = ("CPU sıcaklığı Bulunamıyor!") End Try End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Sıcak.Interval = TextBox1.Text End Sub Private Sub Cpu_Tick(sender As Object, e As EventArgs) Handles Cpu.Tick cpuname.Text = Registry.LocalMachine.OpenSubKey("HARDWARE").OpenS ubKey("DESCRIPTION").OpenSubKey("System").OpenSubK ey("CentralProcessor").OpenSubKey("0").GetValue("P rocessorNameString") uretıcı.Text = Registry.LocalMachine.OpenSubKey("HARDWARE").OpenS ubKey("DESCRIPTION").OpenSubKey("System").OpenSubK ey("CentralProcessor").OpenSubKey("0").GetValue("V endorIdentifier") family.Text = Registry.LocalMachine.OpenSubKey("HARDWARE").OpenS ubKey("DESCRIPTION").OpenSubKey("System").OpenSubK ey("CentralProcessor").OpenSubKey("0").GetValue("I dentifier") vs.Text = Registry.LocalMachine.OpenSubKey("HARDWARE").OpenS ubKey("DESCRIPTION").OpenSubKey("System").OpenSubK ey("CentralProcessor").OpenSubKey("0").GetValue("U pdate Status") speed.Text = Registry.LocalMachine.OpenSubKey("HARDWARE").OpenS ubKey("DESCRIPTION").OpenSubKey("System").OpenSubK ey("CentralProcessor").OpenSubKey("0").GetValue("~ Mhz") & ("Mhz")

Arkadaşlar Tasarımda Dot Net Bardan yararlandım formun tasarımını style managerdan yaptım

cpu bilgisini registryden okuyo