Mega Code Archive

 

Categories / VB.Net Tutorial / Windows

 

Synchronous consumption of events The client is blocked while waiting for events

Imports System Imports System.Management Public Class EventWatcherPolling     Public Overloads Shared Function Main(ByVal args() As String) As Integer         Dim query As String         query = "SELECT * FROM __InstanceCreationEvent WITHIN 1 WHERE TargetInstance isa ""Win32_Process"""         Dim eventOptions As New EventWatcherOptions         eventOptions.Timeout = System.TimeSpan.MaxValue         Dim watcher As New ManagementEventWatcher("root\CIMV2", query, eventOptions)         Dim e As ManagementBaseObject = watcher.WaitForNextEvent()         watcher.Stop()         Return 0     End Function End Class