标题: VBS如何做到脚本自身打开哪个网站就关闭哪个网站？ [打印本页]

---

作者: hackhd     时间: 2009-9-9 17:04    标题: VBS如何做到脚本自身打开哪个网站就关闭哪个网站？

大概情况是这样

'存放网址的数组
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) 如果当前没有网页只有脚本自身打开的网页就会开一个关一个，如果当前有一个以上的网页开着就不会去关闭了

现在想寻求一种更完美的解决方式，脚本每随机打开一个网页后，能在等待时间过后，又准确无误的把打开的这网页给关掉，不受任何影响 不会因为存在两个网页而不关，也不会一关就把所有非脚本打开的网页也给关掉

---

作者: s11ss     时间: 2009-9-10 10:33
用InternetExplorer.Application

---

作者: hackhd     时间: 2009-9-11 21:39
怎样用啊，指点下