Guardando su chrome ho visto alcuni codici per fare tale programma , ma quando lo avvio mi da sempre la stessa temperatura , come è possibile ?
grazie .
codice:
codice: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 Label1.Text = temp.ToString Next Catch ex As ManagementException MessageBox.Show(ex.Message) End Try