阅读647 返回首页    go 阿里云 go 技术社区[云栖]

获得CPU温度的函数

Public Function GetCPUTemp() As Double
          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_ThermalZoneTemperature")
          For Each u In mCPU
                  s = s & u.CurrentTemperature
          Next
            
          Set mCPU = Nothing
            
          GetCPUTemp = (s - 2732) / 10
            DoEvents
  End Function
 

最后更新：2017-04-02 00:06:22

  上一篇：go 对C++ STL iostram 中 cin.get(char* cs,int size,char c='/n') 的理解
  下一篇：go AnkhSVN 1.0.2778 简体中文版