中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-09-25 04:53 		共 47,813 主题排行 / 349,918 发帖 / 今日 1 篇 / 48,274 会员排行
DOS批处理 & 脚本技术（批处理室） » 请问用vbs如何退出浏览器
可打印版本 　1,227 / 8
第1楼　26933062 发表于 2007-04-30 20:24
银牌会员　发帖 879　积分 2,268
请问用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浏览器吗?
第2楼　baomaboy 发表于 2007-05-01 15:29
银牌会员　发帖 554　积分 1,513
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就能看到效果了,不对其他窗口操作,所以.....


[ Last edited by baomaboy on 2007-5-1 at 09:29 PM ]
第3楼　26933062 发表于 2007-05-01 21:14
银牌会员　发帖 879　积分 2,268
也不行,提示错误,
行 4
字符 1
对象不支持此属性或方法'objIE.Visible
'
第4楼　baomaboy 发表于 2007-05-01 21:28
银牌会员　发帖 554　积分 1,513
objIE.Visible=True
第5楼　26933062 发表于 2007-05-02 17:57
银牌会员　发帖 879　积分 2,268
还是不行,提示最后一句错误
第6楼　slore 发表于 2007-05-02 18:00
铂金会员　发帖 2,478　积分 5,212
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

那个可以啊
第7楼　baomaboy 发表于 2007-05-02 18:45
银牌会员　发帖 554　积分 1,513
Originally posted by 26933062 at 2007-5-2 17:57:
还是不行,提示最后一句错误


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

在我这里是这样。
第8楼　stornager 发表于 2007-05-02 19:13
中级用户　发帖 131　积分 328
请问26933062兄为什么要加上这句 ：
objIE.document.parentwindow.clipboardData.SetData "text","小楼一夜听春雨"
这句表达了什么意思？？
第9楼　slore 发表于 2007-05-02 20:49
铂金会员　发帖 2,478　积分 5,212
把"小楼一夜听春雨"复制到剪切板
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023