[问题求助] 请改进一步结束进程的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，结果出现这个了，为什么？

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

ww0000

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