level 7
360全家桶
![[哈哈]](/static/emoticons/u54c8u54c8.png)
level 11
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
![[太开心]](/static/emoticons/u592au5f00u5fc3.png)
level 11
level 12
![[真棒]](/static/emoticons/u771fu68d2.png)
为什么不用vs2016![[狂汗]](/static/emoticons/u72c2u6c57.png)
level 13
level 7
暴牙归来
楼主
Public Function GetCPUTemp() As Double
Dim i As Integer = 0
Dim mCPU As Object
Dim u As Object
Dim s As String = String.Empty
mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature")
For Each u In mCPU
s = s & u.CurrentTemperature
Next
mCPU = Nothing
GetCPUTemp = (s - 2732) / 10
End Function
@Nukepayload2
2017年01月03日 11点01分
7
Dim i As Integer = 0
Dim mCPU As Object
Dim u As Object
Dim s As String = String.Empty
mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature")
For Each u In mCPU
s = s & u.CurrentTemperature
Next
mCPU = Nothing
GetCPUTemp = (s - 2732) / 10
End Function
@Nukepayload2
这个看不出有什么问题。关键是你必须在进行测试的时候重新获取CPU温度。 _
2017年01月03日 11点01分
@Nukepayload2 是下面这样吗
2017年01月03日 11点01分
level 7
暴牙归来
楼主
Public Function GetCPUTemp() As Double
Dim i As Integer = 0
Dim mCPU As Object
Dim u As Object
Dim s As String = String.Empty
mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature")
For Each u In mCPU
s = s & u.CurrentTemperature
Next
mCPU = Nothing
GetCPUTemp = (s - 2732) / 10
End Function
Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
Dim cputemputure As Long = GetCPUTemp()
If cputemputure >= 80 Then
Me.Label3.ForeColor = Color.Red
Me.Label3.Text = "CPU的实时温度 " & cputemputure
ElseIf cputemputure >= 40 And cputemputure < 80 Then
Me.Label3.ForeColor = Color.Yellow
Me.Label3.Text = "CPU的实时温度 " & cputemputure
Else
Me.Label3.ForeColor = Color.Green
Me.Label3.Text = "CPU的实时温度 " & cputemputure
End If
End Sub
是这样重新获取吗@Nukepayload2
2017年01月03日 12点01分
8
Dim i As Integer = 0
Dim mCPU As Object
Dim u As Object
Dim s As String = String.Empty
mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature")
For Each u In mCPU
s = s & u.CurrentTemperature
Next
mCPU = Nothing
GetCPUTemp = (s - 2732) / 10
End Function
Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
Dim cputemputure As Long = GetCPUTemp()
If cputemputure >= 80 Then
Me.Label3.ForeColor = Color.Red
Me.Label3.Text = "CPU的实时温度 " & cputemputure
ElseIf cputemputure >= 40 And cputemputure < 80 Then
Me.Label3.ForeColor = Color.Yellow
Me.Label3.Text = "CPU的实时温度 " & cputemputure
Else
Me.Label3.ForeColor = Color.Green
Me.Label3.Text = "CPU的实时温度 " & cputemputure
End If
End Sub
是这样重新获取吗@Nukepayload2
level 9
level 13
楼主的程序效果不好。我玩了一盘游戏温度都比测试高。
_
2017年01月13日 12点01分
11
_
我也不知道，这效果真尼玛服了
2017年01月13日 13点01分
事实上鲁大师的CPU温度压力测试的原理也不过如此@Nukepayload2
2017年01月14日 01点01分
回复 暴牙归来 : 鲁大师的比你的效果好 .
2017年01月14日 02点01分
level 11
