专干各种开机弹窗广告
一卡通开机弹窗够烦人的。特意写了一个VBS干掉它！太恶心了。本来想用AU3了，觉得一个VBS够了！工作原理：开机就检测iexplore进程，有就结束并退出，没有则一直检测。快到顾客根本看不见弹窗!
使用方法：代码存为.VBS开机启动即可（要在弹出广告之前启动）
刚才又改进了一下，防止不弹广告顾客第一次打不开IE。开机启动检测10秒种。10秒之后也没有指定进程就退出！时间自己改！红色的就是时间算法，既100*100秒=10000毫秒=10秒后不管有没有进程都退出。 每0.1秒检测一次。检测100次！中途检测到立即退出。绝对快过顾客的眼睛！
set ws=CreateObject("WScript.Shell")
Set bag = Getobject("winmgmts:\\.")
dim a
a=0
do
Set pipe = bag.InstancesOf("Win32_Process")
For Each id In pipe
if instr(1,LCase(id.name),"iexplore")<>0 then
ws.run"ntsd -c q -p "&id.ProcessID,0
WScript.Quit
end if
next
if a=100 then exit do
a =a +1
wscript.sleep 100
loop
页:
[1]