程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> 編程綜合問答 >> vb編程-如何實現從WMI動態獲取CPU溫度

vb編程-如何實現從WMI動態獲取CPU溫度

編輯:編程綜合問答
如何實現從WMI動態獲取CPU溫度

本人通過VB編程從WMI獲取CPU溫度,但卻是靜止不動的,有高手說是必須在某些系統信息發生改變時才會刷新數據。但打開SPEEDFAN溫度檢測後,WMI裡的CPU溫度數據卻動態地刷新著。並且是准確地。所以在這請教高手解釋這裡面的原因。

附上VB代碼

Private Sub Command1_Click()

    MsgBox "CPU 溫度 : " & CPU_Temperature & " °C"

End Sub

Private Function CPU_Temperature() As Integer

    Dim WMIsvc As Object

    Dim CltItems As Object, CltItem As Object

    Dim Q As String

    Set WMIsvc = GetObject("winmgmts:\\.\root\WMI")

    Q = "SELECT * FROM MSAcpi_ThermalZoneTemperature"

    Set CltItems = WMIsvc.ExecQuery(Q, , 48)

    For Each CltItem In CltItems

        CPU_Temperature = CltItem.CurrentTemperature

    Next

    CPU_Temperature = (CPU_Temperature - 2732) / 10

    Set CltItem = Nothing

    Set CltItems = Nothing

    Set WMIsvc = Nothing

End Function

最佳回答:


是不是這個wmi數據沒有刷新。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved