经常在网上看小说,或看电影时会弹出一些网页很烦人!QQ、暴风影音、快播、酷狗,这些都会弹出网页,
有这段代码就不怕了,只要把下面这段代码保存为.vbs或者.vbe,双击运行就可以了!
白夜追凶 结局委屈>水电改造多少钱一米另外打个广告,本人承接各类Asp、PHP网站!QQ:450412212
Dim WebUrl,WebArray,objWord,colTasks,i,Fso
Set Fso = createobject("scripting.filesystemobject")
Do
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 莲菜饺子馅的做法
发布评论