HanDs
管理员

[Visual Studio文章] 用VB6编程监控CPU的资源状况 





学习中请遵循国家相关法律法规,黑客不作恶。没有网络安全就没有国家安全

本站需要登陆后才能查看

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

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



个精致的图示窗口中。

  编程原理

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

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

  开发步骤

  1.设计程序界面

  首先运行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

  '初始化应用程序标题栏


学习中请遵守法律法规,本网站内容均来自于互联网,本网站不负担法律责任
V B6
#1楼
发帖时间:2016-7-9   |   查看数:0   |   回复数:0
游客组
快速回复