锐客网

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

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

IT技术获取

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
怎么用.NET来获取CPU，显卡和硬盘的温度在DotFramewoek 中封装了System.Managementvb.net获取硬件温度，
这里提供vb.net获取硬件温度的功能可以获取系统的信息vb.net获取硬件温度，应该包括硬件温度 。
如何用VB.Net进行CPU温度读取没有命令可以查看CPU温度，可以通过第三方软件鲁大师查看CPU温度：
百度搜索鲁大师 ， 并进行下载安装；
运行已安装的软件的 ， 在界面中就能看到CPU温度：
VB如何获取硬件信息比如CPU温度，显卡 ， CPUID号之类的、Dim MemoyCounter As New ComputerInfo()
Dim CPUCounter As New PerformanceCounter("Processor", "% Processor Time", "_Total")
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim CPU As Double = CPUCounter.NextValue
Dim neicun As Double = (MemoyCounter.TotalPhysicalMemory - MemoyCounter.AvailablePhysicalMemory) / MemoyCounter.TotalPhysicalMemory * 100%
获取CPU及物理内存使用率
VB 怎么获取 CPU温度和硬盘温度首先运行VB6中文版vb.net获取硬件温度，建立一个标准的exe工程vb.net获取硬件温度，将窗体命名为frmmainvb.net获取硬件温度，borderstyle属性设为：3-fixed，caption，属性设置为空vb.net获取硬件温度；接着添加一个frame控件——“frame1” ， caption属性设置为空，再添加picturebox控件pctPrg，前景色为绿色 ， 背景色为浅红色vb.net获取硬件温度；最后添加一个定时器控件——“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
'这两个常数是读写注册表必须的
'以上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
'为自定义函数赋值

推荐阅读


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

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