[问题求助] 请改进一步结束进程的VBS代码

ww0000

以下是监控QQ程序并关闭它的代码，但有两个不足：
一是会出现类似病毒提示的“有程序要结束QQ进程，是否允许执行？”，如何去除？
二是不能出现“此程序已禁止运行，5秒后将自动关闭”这样的提示框，
哪位高手能改进？谢谢！

do
set ws=createobject("wscript.shell")
dim test
test=False
set wing=getobject("winmgmts:\\.\root\cimv2")
set jincheng=wing.execquery("select * from win32_process where name='QQ.exe'")
For Each id In jincheng
test = True
Next
If test then
ws.run"taskkill /im QQ.exe /f /t"
End If
wscript.sleep 3000
loop
复制代码

ww0000

换一台电脑，打开QQ，结果出现这个了，为什么？

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
复制代码

ww0000

回复 3# batman


    谢谢!!
代码可以用，但是没有提示框，这个有提示框，但没法倒计时！

do
on error resume next
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='QQ.exe'")
For Each id In pipe
id.terminate
MsgBox "你不能用QQ"
Next
wscript.sleep 500
loop

ww0000

回复 3# batman


    或者直接用老师的下半部分也行

Dim objWMI, objEvents, objEvent
Set objWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
Set objEvents = objWMI.ExecNotifiCationQuery _
  ("Select * From __InstanceOperationEvent Within 5 " _
    & "Where TargetInstance Isa 'Win32_Process'")
Do While True
  Set objEvent = objEvents.NextEvent()
  If LCase(objEvent.TargetInstance.Name) = "qq.exe" Then
    If objEvent.Path_.Class = "__InstanceCreationEvent" _
      Then objEvent.TargetInstance.Terminate
   MsgBox "对不起,你不能用QQ"
  End If
Loop

wankoilz

问下3楼代码中 do while true 中true指的是哪个变量？

ww0000

当while中条件为真时(也就是true)循环继续执行。否则循环结束。

batman

回复 6# wankoilz


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

wankoilz

原来如此！
还有个问题，我发现如果把查询间隔改长一点比如 within 10 ，那在这10秒钟内打开进程又关闭的话，脚本检测不出事件的发生……事件是如何被记录和查询的呢？

batman

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

wankoilz

感谢回复，具体我是这个意思：
比如我要检测QQ.exe的创建事件，每10秒检测一次。
如果在10秒间隔时间内，我打开QQ.exe再关闭，那么脚本检测不到这个事件；
如果我打开QQ.exe，不关闭，那么间隔时间过后脚本可以检测到事件。
这两种情况下创建事件都发生了，但是为什么后者检测不到呢？