VB 利用WMI进行进程监视

原创 2007年10月03日 11:16:00

 VERSION 5.00
Begin VB.Form frmMain
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdStartModification
      Caption         =   "开始监视修改"
      Height          =   375
      Left            =   3240
      TabIndex        =   5
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton cmdStartDelete
      Caption         =   "开始监视退出"
      Height          =   495
      Left            =   3240
      TabIndex        =   4
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton cmdStartCreate
      Caption         =   "开始监视创建"
      Height          =   495
      Left            =   2880
      TabIndex        =   3
      Top             =   840
      Width           =   1335
   End
   Begin VB.CommandButton cmdStopModification
      Caption         =   "停止监视修改"
      Height          =   495
      Left            =   1440
      TabIndex        =   2
      Top             =   2520
      Width           =   1455
   End
   Begin VB.CommandButton cmdStopDelete
      Caption         =   "停止监视退出"
      Height          =   495
      Left            =   1320
      TabIndex        =   1
      Top             =   1800
      Width           =   1695
   End
   Begin VB.CommandButton cmdStopCreate
      Caption         =   "停止监视创建"
      Height          =   495
      Left            =   1320
      TabIndex        =   0
      Top             =   840
      Width           =   1455
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private objSWbemServices As SWbemServices
Private WithEvents CreateProcessEvent As SWbemSink
Attribute CreateProcessEvent.VB_VarHelpID = -1
Private WithEvents DeleteProcessEvent As SWbemSink
Attribute DeleteProcessEvent.VB_VarHelpID = -1
Private WithEvents ModificationProcessEvent As SWbemSink
Attribute ModificationProcessEvent.VB_VarHelpID = -1


Private Sub cmdStartCreate_Click()
    StartMonitorCreateProcessEvent
End Sub

Private Sub cmdStartDelete_Click()
    StartMonitorDeleteProcessEvent
End Sub

Private Sub cmdStartModification_Click()
    StartMonitorModificationProcessEvent
End Sub

Private Sub cmdStopCreate_Click()
    CreateProcessEvent.Cancel
End Sub

Private Sub cmdStopDelete_Click()
    DeleteProcessEvent.Cancel
End Sub

Private Sub cmdStopModification_Click()
    ModificationProcessEvent.Cancel
End Sub

Private Sub Form_Load()
    StartMonitorCreateProcessEvent
    StartMonitorDeleteProcessEvent
    StartMonitorModificationProcessEvent
End Sub

Private Sub Form_Unload(Cancel As Integer)
    CreateProcessEvent.Cancel
    DeleteProcessEvent.Cancel
    ModificationProcessEvent.Cancel
End Sub

'进程创建事件
Private Sub CreateProcessEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)

End Sub

'进程退出事件
Private Sub DeleteProcessEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)

End Sub

'进程属性变更事件
Private Sub ModificationProcessEvent_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
    'MsgBox objWbemObject.Properties_.Item("TargetInstance").Value.Properties_.Item("Name").Value
End Sub

 
Private Sub StartMonitorCreateProcessEvent()
    Set CreateProcessEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync CreateProcessEvent, "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
End Sub

Private Sub StartMonitorDeleteProcessEvent()
    Set DeleteProcessEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync DeleteProcessEvent, "SELECT * FROM __InstanceDeletionEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
End Sub

Private Sub StartMonitorModificationProcessEvent()
    Set ModificationProcessEvent = New SWbemSink
    Set objSWbemServices = GetObject("winmgmts://./root/cimv2")
    objSWbemServices.ExecNotificationQueryAsync ModificationProcessEvent, "SELECT * FROM __InstanceModificationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_Process'"
End Sub

转载:VB监视进程

从百度知道看的,VB监视进程: 让VB程序监视进程中的名称“Windows 任务管理器”,和“AAA”两个进程的进程名, 而且进行操作:如果“Windows 任务管理器”被关闭时则自动关闭“进...
  • myinc
  • myinc
  • 2013年12月05日 21:38
  • 648

VB类 用于在后台监视进程的创建或退出

  • 2009年01月12日 15:52
  • 3KB
  • 下载

VB 利用WMI进行服务监视

VERSION 5.00Begin VB.Form frmMain    Caption         =   "服务监视"   ClientHeight    =   2730   ClientL...
  • chenhui530
  • chenhui530
  • 2007年10月03日 11:25
  • 1452

服务器性能监控之WMI

1.WMI简介 WMI是英文Windows Management Instrumentation的简写,通过使用WMI,我们可以获取本地或远程服务器的性能参数和进程运行情况,以及大部分硬件信息,但前...
  • testcs_dn
  • testcs_dn
  • 2013年03月16日 16:01
  • 5590

WMI技术介绍和应用——查询正在运行的进程信息

在《WMI技术介绍和应用——使用VC编写一个半同步查询WMI服务的类》一文中,我们介绍到了一个半同步查询WMI类的框架。本文将是该技术的一个应用,介绍如何使用WMI技术查询正在运行的进程信息。(转载请...
  • breaksoftware
  • breaksoftware
  • 2012年12月31日 23:31
  • 7191

WMI实时监控进程开启demo

  • 2014年11月03日 15:11
  • 5KB
  • 下载

WMI监视进程启动

// WMIProcessCreateMonitor.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include #include #include...
  • baggiowangyu
  • baggiowangyu
  • 2014年12月08日 12:44
  • 2952

ring3下利用WMI监视进程创建(vc版)

#include "stdafx.h" #define _WIN32_DCOM #include using namespace std; #include #include # pragma...
  • zwfgdlc
  • zwfgdlc
  • 2011年07月18日 11:02
  • 3107

Linux环境下如何通过WMI对windows进行监控

从事监控行业已经2年多了,以前忙的时候没时间查linux下如何进行win对windows的监控,前段时间由于需求必须完成,才发现网上挺多这方面的资料,自己测试了下。完全可以搞定,不过也还是有些问题,w...
  • wqiancangq
  • wqiancangq
  • 2017年01月16日 16:11
  • 1267

WMI技术介绍和应用——接收事件

本文讲解如何使用WMI技术监控进程的创建和消亡、USB设备的插入和拔出等事件监控功能。...
  • breaksoftware
  • breaksoftware
  • 2016年01月19日 18:34
  • 3548
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 利用WMI进行进程监视
举报原因:
原因补充:

(最多只允许输入30个字)