level 1
82833383
楼主
vb.net 用 wmi 做监视器时，怎么调用waitfornextevent，网上找不到相关历程，哪位高手可以稍微教下
下面是我搞的，准备监视打印机任务，搞不下去了，nextevent不知道怎么用，求帮忙~
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmicWmi As New System.Management.ManagementEventWatcher("select * from __InstanceOperationEvent within 1 where TargetInstance isa 'Win32_Printjob'")
Dim i As Long
i = 1
Do While i = 1
'cmicWmi.WaitForNextEvent()
' ListBox1.Items.Add(cmicWmi.WaitForNextEvent("driverName") + " " + cmicWmi.WaitForNextEvent("jobstatus"))
'ListBox1.Items.Add("Service: " + cmicWmiObj("Name") + " FilePath: " + cmicWmiObj("ExecutablePath"))
Loop
End Sub
End Class
2013年05月25日 03点05分
1
下面是我搞的，准备监视打印机任务，搞不下去了，nextevent不知道怎么用，求帮忙~
Imports System.Management
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cmicWmi As New System.Management.ManagementEventWatcher("select * from __InstanceOperationEvent within 1 where TargetInstance isa 'Win32_Printjob'")
Dim i As Long
i = 1
Do While i = 1
'cmicWmi.WaitForNextEvent()
' ListBox1.Items.Add(cmicWmi.WaitForNextEvent("driverName") + " " + cmicWmi.WaitForNextEvent("jobstatus"))
'ListBox1.Items.Add("Service: " + cmicWmiObj("Name") + " FilePath: " + cmicWmiObj("ExecutablePath"))
Loop
End Sub
End Class