中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『楼主』: 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) 如果当前没有网页只有脚本自身打开的网页就会开一个关一个，如果当前有一个以上的网页开着就不会去关闭了

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

2009-9-9 17:04

s11ss
银牌会员

积分 2098
发帖 566
注册 2007-9-11
状态离线

『第 2 楼』:

用InternetExplorer.Application

2009-9-10 10:33

hackhd
中级用户

积分 231
发帖 102
注册 2008-1-25
状态离线

『第 3 楼』:

怎样用啊，指点下

2009-9-11 21:39

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: