经常在网上看小说，或看电影时会弹出一些网页很烦人！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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。