Dim u, s, CPUTemperature Set mCPU=GetObject("winmgmts:{impersonationLevel=impersonate}!root\wmi").ExecQuery("Select CurrentTemperature From MSAcpi_ThermalZoneTemperature") For Each u In mCPU s=s&u.CurrentTemperature Next Set mCPU=Nothing CPUTemperature=(s-2732)/10 MsgBox "The Current Temperature of Your CPU is: "&CPUTemperature&"℃"
不知為什麼.我ibm手提電腦.運行時.可以顯示core 2 cpu 每一個的反回溫度.但就是不變化的.每次運行都一樣的數值..要重新開機.數字才會變一次...到底是為什麼了..我下載了一個查看cpu溫度的軟件.郤很正常的顯示core 2 2個cpu的溫度在不斷變化....