batman

'结束qq并禁止qq运行
Dim objWMI, objEvents, objEvent
Set objWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
Set objEvents = objWMI.ExecNotifiCationQuery _
  ("Select * From __InstanceOperationEvent Within 5 " _
    & "Where TargetInstance Isa 'Win32_Process'")
Dim objItems, objItem
Set objItems = objWMI.ExecQuery _
  ("Select * From Win32_Process Where Name='qq.exe'")
For Each objItem In objItems
  objItem.Terminate
Next
Do While True
  Set objEvent = objEvents.NextEvent()
  If LCase(objEvent.TargetInstance.Name) = "qq.exe" Then
    If objEvent.Path_.Class = "__InstanceCreationEvent" _
      Then objEvent.TargetInstance.Terminate
  End If
Loop
复制代码

batman

回复 6# wankoilz


    Do While True..............Loop 永真循环，在这里实际上你可以写成Do.............Loop

batman

Set objEvent = objEvents.NextEvent()
这句告诉脚本暂停并直到下一个新建/修改/删除事件发生