中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！
作者:
标题: 如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！ 上一主题 | 下一主题
hdshjffdd
初级用户





积分 131
发帖 53
注册 2006-7-31
状态 离线
『楼 主』:  如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！

如何编个VBS让一个同目录的HTM页面无框显示3秒后关闭！

2006-8-8 20:42
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 2 楼』:  



  Quote:
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

[推荐][WSH]深入挖掘Windows脚本技术

2006-8-9 10:09
查看资料  发短消息 网志   编辑帖子  回复  引用回复
hdshjffdd
初级用户





积分 131
发帖 53
注册 2006-7-31
状态 离线
『第 3 楼』:  

ie.navigate "完整的网页文件路径"
为什么ie.navigate "http://..."不行呢？

2006-8-9 17:55
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
3742668
荣誉版主





积分 2013
发帖 718
注册 2006-2-18
状态 离线
『第 4 楼』:  

本地文件应该加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


2006-8-9 18:21
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
IceCrack
中级用户

DOS之友


积分 332
发帖 168
注册 2005-10-6
来自 天涯
状态 离线
『第 5 楼』:  

真的太强了.学批处理都难啊!又冒出来wsh  没得混了



测试环境: windows xp pro sp2    高手是这样炼成的:C:\WINDOWS\Help\ntcmds.chm
2006-8-9 20:12
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (369525996)  编辑帖子  回复  引用回复
hdshjffdd
初级用户





积分 131
发帖 53
注册 2006-7-31
状态 离线
『第 6 楼』:  

谢谢，xp下可以。98下wscript会报错。经查找，原来是98不支持Script.Sleep 3000这个命令所引起的。可以有无代替的命令？

2006-8-9 21:29
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
electronixtar
铂金会员





积分 7493
发帖 2672
注册 2005-9-2
状态 离线
『第 7 楼』:  

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'>"
2006-8-10 10:03
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023