| |
|
|
- 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
|
|
|
| |
|
|
| |
|
- 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 | |
|
| |
|
|
|
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". |
|
|
| |
|
|
|
| |
|
| |
|
|
|
p.specht
| Wird gleich getestet.. danke! |
|
|
| XProfan 11Computer: 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] |
|
|
| |
|
|
|
p.specht
| Das allein wars offenbar nicht. Werde mir die Strukturen des Temperaturdingsbums näher anschauen müssen... |
|
|
| XProfan 11Computer: 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. |
|
|
| |
|
|
|
| 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)
| | | | |
| | 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 ▲ |
| |
|
AnswerTopic-Options | 22.888 Views |
ThemeninformationenDieses Thema hat 5 subscriber: |