Forma eklenecekler
- 1 tane Label
- 1tane Button
Kod sayfasının başına ekleyin;
Kod:
Imports System Imports System.Management
Button1'in Click olayına;
Kod:
Try Dim searcher As New ManagementObjectSearcher("rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature") For Each queryObj As ManagementObject In searcher.Get() Dim term As Double = CDbl(queryObj("CurrentTemperature")) term = (term - 2732) / 10.0 MsgBox(term.ToString & " °C") Next Catch err As ManagementException MsgBox(ErrorToString()) End Try
Tabi bu işlemci sıcaklığını direk calıştır derseniz oğrenemessiniz. Programı yonetici olarak calıştırmanız gerekir. (XP'de denemediğim icin birşey soyleyemiyorum
)Programı yonetici olarak calıştırmak
Projenizi acın > MyProject > View Windows Settings'e tıklayın.
Karşınıza gelen sayfadaki "requestedExecutionLevel " tagını bulup level ozniteliğinin değerini "requireAdministrator" olarak değiştirin.
Bir Teşekkuru cok gormeyin...
__________________