xminxmin
دوشنبه 23 خرداد 1390, 19:31 عصر
سلام دوستان
من در مورد بدست آوردن دمای CPU کلی جستجو کردم. همه کدهایی هم که پیدا کردم همینی هست که در زیر آوردم. همه سایت ها همین رو می دن.
اما این کد انگار یه جاییش می لنگه!
یه فیلم در یوتوب دیدم که طرف برنامه رو نوشت و اجرا هم کرد. یعنی ذکر کرده بود اگر با Admin فایل ساخته شده در Debug یا release رو اجرا کنم مشکل حله. و تو اون ویدئو واقعا هم حل بود و کار کرد.
اما من همین کد رو مثل همون ویدئو نوشتم اما کار نمی کنه.
دوستان محبت کنند و چاره ای بیندیشند!
این هم کد:
Imports System
Imports System.Management
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get()
Dim temp As Double = CDbl(queryObj("CurrentTemperature"))
temp = (temp - 2732) / 10.0
MessageBox.Show(temp.ToString)
Next
Catch ex As ManagementException
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
من در مورد بدست آوردن دمای CPU کلی جستجو کردم. همه کدهایی هم که پیدا کردم همینی هست که در زیر آوردم. همه سایت ها همین رو می دن.
اما این کد انگار یه جاییش می لنگه!
یه فیلم در یوتوب دیدم که طرف برنامه رو نوشت و اجرا هم کرد. یعنی ذکر کرده بود اگر با Admin فایل ساخته شده در Debug یا release رو اجرا کنم مشکل حله. و تو اون ویدئو واقعا هم حل بود و کار کرد.
اما من همین کد رو مثل همون ویدئو نوشتم اما کار نمی کنه.
دوستان محبت کنند و چاره ای بیندیشند!
این هم کد:
Imports System
Imports System.Management
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim searcher As New ManagementObjectSearcher("root\WMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature")
For Each queryObj As ManagementObject In searcher.Get()
Dim temp As Double = CDbl(queryObj("CurrentTemperature"))
temp = (temp - 2732) / 10.0
MessageBox.Show(temp.ToString)
Next
Catch ex As ManagementException
MessageBox.Show(ex.Message)
End Try
End Sub
End Class