c 获取cpu温度 怎么获取CPU的温度

你知道如何获取CPU的温度吗?跟着小编一起学习获取CPU的温度的方法吧。

作为一个系统级程序员或者编程爱好者,掌握一些系统的高级编程技巧是非常有意义的。本文将介绍如何利用一些高级的编程技巧来实现动态监控。

虽然Windows 98“系统工具”中的“资源状况”程序能够监视CPU的资源占用状况,但是那些相关的数据却无法传递到我们自己的程序中。为此,笔者用VB 6编写了一个具有上述功能的CPU监视软件,它可以实现对CPU资源状况的监视并取得有关数据,并且能够显示到一个精致的图示窗口中。

编程原理

CPU的资源占用情况真正反映在CMOS中,但是如果我们直接从这里开始编程,那将是一件非常复杂的工作。幸好,Windows 98已经帮我们做好了这一步,它的底层技术能够从CMOS中获取CPU的资源占用状况参数并且记录到注册表中“HKEY_DYN_DATAPerfStatsStatData”的分支“KERNELCPUUsage”中,通过周期性地读取该键的键值,并且将参数传递到我们自己制作的监视器界面或者有关变量中,就可以即时获得并反映出CPU的使用状况了。

本程序的关键是以通用的方法获取相关键值并反映输出到自制的动态进度监视器上,为了更有利于观察、分析,我们将添加一个简单的趋势分析平均线。通过本文,初学者还将能了解如何从注册表的指定项获取数据和利用Picture控件实现进度指示器的编程技巧。

获取CPU的温度的方法

1.设计程序界面

c 获取cpu温度 怎么获取CPU的温度

首先运行VB 6中文版,建立一个标准的exe工程,将窗体命名为frmmain,borderstyle属性设为:3-fixed,caption,属性设置为空;接着添加一个frame控件——“frame1”,caption属性设置为空,再添加picturebox控件pctPrg,前景色为绿色,背景色为浅红色;最后添加一个定时器控件——“timer”,interval设置为100(当然,也可以根据自己的需要设置读取间隔),enabled设置为true,其他的属性采用系统的默认值,调整窗体和控件到适当位置和适当大小即可(参见附图)。

2.编写程序代码,双击窗体frmmain并输入以下代码

Option Explicit '变量检查

Private Declare Function RegQueryValueEx Lib "advapi32.dll " Alias "RegQueryValueExA " (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

'获取一个指定的注册表项的设置值

Private Declare Function RegOpenKey Lib "advapi32.dll " Alias "RegOpenKeyA " (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

'打开一个指定的的注册表项

Private Declare Function RegCloseKey Lib "advapi32.dll " (ByVal hKey As Long) As Long

'关闭系统注册表中的指定项(或指定键)

Private Const REG_DWORD = 4

Private Const HKEY_DYN_DATA = &&H80000006

'这两个常数是读写注册表必须的

'以上API函数和常数结合能够实现对注册表任意指定项的访问

Private Avg As Long

'CPU 资源占用参数平均数

Private Sum As Long

'CPU 资源占用参数合计数

Private Index As Long '统计次数

'窗体级函数、常数和变量声明结束

Private Function GetCPUUsage() As Long

On Error Resume Next

'忽略可能产生的错误

Dim Data As Long, Typ As Long, Size As Long

Dim hKey As Long

Dim hRet As Long

hRet = RegOpenKey(HKEY_DYN_DATA, "PerfStatsStatData ", hKey)

'打开该主键

hRet = RegQueryValueEx(hKey, "KERNELCPUUsage ", 0&&, REG_DWORD, Data, 4)

'读取主键值

GetCPUUsage = Data

' 为自定义函数赋值

hRet = RegCloseKey(hKey)

'关闭该主键

End Function

Private Sub Form_Load()

'初始化标题和提示信息

Dim hKey As Long, Data As Long

App.Title = "CPU监视器 占有率: "

Me.Caption = App.Title

'初始化应用程序标题栏

pctPrg.ToolTipText = "单击右键退出程序! "

RegOpenKey HKEY_DYN_DATA, "PerfStats StartStat ", hKey

RegQueryValueEx hKey, "KERNELCPUUsage ", 0, REG_DWORD, Data, 4

RegCloseKey hKey

'打开注册表的资源监控标识

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

'程序结束前关闭定时器

Timer.Enabled = False

End Sub

Private Sub Form_Unload(Cancel As Integer)

End '结束程序

End Sub

Private Sub pctPrg_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'右键单击退出程序

If Button = 2 Then

Unload Me

End If

End Sub

Private Sub Timer_Timer()

'利用定时器周期性地读取资源状况

'本程序每隔0.1秒读取一次数据

Dim tmp As Long ' CPU资源占用状况参数

tmp = GetCPUUsage '获得参数

Me.Caption = App.Title && FormatPercent(tmp / 100) '

'在窗体标题栏用百分比数字形式反映占用率

Sum = Sum + tmp '累加统计

Index = Index + 1 '次数统计

Avg = Int(Sum / Index) ' 求平均值

pctPrg.Cls ' 清除图示内容

pctPrg.Line (0, 0)-(tmp, 18), ,&& BF

'以绿色图示资源占用状况

pctPrg.Line (Avg, 0)-(Avg, 18), &&HFF

'以深红色画出平均线

pctPrg.Line (Avg + 1, 0)-(Avg + 1, 18), &&HFF

End Sub

'程序结束

通过以上步骤,装备精良的CPU监视器就制作完成了。

注意事项

需要说明的是,在内存配置较低的计算机中(比如内存32MB,Windows 98第二版),CPU的占有率是较高的,一般能够达到50%,这可能是由于系统需要CPU进行许多的运算模拟来弥补资源的不足。然而在88MB内存,同样操作系统的机器上,占有率一般只有10%。另外,本文主窗体中定时器运行过程函数中调用的FormatPercent函数是VB 6.0新添加的一个函数,它的作用是将一个表达式转化成百分数。用VB 5.0开发的读者需要采取其他变通方法,以实现监控CPU功能。本程序在Windows 98第二版、VB 6.0中文企业版下测试通过。

怎么获取CP

  

爱华网本文地址 » http://www.413yy.cn/a/236261/154349276.html

更多阅读

水稻是怎么来的 水稻是怎么种植的

????? 水稻是我国的主要粮食,大多数人都食用大米。但是我们通常食用的是脱壳之后的大米。事实上,很多人都没有见过水稻,也不知道水稻是怎么种出来的。下面就像大家介绍一下水稻是怎么种植的。选择合适的时间,山区一般一年一季水稻,种植

白巧克力是怎么做的 黑巧克力是怎么做的

黑巧克力是怎么做的――简介2013的七夕快到了,这里教大家做一款巧克力。。巧克力是以可可粉为主要原料制成的一种甜食。它不但口感细腻甜美,而且还具有一股浓郁的香气。在浪漫的情人节,它更是表达爱情少不了的主角。 黑巧克力是怎么做

电暖鞋安全吗 电暖鞋穿着安全吗?电暖鞋是怎么工作的?

电暖鞋穿着安全吗?电暖鞋是怎么工作的?――简介树叶还没落完,冬天已经悄悄的来了,随着温度不断地降低,不知道大家对于寒冬的到来,是否已经做好了准备呢?伴随着冬天温度的降低,如何温暖舒服的过完整个冬天,变成大家共同的难题?那么,电暖鞋的出现

摩托罗拉xt711 传授一篇关于摩托罗拉XT711 怎么ROOT的教程

传授一篇关于摩托罗拉XT711 怎么ROOT的教程――简介机型介绍:摩托罗拉XT711在多媒体娱乐功能方面的表现很出色,800万像素/氙气闪光灯/HDMI/720P,而且系统硬件也给力;摩托罗拉XT711怎么ROOT?机油们一键卸载内置秒懂,摩托罗拉XT711获取ROOT

煮鸡蛋剥皮小窍门 鸡蛋怎么煮的4个小窍门

   鸡蛋怎么煮的4个小窍门  说到水煮蛋,就算不会做饭的人也会煮。可要做出蛋黄嫩滑、蛋白又好剥的鸡蛋,许多人可能就是碰运气了。今天,小编就给大家介绍一下煮鸡蛋的4个绝招。  1. 别用沸水煮蛋  首先,沸腾的水会让鸡蛋

声明:《c 获取cpu温度 怎么获取CPU的温度》为网友原谅我爱鞋如命分享!如侵犯到您的合法权益请联系我们删除