Monitor CPU temperature in Windows

[Richard Frost]

1) delete the first line if you don't download the icon file
2) needs liberati.ttf, a font that used to be included with QB64
3) works as is with XP, requires running as administrator in 10

Code: QB64: [Select]

1. $ExeIcon:'temp2.ico'
2. q$ = Chr$(34) '                             quote character
3. Screen _NewImage(140, 64, 32)
4. _ScreenMove _DesktopWidth - 172, _DesktopHeight - 120
5. If _FileExists("liberati.ttf") = 0 Then System
6. f& = _LoadFont("liberati.ttf", 60)
7.  
8. Open "ztemp.bat" For Output As #1
9. Print #1, "@echo off"
10. Print #1, "for /f " + q$ + "skip=1 tokens=2 delims==" + q$ + " %%A in ('wmic /namespace:\\root\wmi PATH MSAcpi_ThermalZoneTemperature get CurrentTemperature /value') do set /a " + q$ + "HunDegCel=(%%~A*10)-27315" + q$
11. Print #1, "echo %HunDegCel:~0,-2%.%HunDegCel:~-2% Degrees Celsius"
12. Close #1
13.  
14. Do: _Limit 1
15.     Shell _Hide "ztemp.bat > ztemp.dat"
16.     If _FileExists("ztemp.dat") Then
17.         Cls
18.         Open "ztemp.dat" For Input As #1
19.         Line Input #1, z$
20.         Close #1
21.         z& = Val(z$)
22.         _Font f&: _PrintString (10 - (z < 100) * 20, 5), LTrim$(Str$(z&))
23.         _Font 14: Locate 2, 15: Print Chr$(248); "C";
24.     End If
25. Loop Until InKey$ = Chr$(27)
26. Shell "del ztemp*.*"
27. System

[DANILIN]

cpu_temp.bat

Code: [Select]

@ wmic /namespace:\\root\wmi PATH MSAcpi_ThermalZoneTemperature get CurrentTemperature
@ pauseCurrentTemperature
3262
3030
Kelvin