锐客网

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

vb.netcpu温度 vbnet cint

IT技术Long

VB 如何得到CPU温度呢？Public Function GetCPUTemp() As Double
Dim iAs Integer
Dim mCPUAs Variant
Dim uAs Variant
Dim sAs String
Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECTCurrentTemperatureFromMSAcpi_ThermalZoneTemperature")
For Each u In mCPU
s = su.CurrentTemperature
Next
Set mCPU = Nothing
GetCPUTemp = (s - 2732) / 10
End Function
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Print GetCPUTemp()
End Sub
如何用VB.Net进行CPU温度读取没有命令可以查看CPU温度vb.netcpu温度，可以通过第三方软件鲁大师查看CPU温度：
百度搜索鲁大师vb.netcpu温度，并进行下载安装；
运行已安装vb.netcpu温度的软件的 ， 在界面中就能看到CPU温度：
如何用VB.net或者vb6.0实现类似任务管理器CPU使用记录绘图？要求当图形超过右边界后自动向左平移通过注册表添加
HKEY_CLASSES_ROOT
中添加 项 名字格式 .*（如 .rar）
在该项的 默认值处 数据 随便输 但是 最好有意义的字符
在这个主项下在创建一个项 名字是 vb.netcpu温度你先前在默认处输入的字符
在该项的默认处输入的是 这个扩展名的介绍
在该项下创建名为
DefaultIcon
Shell
ShellEx
三个项
DefaultIcon的默认值是图标文件的地址和索引
如"E:\a.exe,0"
在Shell的默认值处 天 Open
该键下创建 Open项
其默认值是 在右键菜单中的首项的名字
在这个项下创建一个 command的项 在默认值处
"程序的地址" 命令行参数 "%1"(这个是要打开的文件地址 %1是由系统指定）如 "E:\a.exe" "%1"
或 "D:\Xmp\bin\Xmp.exe" /play "%1" /openfrom WndExplr /startfrom LocalFile
以vb.netcpu温度我的知识我只能说这些了
VB 怎么获取 CPU温度和硬盘温度首先运行VB6中文版 ， 建立一个标准的exe工程，将窗体命名为frmmain，borderstyle属性设为：3-fixed，caption ， 属性设置为空；接着添加一个frame控件——“frame1”，caption属性设置为空，再添加picturebox控件pctPrg，前景色为绿色，背景色为浅红色；最后添加一个定时器控件——“timer”，interval设置为100（当然，也可以根据自己的需要设置读取间隔） ， enabled设置为true，其他的属性采用系统的默认值，调整窗体和控件到适当位置和适当大小即可（参见附图） 。
2.编写程序代码 ， 双击窗体frmmain并输入以下代码
OptionExplicit'变量检查
PrivateDeclareFunctionRegQueryValueExLib"advapi32.dll"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallpReservedAsLong,lpTypeAsLong,lpDataAsAny,lpcbDataAsLong)AsLong
'获取一个指定的注册表项的设置值
PrivateDeclareFunctionRegOpenKeyLib"advapi32.dll"Alias"RegOpenKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong
'打开一个指定的的注册表项
PrivateDeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong
'关闭系统注册表中的指定项（或指定键）
PrivateConstREG_DWORD=4
PrivateConstHKEY_DYN_DATA=https://www.04ip.com/post/H80000006
【vb.netcpu温度 vbnet cint】'这两个常数是读写注册表必须的
'以上API函数和常数结合能够实现对注册表任意指定项的访问
PrivateAvgAsLong
'CPU资源占用参数平均数
PrivateSumAsLong
'CPU资源占用参数合计数
PrivateIndexAsLong'统计次数
'窗体级函数、常数和变量声明结束
PrivateFunctionGetCPUUsage()AsLong
OnErrorResumeNext
'忽略可能产生的错误
DimDataAsLong,TypAsLong,SizeAsLong
DimhKeyAsLong
DimhRetAsLong
hRet=RegOpenKey(HKEY_DYN_DATA,"PerfStats\StatData",hKey)
'打开该主键
hRet=RegQueryValueEx(hKey,"KERNEL\CPUUsage",0,REG_DWORD,Data,4)
'读取主键值
GetCPUUsage=Data
'为自定义函数赋值
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=Sumtmp'累加统计
Index=Index1'次数统计
Avg=Int(Sum/Index)'求平均值
pctPrg.Cls'清除图示内容
pctPrg.Line(0,0)-(tmp,18),,BF
'以绿色图示资源占用状况
pctPrg.Line(Avg,0)-(Avg,18),HFF
'以深红色画出平均线
pctPrg.Line(Avg1,0)-(Avg1,18),HFF
EndSub
'程序结束
通过以上步骤，装备精良的CPU监视器就制作完成了 。
注意事项
需要说明的是，在内存配置较低的计算机中（比如内存32MB，Windows98第二版），CPU的占有率是较高的，一般能够达到50% ， 这可能是由于系统需要CPU进行许多的运算模拟来弥补资源的不足 。然而在88MB内存，同样操作系统的机器上，占有率一般只有10% 。另外，本文主窗体中定时器运行过程函数中调用的FormatPercent函数是VB6.0新添加的一个函数，它的作用是将一个表达式转化成百分数 。用VB5.0开发的读者需要采取其他变通方法，以实现监控CPU功能 。本程序在Windows98第二版、VB6.0中文企业版下测试通过 。
关于vb.netcpu温度和vbnet cint的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何利用虚拟机模拟服务器装系统？ 怎么模拟服务器装系统

    下一篇：如何在iPad上连接服务器？ ipad怎么链接服务器