VB-CPU温度检测

时间：2013-09-05 11:23:56
【文件属性】：

文件名称：VB-CPU温度检测

文件大小：581B

文件格式：TXT

更新时间：2013-09-05 11:23:56

CPU温度检测

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_ThermalZoneTemperature") For Each u In mCPU s = s & u.CurrentTemperature Next Set mCPU = Nothing

立即下载

网友评论

  • 同上，我也发现问题了，什么反应都没有，不知道怎么回事，是不是代码不全？？？
  • 下载该资源后，使用vb软件按照文本中代码进行编辑，并不能实现cpu温度监测，完全没有反应，是资源中代码不全还是其他的问题？急需基于vb的cpu温度监测程序设计，有可实现资源的请联系

相关文章