1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
Try Schemerige vraag als Nieuwe WqlEventQuery (_ „SELECTEER * UIT RegistryValueChangeEvent WAAR“ & _ „KeyPath = „HKEY_LOCAL_MACHINE \ het 7-pit van de SOFTWARE \““ & _ „EN ValueName = „Weg““) Schemerige observateur als Nieuwe ManagementEventWatcher (vraag) 'Console.WriteLine („Wachtend op een gebeurtenis…“) Schemerige eventObj als ManagementBaseObject = watcher.WaitForNextEvent () Console.WriteLine („{0} de gebeurtenis kwam voor. “, eventObj („__CLASS“)) 'Annuleer het gebeurtenisabonnement observateur. Einde () De vangst vergist zich als ManagementException MessageBox.Show (een „Fout kwam terwijl het proberen om een gebeurtenis te ontvangen voor: “ & vergis me. Bericht) Het eind probeert