中国DOS联盟

求这样一个功能的vbs（以前在那里看到过，现在实在找不到了！）：
每当打开一个程序的时候，检查该程序是不是文本文件中规定的程序，是的话就关闭它！（好象要用到wmi里的一个什么创建事件）。

同步的:
sProcess = "iexplore.exe" Set oWMI = GetObject("Winmgmts:") Set oExec = oWMI.ExecNotificationQuery( _ "Select * From __instanceCreationEvent " & _ "WithIn 1 Where TargetInstance ISA 'Win32_Process'") Do Set oNextEvent = oExec.NextEvent sName = oNextEvent.TargetInstance.Name If sProcess = LCase(sName) Then MsgBox sName End If Loop
不过不好用，可能会漏,还不如自己查询:
Do For Each x In GetObject("Winmgmts:Win32_Process").Instances_ If "iexplore.exe" = LCase(x.Name) Then WScript.Echo x.Name End If Next WScript.Sleep 200 Loop
这个我在CSDN也帮人解答过，刚好直接转过来。

奸视什么???

thanks,我试过了，这2个脚本都能实现，不过第二个脚本占用cpu资源比第一个高多了！

Originally posted by wfyinghun at 2009-12-14 14:31:
thanks,我试过了，这2个脚本都能实现，不过第二个脚本占用cpu资源比第一个高多了！

因为第二个sleep的时间比较短，另外每次执行的时候要重新查询,当然资源高一些.
你可以把sleep更改为1000,每1秒查询一次，那样会低一些.

Set oWMI = GetObject("Winmgmts:") Set oRefresher = CreateObject("WbemScripting.SWbemRefresher") Set colProcess = oRefresher.AddEnum(oWMI,"Win32_Process").ObjectSet Do oRefresher.Refresh For Each x In colProcess WScript.Echo x.Name Next WScript.Sleep 200 Loop
试试这个，理论上来说应该比那个要节省一些资源,sleep时间你可以自己调整。

以前学的东西忘了很多了，弱弱的问一下，怎么样修改代码使它结束进程而不是显示进程名字，把MsgBox sName或者wscript echo x.name 换成什么？

Originally posted by wfyinghun at 2009-12-14 10:32 PM:
以前学的东西忘了很多了，弱弱的问一下，怎么样修改代码使它结束进程而不是显示进程名字，把MsgBox sName或者wscript echo x.name 换成什么？

呵呵，我已经记起来了，用terminate方法！