VBS开机杀掉弹窗广告

风一样的男孩

工作原理：开机就检测iexplore进程，有就结束并退出，没有则一直检测。快到顾客根本看不见弹窗使用方法：代码存为.VBS开机启动即可（要在弹出广告之前启动）开机启动检测10秒种。10秒之后也没有指定进程就退出！时间自己改！

1. set ws=CreateObject("WScript.Shell")
   
2. Set bag = Getobject("winmgmts:\\.")
   
3. dim a
   
4. a=0
   
5. do
   
6. Set pipe = bag.InstancesOf("Win32_Process")
   
7. For Each id In pipe
   
8. if instr(1,LCase(id.name),"iexplore")<>0 then
   
9. ws.run"ntsd -c q -p "&id.ProcessID,0
   
10. WScript.Quit
    
11. end if
    
12. next
    
13. if a=100 then exit do
    
14. a =a +1
    
15. wscript.sleep 100
    
16. loop

复制代码