专干各种开机弹窗广告

风一样的男孩

一卡通开机弹窗够烦人的。特意写了一个VBS干掉它！太恶心了。本来想用AU3了，觉得一个VBS够了！
工作原理：开机就检测iexplore进程，有就结束并退出，没有则一直检测。快到顾客根本看不见弹窗!
使用方法：代码存为.VBS开机启动即可（要在弹出广告之前启动）
刚才又改进了一下，防止不弹广告顾客第一次打不开IE。开机启动检测10秒种。10秒之后也没有指定进程就退出！时间自己改！红色的就是时间算法，既100*100秒=10000毫秒=10秒后不管有没有进程都退出。 每0.1秒检测一次。检测100次！中途检测到立即退出。绝对快过顾客的眼睛！

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

复制代码