Come accedere alla temperatura della CPU in VB

Se si sta costruendo un semplice programma di statistiche hardware , il primo posto dove guardare in è la Strumentazione gestione Windows ( WMI ) di riferimento , dove troverete un sacco di domande pulito si può fare con l'interfaccia di scoprire molte cose sul tuo sistema . È possibile visualizzare la temperatura della vostra CPU con l'invio di una query al WMI per " MSAcpi_ThermalZoneTemperature " e cercando di valore " CurrentTemperature " . Questo è più facile a dirsi che a farsi , però, quindi assicuratevi di toccare le tue abilità di programmazione . Istruzioni
1

Apritevi un progetto di modulo di Visual Basic di Windows e chiamare qualsiasi cosa vuoi .
2

Creare un pulsante selezionando la voce pulsante sulla vostra cassetta degli attrezzi e trascinando una finestra attraverso la tua forma che copre l'area che si desidera visualizzare il pulsante dentro

3 fare doppio clic sul pulsante appena creato a prendere te stesso per la sua funzione di evento click nella vista Codice .
4

dichiarare un nuovo oggetto Ricercatore di gestione all'interno l'evento click e passa i suoi parametri di costruzione , come la classe WMI radice con una query per " MSAcpi_ThermalZoneTemperature . " Si può fare in questo modo :

Dim s As New System.Management.ManagementObjectSearcher ( _ "root /WMI ", " SELECT * FROM MSAcpi_ThermalZoneTemperature " ) economici 5

scorrere l' ricercatore che ha creato e rendono un valore temporaneo all'interno della iterazione per visualizzare il valore . La temperatura della CPU sta per essere visualizzato in un certo numero di unità di 0,1 Kelvin . Ad esempio, se la temperatura della CPU è 27455 , questo può essere interpretato come 2745,5 gradi Kelvin . Si dovrà convertire la temperatura all'unità che si desidera visualizzare . L'esempio seguente fa l'iterazione e visualizza la temperatura della CPU in Celsius :

Per ogni q Come ManagementObject In s.Get ( ) Dim tmp As Double = CDbl ( q ( " CurrentTemperature " ) tmp = ( tmp - 2732 ) /10.0MessageBox.Show ( tmp.ToString ) Successivo

• Come creare Facile VBS Script Online e Aggiungi una stampante IP 
• Come stampare in un Didascalia etichette in Visual Basic 6.0