中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-01 22:15

共 48,037 主题排行 / 350,122 发帖 / 今日 2 篇 / 48,250 会员排行

DOS批处理 & 脚本技术（批处理室） » 如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！

可打印版本　1,128 / 6

第1楼　hdshjffdd	发表于 2006-08-08 20:42
初级用户　发帖 53　积分 131
如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！

第2楼　zh159	发表于 2006-08-09 10:09
金牌会员　发帖 1,467　积分 3,687
set ie=wscript.createobject("internetexplorer.application") ie.fullscreen=1 ie.width=400 ie.height=300 ie.navigate "完整的网页文件路径" ie.left=fix((ie.document.parentwindow.screen.availwidth-ie.width)/2) ie.top=fix((ie.document.parentwindow.screen.availheight-ie.height)/2) ie.visible=1 wscript.sleep 3000 ie.quit 深入挖掘Windows脚本技术

第3楼　hdshjffdd	发表于 2006-08-09 17:55
初级用户　发帖 53　积分 131
ie.navigate "完整的网页文件路径" 为什么ie.navigate "http://..."不行呢？

第4楼　3742668	发表于 2006-08-09 18:21
荣誉版主　发帖 718　积分 2,013
本地文件应该加file://而不是http://，例如下面的脚本将依次显示当前目录下所有的internet文档，间隔3秒。 '创建IE对象并设置为全屏，可见 Set objIE = CreateObject("InternetExplorer.Application") objIE.FullScreen = 1 objIE.Visible = 1 '创建文件对象，并遍历当前目录所有类型为HTML Document的文件 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(".") Set collFiles = objFolder.Files For Each objFile In collFiles If objFile.Type = "HTML Document" Then objIE.Navigate "file://" & objFile.Path WScript.Sleep 3000 End If Next objIE.Quit

第5楼　IceCrack	发表于 2006-08-09 20:12
中级用户　发帖 168　积分 332　来自天涯
真的太强了.学批处理都难啊!又冒出来wsh 没得混了

第6楼　hdshjffdd	发表于 2006-08-09 21:29
初级用户　发帖 53　积分 131
谢谢，xp下可以。98下wscript会报错。经查找，原来是98不支持Script.Sleep 3000这个命令所引起的。可以有无代替的命令？

第7楼　electronixtar	发表于 2006-08-10 10:03
铂金会员　发帖 2,672　积分 7,493
98下把 WSH 升级到5.6就可以了

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023