Italia
Foro

CPU Temperatur mit "MSAcpi_ThermalZoneTemperature" auslesen

 
- Page 1 -



Michael
Axtmann
Ciao,
kennt sich jemand mit der "MSAcpi_ThermalZoneTemperature" aus? Ich bekomme das nicht wirklich hin....
Ich bin mir nicht einmal sicher, ob ich das richtig mache und ob das überhaupt supportati wird!? Das Programm corre zwar, aber es steht überall 0 drin.
Folgenden Code habe ich ausprobiert:
 $H windows.ph
Declare TempStat#

Proc ShowTemp

    Def MSAcpi_ThermalZoneTemperature(1)
    Def Temp(1)
    Dim TempStat#,32
    Long TempStat#,0=32
    MSAcpi_ThermalZoneTemperature(TempStat#)
    Print Temp(Long(TempStat#,4)),"Active"
    Print Temp(Long(TempStat#,8)),"ActiveTripPoint"
    Print Temp(Long(TempStat#,12)),"ActiveTripPointCount"
    Print Temp(Long(TempStat#,16)),"CriticalTripPoint"
    Print Temp(Long(TempStat#,20)),"CurrentTemperature"

Endproc

Cls
Decimals 0
ShowTemp
Waitinput
 
30.07.2012  
 



 
- Page 2 -



p.specht

Gibt's nicht mehr im Net. Dafür das hier (Vorsicht, keine Freeware, sondern 30-Tage Gratis-Evaluierung):
[...] 
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
28.08.2012  
 




Peter
Max
Müller
Der hier?
[...] 
 
XProfan X3, X4ß, Win 10.1
28.08.2012  
 




p.specht

Toll, ich hatte gefühlte 100 Links verfolgt, gingen alle zu MS TechNet, und dort gabs nix mehr! Bravo!
Bleibt nur die Frage, wie man VB korrekt nach XProfan übersetzt. Da laß ich euch mal machen
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
28.08.2012  
 



Ich hab auch "100" Links verfolgt und lauter Müll aber nicht diesen Generator
entdeckt.

In der Lizenzdatei steht:

You may not
·work around any technical limitations in the software;
·reverse engineer, decompile or disassemble the software, except and only to the extent that applicable law expressly permits, despite this limitation;
·make more copies of the software than specified in this agreement or allowed by applicable law, despite this limitation;
·publish the software for others to copy;


... also potrebbe ich die Software wohl nicht hier hochladen und zum Herunterladen anbieten?! CNet scheints nicht so sehr zu jucken?! Verstehe Io l' Satz richtig?

VB nach XProfan braucht man imho ja garnicht sondern man kann einfach
nur abschauen wie die Bezeichnungen heissen und die dann in den Query-
String einfügen und die Rückgabewerte kann man auch gleich einsehen dank
"Execute Code".
 
28.08.2012  
 



@Peter: Ich glaube Dein Query funktioniert nicht weil in der wmi.inc
KompilierenMarkierenSeparieren
StringToBStr("root\\cimv2")
>

statt
KompilierenMarkierenSeparieren
StringToBStr("root\\WMI")
>

steht.
 
28.08.2012  
 




p.specht

Wird gleich getestet.. danke!
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
28.08.2012  
 



[OFFTOPIC]Lol, jetzt hast Dein Avatar deaktiviert ( [...]  ) !

Nachtrag: Ah, jetzt hast wieder Dein typsch... [/OFFTOPIC]
 
28.08.2012  
 




p.specht

Das allein wars offenbar nicht. Werde mir die Strukturen des Temperaturdingsbums näher anschauen müssen...
 
XProfan 11
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
28.08.2012  
 




p.specht

Hallo Michael A.,
hast Du's mit den Angaben von iF und der MSDN-Info nun geschafft, die Temperatur auszulesen? Ich nicht... würde mich aber stark interessieren. (An sich ein tolles System, wo man mit dem Compi in SQL circa dessen Befindlichkeit sprechen kann. Irgenwie wills aber bei mir nicht. Zu doof, was oft nur an einer Kleinigkeit liegt).
Hat's jemand geschafft?
Gruss
P. Specht
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
23.09.2012  
 



@Peter: Schau Dir bitte mal meinen Systemprofiler ( [...]  ) an mit dem es auch possibile

ist Systemprofile seinem XProfan-Konto zuzuordnen - mit dem lade ich so wichtige

Infos. Ich schaue gleich mal ob und wie ich diese Temperatur ermitteln kann und poste

hier dann den Quelltext.
 
23.09.2012  
 



Juhu, ja - geht ganz gut:

Quelltext (mit leicht abgehänderter wmi.inc) und Bin:

Download




KompilierenMarkierenSeparieren
 {$cle}
 {$compiler c:\xprofan11\}
 {$runtime c:\xprofan11\}
 {$pushkeyword SysAllocString,CoUninitialize,CoUninitializeEx,CoInitializeEx,CoInitializeSecurity,CoCreateInstance,CoSetProxyBlanket,SafeArrayGetDim,SafeArrayGetUBound,SafeArrayGetElement}
#include WMI.inc
wminamespace$="WMI"
var L&=wmi_call("SELECT * FROM MSAcpi_ThermalZoneTemperature","CurrentTemperature")
movehandletolist(l&)
listbox$("",0)
426 kB
Kurzbeschreibung: Quelltext
Hochgeladen:23.09.2012
Downloadcounter124
Download
42 kB
Hochgeladen:23.09.2012
Downloadcounter144
Download
8 kB
Hochgeladen:23.09.2012
Downloadcounter158
Download
 
23.09.2012  
 




p.specht

Klappt (mit Adminberechtigung, in Grenzen). Danke per deine Mühe.
Offenbar werden bei mir aber stets die gleichen Werte geliefert.
Ich hatte einst WMI stark eingeschränkt, presumibilmente hat das damit zu tun.
 
Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...
23.09.2012  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

22.733 Views

Untitledvor 0 min.
Selmo24.03.2019
Andre Rohland06.01.2019
maroro18.06.2018
Christof Neuß20.07.2017
Di più...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie