VBS如何做到脚本自身打开哪个网站就关闭哪个网站？ - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

大概情况是这样 '存放网址的数组 URLs=Array( _ "WWW.QQ.COM", _ "WWW.163.COM", _ "WWW.SOHU.COM", _ "WWW.SINA.COM") ‘下面有很多网站不一一列了 do Set ching=CreateObject("Wscript.Shell") Dim URL Randomize URL=formatURL(URLs(Int(UBound(URLs) * Rnd) + 1)) ching.run"iexplore.exe "&url,1 wscript.sleep 10000 call kill_IE(url) loop private sub kill_IE(url) set bag=getobject("winmgmts:\\.\root\cimv2") set pipe=bag.execquery("select * from win32_process where name='iexplore.exe'") For Each id In pipe if instr(1,id.commandline,url)<>0 then id.terminate() end if Next end sub Function formatURL(textString) Set regEx = New RegExp regEx.Pattern = "^\s*(.+\:\/\/)?(.*)\s*$" regEx.IgnoreCase = True Set matches = regEx.Execute(textString) Set match1=matches(0) formatURL=match1.SubMatches(0)&match1.SubMatches(1) If formatURL="" Then formatURL="about:blank" End Function 脚本会随机打开其中一个网站在10秒过后，脚本又会准确的关闭打开过的这个网站而不影响到客户端正在浏览的其它他网页 kill_IE这段我是直接从网上找来的，好像作用和直接KILL iexplore.exe 差不多只不过 KILL iexplore.exe 是把所有开着的网页都关了 kill_IE(url) 如果当前没有网页只有脚本自身打开的网页就会开一个关一个，如果当前有一个以上的网页开着就不会去关闭了现在想寻求一种更完美的解决方式，脚本每随机打开一个网页后，能在等待时间过后，又准确无误的把打开的这网页给关掉，不受任何影响不会因为存在两个网页而不关，也不会一关就把所有非脚本打开的网页也给关掉