用VBS實現監(jiān)視進程創(chuàng)建與刪除的代碼

來源：本站原創(chuàng)|時間：2020-01-10|欄目：vb|點擊：次

監(jiān)視進程的創(chuàng)建，在每次創(chuàng)建新的進程時，臨時事件消費程序都發(fā)出警報。

1.監(jiān)視進程的創(chuàng)建

復制代碼代碼如下:

 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colMonitoredProcesses = objWMIService. _ 
ExecNotificationQuery("select * from __instancecreationevent " _ 
& " within 1 where TargetInstance isa 'Win32_Process'") 
i = 0 
Do While i = 0 
Set objLatestProcess = colMonitoredProcesses.NextEvent 
Wscript.Echo objLatestProcess.TargetInstance.Name 
Loop 

2.監(jiān)視進程的刪除，在每次進程終止時，臨時事件消費程序都發(fā)出警報。

復制代碼代碼如下:

 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colMonitoredProcesses = objWMIService. _ 
ExecNotificationQuery("select * from __instancedeletionevent " _ 
& "within 1 where TargetInstance isa 'Win32_Process'") 
i = 0 
Do While i = 0 
Set objLatestProcess = colMonitoredProcesses.NextEvent 
Wscript.Echo objLatestProcess.TargetInstance.Name 
Loop 

3.監(jiān)視進程使用處理器的情況

復制代碼代碼如下:

 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcesses = objWMIService.ExecQuery _ 
("Select * from Win32_process") 
For Each objProcess in colProcesses 
sngProcessTime = ( CSng(objProcess.KernelModeTime) + _ 
CSng(objProcess.UserModeTime)) / 10000000 
Wscript 

參考鏈接：

監(jiān)視進程的創(chuàng)建
監(jiān)視進程的刪除

參考: http://hi.baidu.com/%B1%F9%D0%C4%B3%D5/blog/item/5691a1c3146ded55b219a861.html http://demon.tw/programming/vbs-monitoring-process-creation-and-deletion.html

上一篇：WMI中的Win32

欄目：vb

下一篇：msxml3.dll 錯誤 80070005 拒絕訪問

本文標題：用VBS實現監(jiān)視進程創(chuàng)建與刪除的代碼

本文地址：http://mengdiqiu.com.cn/a1/vb/7440.html

更多vb

欧美大屁股bbbbxxxx,狼人大香伊蕉国产www亚洲,男ji大巴进入女人的视频小说,男人把ji大巴放进女人免费视频,免费情侣作爱视频

vb

用VBS實現監(jiān)視進程創(chuàng)建與刪除的代碼

您可能感興趣的文章

閱讀排行

本欄相關

隨機閱讀