CPU温度检测 Documentation and support is available at: http://www.techpowerup.com/realtemp http://www.xtremesystems.org/forums/showthread.php?p=2809778#post2809778
Public Function GetCPUTemp() As Double 'cpu温度检测 Dim i As Integer Dim mCPU As Variant Dim u As Variant Dim s As String Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_Thermal