
vb.net如何获取当前进程的cpu和内存使用率? 20
就是为了能在进程运行时隔2-3秒更新一次当前进程的cpu使用率(%)和内存(MB)到label7中。不要获取pid的方式,因为程序后面我要改名字的。...
就是为了能在进程运行时隔2-3秒更新一次当前进程的cpu使用率(%)和内存(MB)到label7中。
不要获取pid的方式,因为程序后面我要改名字的。 展开
不要获取pid的方式,因为程序后面我要改名字的。 展开
1个回答
展开全部
使用wmi
类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率
示例代码: Private Sub Timer1_Timer()
Dim WMI服务 As Object
Dim 对象 As Object
Dim 子对象 As Object
Dim 电脑名 As String
Dim 刷新 As Long
刷新 = 0
电脑名 = "." '表示本地计算机
Set WMI服务 = GetObject("winmgmts://" & 电脑名 & "/root/cimv2")
Set 对象 = WMI服务.InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子对象 In 对象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子对象.Name & "[" & 子对象.CurrentClockSpeed & "Hz] 使用率:" & _
子对象.LoadPercentage & "%"
Next
End Sub
类“Win32_Processor”中LoadPercentage属性为当前的cpu使用率
示例代码: Private Sub Timer1_Timer()
Dim WMI服务 As Object
Dim 对象 As Object
Dim 子对象 As Object
Dim 电脑名 As String
Dim 刷新 As Long
刷新 = 0
电脑名 = "." '表示本地计算机
Set WMI服务 = GetObject("winmgmts://" & 电脑名 & "/root/cimv2")
Set 对象 = WMI服务.InstancesOf("Win32_Processor")
Me.CurrentX = 0
Me.CurrentY = 0
For Each 子对象 In 对象
If 刷新 = 0 Then
刷新 = 1
Me.Cls
End If
Me.Print 子对象.Name & "[" & 子对象.CurrentClockSpeed & "Hz] 使用率:" & _
子对象.LoadPercentage & "%"
Next
End Sub
追问
代码的确可以运行,但是我是vs2019啊。
而且,我要的是我自己写的这个程序所有子进程的cpu使用率和内存使用,不是整个电脑的使用情况。
同时,每次显示都会导致整个进程卡一下。

2024-11-19 广告
这方面更多更全面的信息其实可以找下大雅新。深圳市大雅新科技有限公司从事KVM延长器,DVI延长器,USB延长器,键盘鼠标延长器,双绞线视频传输器,VGA视频双绞线传输器,VGA延长器,VGA视频延长器,DVI KVM 切换器等,优质供应商,...
点击进入详情页
本回答由大雅新科技有限公司提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询