如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！
查看 1,126 回复 6
楼 主
如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！
发表于 2006-08-08 20:42 · 中国 浙江 宁波 电信
第 2 楼
发表于 2006-08-09 10:09 · 中国 广西 玉林 博白县 电信
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 楼
发表于 2006-08-09 17:55 · 中国 浙江 宁波 电信
ie.navigate "完整的网页文件路径"
为什么ie.navigate "http://..."不行呢？
为什么ie.navigate "http://..."不行呢？
第 4 楼
发表于 2006-08-09 18:21 · 中国 湖北 荆门 电信
本地文件应该加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 楼
发表于 2006-08-09 20:12 · 中国 辽宁 大连 教育网
真的太强了.学批处理都难啊!又冒出来wsh 没得混了
测试环境: windows xp pro sp2 高手是这样炼成的:C:\WINDOWS\Help\ntcmds.chm
第 6 楼
发表于 2006-08-09 21:29 · 中国 浙江 宁波 电信
谢谢，xp下可以。98下wscript会报错。经查找，原来是98不支持Script.Sleep 3000这个命令所引起的。可以有无代替的命令？
第 7 楼
发表于 2006-08-10 10:03 · 中国 四川 成都 教育网
98下把 WSH 升级到5.6就可以了
C:\>BLOG http://initiative.yo2.cn/
C:\>hh.exe ntcmds.chm::/ntcmds.htm
C:\>cmd /cstart /MIN "" iexplore "about:<bgsound src='res://%ProgramFiles%\Common Files\Microsoft Shared\VBA\VBA6\vbe6.dll/10/5432'>"
论坛跳转: