锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net获取硬件温度 vbnet获取电脑信息( 二 )

IT技术获取


hRet=RegCloseKey(hKey)
'关闭该主键
EndFunction
PrivateSubForm_Load()
'初始化标题和提示信息
DimhKeyAsLong,DataAsLong
App.Title="CPU监视器占有率："
Me.Caption=App.Title
'初始化应用程序标题栏
pctPrg.ToolTipText="单击右键退出程序！"
RegOpenKeyHKEY_DYN_DATA,"PerfStats\StartStat",hKey
RegQueryValueExhKey,"KERNEL\CPUUsage",0,REG_DWORD,Data,4
RegCloseKeyhKey
'打开注册表的资源监控标识
EndSub
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
'程序结束前关闭定时器
Timer.Enabled=False
EndSub
PrivateSubForm_Unload(CancelAsInteger)
End'结束程序
EndSub
PrivateSubpctPrg_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
'右键单击退出程序
IfButton=2Then
UnloadMe
EndIf
EndSub
PrivateSubTimer_Timer()
'利用定时器周期性地读取资源状况
'本程序每隔0.1秒读取一次数据
DimtmpAsLong'CPU资源占用状况参数
tmp=GetCPUUsage'获得参数
Me.Caption=App.TitleFormatPercent(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
EndSub
'程序结束
通过以上步骤，装备精良的CPU监视器就制作完成了 。
注意事项
需要说明的是，在内存配置较低的计算机中（比如内存32MB，Windows98第二版），CPU的占有率是较高的，一般能够达到50%，这可能是由于系统需要CPU进行许多的运算模拟来弥补资源的不足 。然而在88MB内存，同样操作系统的机器上，占有率一般只有10% 。另外 ， 本文主窗体中定时器运行过程函数中调用的FormatPercent函数是VB6.0新添加的一个函数，它的作用是将一个表达式转化成百分数 。用VB5.0开发的读者需要采取其他变通方法，以实现监控CPU功能 。本程序在Windows98第二版、VB6.0中文企业版下测试通过 。
【vb.net获取硬件温度 vbnet获取电脑信息】关于vb.net获取硬件温度和vbnet获取电脑信息的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：oracle控制文件在哪看，oracle查看控制文件路径

下一篇：截图如何截长图excel，截图如何截长图手机