经常在网上看小说，或看电影时会弹出一些网页很烦人！QQ、暴风影音、快播、酷狗，这些都会弹出网页，
有这段代码就不怕了，只要把下面这段代码保存为.vbs或者.vbe，双击运行就可以了！
白夜追凶 结局
委屈>水电改造多少钱一米另外打个广告，本人承接各类Asp、PHP网站！QQ：450412212
Dim WebUrl,WebArray,objWord,colTasks,i,Fso
Set Fso = createobject("scripting.filesystemobject")
启动\" '这儿复制文件到启动，开机以后自动运行！
Do
WebUrl="淘宝|游戏|衣服|QQ|空间|微博" '这儿可以添加要关闭的指定网页标题，以竖线分隔开！
WebArray=Split(WebUrl,"|")
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
for each colTask in colTasks
for i=lbound(WebArray) to ubound(WebArray)
if instr(colTask.name,WebArray(i))<>0 then
colTask.close
工商银行账号end if
next
next
objWord.Quit玉米淀粉可以做什么
wscript.sleep 3000 '3000代表3秒
loop 莲菜饺子馅的做法