somebody 当前离线
六级士官
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&"℃"复制代码
评分人数
hkmhd 当前离线
TOP
qq191035066 当前离线
二级士官
ieutk 当前离线
荣誉版主
xxx3212 当前离线
发表于 2007-11-10 01:58
| 
