中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: 请问用vbs如何退出浏览器 上一主题 | 下一主题
26933062
银牌会员





积分 2268
发帖 879
注册 2006-12-19
状态 离线
『楼 主』:  请问用vbs如何退出浏览器

dim ws
set ws=createobject("wscript.shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text","小楼一夜听春雨"
WScript.Sleep 2000
objIE.quit

请问上面的代码,最后一句要怎样才对,有办法关闭IE浏览器吗?

2007-4-30 20:24
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 2 楼』:  



  Quote:
Originally posted by 26933062 at 2007-4-30 20:24:
dim ws
set ws=createobject("wscript.shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.cli ...

没错误,加一句objIE.Visible就能看到效果了,不对其他窗口操作,所以.....
dim ws
set ws=createobject("wscript.shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible=True
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text","小楼一夜听春雨"
WScript.Sleep 2000
objIE.quit
[ Last edited by baomaboy on 2007-5-1 at 09:29 PM ]



好多菩提树,好多明镜台。本来好多物,好多的尘埃。
2007-5-1 15:29
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
26933062
银牌会员





积分 2268
发帖 879
注册 2006-12-19
状态 离线
『第 3 楼』:  

也不行,提示错误,
行 4
字符 1
对象不支持此属性或方法'objIE.Visible
'

2007-5-1 21:14
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 4 楼』:  

objIE.Visible=True



好多菩提树,好多明镜台。本来好多物,好多的尘埃。
2007-5-1 21:28
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
26933062
银牌会员





积分 2268
发帖 879
注册 2006-12-19
状态 离线
『第 5 楼』:  

还是不行,提示最后一句错误

2007-5-2 17:57
查看资料  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 6 楼』:  

Dim ws
Set ws=CreateObject("wscript.shell")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible=True
objIE.Navigate("about:blank")
objIE.Document.parentwindow.clipboardData.SetData "text","小楼一夜听春雨"
WScript.Sleep 2000
objIE.quit
Set objIE=Nothing
Set ws =Nothing

那个可以啊

2007-5-2 18:00
查看资料  发短消息 网志   编辑帖子  回复  引用回复
baomaboy
银牌会员





积分 1513
发帖 554
注册 2005-12-30
状态 离线
『第 7 楼』:  



  Quote:
Originally posted by 26933062 at 2007-5-2 17:57:
还是不行,提示最后一句错误

又帮你试过,应该是你开着Maxthon等其他浏览器拦截了IE造成了一个不存在的.quit 测试前关掉其他非IE浏览器窗口。

在我这里是这样。



好多菩提树,好多明镜台。本来好多物,好多的尘埃。
2007-5-2 18:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
stornager
中级用户

scriptlover


积分 328
发帖 131
注册 2007-3-25
状态 离线
『第 8 楼』:  

请问26933062兄为什么要加上这句 :
objIE.document.parentwindow.clipboardData.SetData "text","小楼一夜听春雨"
这句表达了什么意思??



scriptlover
Be with script forever!!
2007-5-2 19:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 9 楼』:  

把"小楼一夜听春雨"复制到剪切板

2007-5-2 20:49
查看资料  发短消息 网志   编辑帖子  回复  引用回复

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


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



论坛跳转: