应用Vb探测一个应用程序运行时cpu的占用情况，请指点

现找了点代码给你!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, "PerfStats\StatData", hKey) '打开该主键 hRet = RegQueryValueEx(hKey, "KERNEL\CPUUsage", 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, "KERNEL\CPUUsage", 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