Misura della temperatura del processore con vb6

[mandrak]

Salve a tutti.
Ho altro quesito da chiedere.
Mi piacerebbe creare con vb6 o Vb5 un softwarino che legge
la temperatura del processore se la scheda madre lo prevede.
So che ci sono già pronti e anche Free, ma sarebbe una mia
piccola soddisfazione crearne uno da me.
Da dove devo iniziare ?
Quali sono i registri da consultare e come ?
magari un piccolo esempio ...

[chiccogio]

Ho trovato in giro su internet questo...forse potrebbe essere di aiuto?

Imports System
Imports System.Management

Public Class frmMain

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
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
MessageBox.Show(temp.ToString)
Next

Catch ex As ManagementException
MessageBox.Show(ex.Message)
End Try

End Sub

End Class

[LoryOne]

"Quali sono i registri da consultare e come ?"

L'esempio che hai riportato non è proprio in Vb5/6, anche se a WMI potresti accedere comunque attraverso l'utilizzo di un componente aggiuntivo ...
Certo, WMI è pratico ma la domanda rimane quella lassù

Dipende dal driver della scheda madre, la lettura della temperatura...non c'è una API standard. Bisogna importare la funzione specifica dalla dll (stile asus.dll ha GetCPUTemperature)

[LoryOne]

Mmm ... l'esempio fa accesso ad ACPI ... al BIOS.
A quale indirizzo punta MSAcpi_ThermalZoneTemperature ?
Certo, hai ragione anche tu Semi.genius ... Se Asus ha predisposto una dll specifica per le sue schede madri, il reversing della chiamata GetCPUTemperature potrebbe forse rivelarcelo ?
E se ACPI fosse uno standard ? Qualunque scheda madre che lo supporti potrebbe fornirci la lettura della temperatura , ed in questo caso WMI potrebbe avere davvero senso ...

[P8257 WebMaster]

Anche secondo me l'uso di WMI ha un senso in questo caso, molti software di rilevazione come il ben noto SpeedFan ne fanno uso appoggiandosi anche alle API del controllo delle performance di windows (perfos.dll)

Appoggiarsi ad un driver specifico del produttore dell'hardware implica dover gestire chiamate che possono essere diverse per modello di scheda madre, inoltre alle volte possono differire anche tra revisioni degli stessi driver.
Lo standard ACPI è ormai largamente supportato dall'hardware e il sistema dispone dei relativi performance coutners per cui a mio avviso una query wmi è senz'altro da preferire...

[mandrak]

Salve a tutti.
Cos'è WMI ?
E' un software aggiuntivo da installare e come si usa ?

[P8257 WebMaster]

WMI ovvero Windows Management Instrumentation (strumentazione gestione windows) è un'infrastruttura integrata nel sistema operativo che, attraverso un processo host (wmiprvse) - wmi provider service permette di eseguire interrogazioni a livello programmatico sul sistema utilizzando una sintassi molto simile a t-sql per sottoporre query riguardanti la configurazione hardware e software del sistema.

Praticamente è un servizio integrato che ti fornisce informazioni sul sistema.

uhm..siete sicuri che con WMI si possa ricavare la temperatura? iirc, si può sapere le informazioni sul sensore, ma il valore "CurrentReading" non lo popola...
http://msdn.microsoft.com/en-us/libr...93(VS.85).aspx

..come è scritto qui...

[P8257 WebMaster]

Questo 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
                MessageBox.Show(temp.ToString)
            Next
        Catch err As ManagementException
            MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
        End Try

Già postato in precedenza funziona, almeno sul mio sistema, di solito wmi si interfaccia con il bios per fare queste rilevazioni (smb) che è implementato dal driver del produttore della scheda madre o dai driver standard microsoft per cui la comodità è che in questo caso wmi fornisce l'astrazione del dato.
Chiedo scusa all'utente che ha iniziato il thread per non aver postato codice vb5 o vb6 se non ricordo male per l'interazione wmi occorre un componente aggiuntivo.

[mandrak]

Ci mancherebbe altro, vi ringrazio tutti.

Per provare il codice che hai messo a disposizione occorre prima installare WMI presumo.
Usando vb5&6 devo scaricare un particolare file di installazione o è sufficiente entrare nel Sito della Microsoft ?
Qual'è il link più giusto ?

[P8257 WebMaster]

WMI non si installa, è integrato in windows...

[P8257 WebMaster]

Con il metodo getobject di vb6 recuperi l'"istanza" di wmi su cui fare la query, guarda questo link e magari prova direttamente dato che (se non ricordo male) alcuni provider sono preinstallati nel sistema, probabilmente non avrai bisogno di librerie aggiuntive

http://www.eggheadcafe.com/tutorials...dows-mana.aspx

Se invece l'istruzione getobject ritorna errore oppure Nothing allora occorre cercare una libreria di interfacciamento per wmi con vb.

[mandrak]

L'esempio che è scritto sul Link funziona.
Mi restituisce l'elenco dei programmi (processi) in esecuzione nella macchina.
Ma come faccio ad adattarlo alle mie esigenze ?
Mi sento molto ignorante sull'argomento.

[P8257 WebMaster]

Bene, vuol dire che non hai bisogno di provider aggiuntivi in quanto la tua vb virtual machine lo include già...

Per il codice, devi fare un porting tra vb.net e vb6, viene una cosa simile a questa:

dim coltemp
dim objtemp
 
' forse anche così : 
' Set coltemp = GetObject("Winmgmts:root\WMI").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ")
Set coltemp = GetObject("Winmgmts:").ExecQuery("SELECT * FROM MSAcpi_ThermalZoneTemperature ")

For Each objtemp In colProcessList
    List1.AddItem "Temp =" & objtemp.CurrentTemperature
Next

' set oggetti = nothing

End Sub

Non l'ho provato, controlla le proprietà dell'oggetto objtemp restituito dalla query...