知识大全 VB.Net实现进程监视器的方法

Posted 2022-07-17 知

篇首语：知识以生命为前提，以经验为条件。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 VB.Net实现进程监视器的方法相关的知识，希望对你有一定的参考价值。

VB.Net实现进程监视器的方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　）可以查看进程的各项基本信息如cpu 内存父进程执行路径创建者等

　　）可以中止进程创建新进程

　　）可以配置目标进程配置刷新速度

　　最终效果图

　　（以下给出部分代码其余像进程的创建中止等使用process类将很容易实现）

　　）使用wmi获取父进程id 进程创建者

　　（注意使用wmi获得的内容不宜循环刷新这样代价比较大）

　　添加命名空间

　　Imports System Management

　　Public Class HandleObjectReady

　　Private plete As Boolean = false

　　Private obj As ManagementBaseObject

　　Public ReadOnly Property Complete As Boolean

　　Get

　　Return plete

　　End Get

　　End Property

　　Public ReadOnly Property Obj As ManagementBaseObject

　　Get

　　Return obj

　　End Get

　　End Property

　　Public Sub Done（ByVal sender As Object ByVal e As ObjectReadyEventArgs）

　　plete = true

　　obj = e NewObject

　　End Sub

　　End Class

　　Private Sub FillDetailUseWmi（ByVal pID As Integer）

　　Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher（（ Select * From Win _Process Where ProcessID= + pID））

　　Dim moc As ManagementObjectCollection = searcher Get

　　Dim observer As ManagementOperationObserver = New ManagementOperationObserver

　　Dim hor As HandleObjectReady = New HandleObjectReady

　　AddHandler observer ObjectReady AddressOf hor Done

　　For Each mo As ManagementObject In moc

　　mo InvokeMethod（observer GetOwner Nothing）

　　While Not hor Complete

　　System Threading Thread Sleep（）

　　End While

　　Dim user As String =

　　（hor Obj（ returnValue ） ToString = ）

　　user = hor Obj Properties（ User ） Value ToString

　　If Not Me mDict ContainsKey（pID） Then　　Return

　　End If

　　If （（Not （mo（ ParentProcessID ）） Is Nothing） _

　　AndAlso Me mDict ContainsKey（Convert ToInt （mo（ ParentProcessID ）））） Then

　　Me mDict（pID） ParentProce = Me mDict（Convert ToInt （mo（ ParentProcessID ））） ProceName

　　End If

　　Me mDict（pID） Creator = user

　　If （Not （Me HandleDetailList） Is Nothing） Then

　　Me HandleDetailList（Me mDict（pID））

　　End If

　　searcher Dispose

　　searcher = Nothing

　　moc Dispose

　　moc = Nothing

　　observer = Nothing

　　hor = Nothing

　　End Sub

　　）使用性能计数器计算cpu利用率

　　）计算过程

　　//通过计数器获取idle空闲进程cpu占用率r

　　//通过process类的TotalProcessorTime属性获取各进程的cpu时间求和得各进程（除空闲进程idle 该进程无法通过process类获得cpu时间）cpu时间和t

　　//通过t /（ r ）得到总cpu时间t

　　//对各进程通过TotalProcessorTime获得进程cpu时间tnew 计算

　　（Tnew told）/t 即得该进程的cpu占用率其中told是程序中记录的该进程上一次的TotalProcessorTime

　　）关于性能计数器

　　系统会为每个进程分配一个计数器通过new PerformanceCounter（ Process % Processor Time 进程名称）实例化该计数器使用计数器对象的NextValue方法可以得到进程占用cpu的百分比

　　（第一次调用NextValue获取的值都为之后就没问题了这个要注意）

　　）Idle进程的含义

　　Idle意为懒散的无所事事事实上 idle不能算著一个进程它用于表示cpu空闲资源它所占的比率越高表示你的机器越空闲

　　）多核CPU或使用超线程技术的CPU

　　对于多核或使用超线程技术的cpu 根据计数器求得的idle进程cpu占用比率将超过 % 此时应将idle的cpu利用率/总的cpu利用率所得作为真正的idle的cpu利用率

　　添加命名空间

　　Imports System Diagnostics

　　Dim mIdle As PerformanceCounter = New PerformanceCounter（ Process % Processor Time Idle ）

　　Dim mTotal As PerformanceCounter = New PerformanceCounter（ Process % Processor Time _Total ）

　　Private Sub FillNeedRefreshInfo（ParamArray ByVal pCurrentAll（） As Process）

　　Me mCurrentTotalCpuTime = Me CalCurrentTotalCpuTime

　　Dim i As Integer =

　　Do While （i < pCurrentAll Length）

　　If （pCurrentAll（i） Id = ） Then

　　Me mDict（pCurrentAll（i） Id） CpuPercent = Me mIdleCpuPercent

　　Else

　　Try Dim ms As Long = CType（pCurrentAll（i） TotalProcessorTime TotalMilliseconds Long）

　　Dim d As Double = （（ms Me mDict（pCurrentAll（i） Id） OldCpuTime） * _

　　&（ / Me mCurrentTotalCpuTime））

　　Me mDict（pCurrentAll（i） Id） CpuPercent = d

　　Me mDict（pCurrentAll（i） Id） OldCpuTime = ms

　　Catch As System Exception

　　End Try

　　End If

　　If （Not （Me HandleProceRefresh） Is Nothing） Then

　　Me HandleProceRefresh（Me mDict（pCurrentAll（i） Id）（ Me mIdleCpuPercent））

　　End If

　　i = （i + ）

　　Loop

　　End Sub

　　Private Function CalCurrentTotalCpuTime（） As Double

　　Dim d As Double =

　　Dim idlePercent As Double = mIdle NextValue

　　Dim totalPercent As Double = mTotal NextValue

　　If （totalPercent = ） Then

　　Me mIdleCpuPercent =

　　Else

　　Me mIdleCpuPercent = （idlePercent * （ / totalPercent））

　　End If

　　For Each p As Process In Me mCurrentAll

　　If （（p Id = ） _

　　OrElse p HasExited） Then

　　 TODO Warning！！！ continue If

　　End If

　　If （（Me mDict Is Nothing） _

　　OrElse Not Me mDict ContainsKey（p Id）） Then

　　d = （d + p TotalProcessorTime TotalMilliseconds）

　　Else

　　d = （d _

　　+ （p TotalProcessorTime TotalMilliseconds Me mDict（p Id） OldCpuTime））

　　End If

　　Return （d / （ mIdleCpuPercent））

cha138/Article/program/net/201311/12462