标题: 请问用vbs如何退出浏览器 [打印本页]

---

作者: 26933062     时间: 2007-4-30 20:24    标题: 请问用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浏览器吗?

---

作者: baomaboy     时间: 2007-5-1 15:29

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就能看到效果了,不对其他窗口操作,所以.....
[ Last edited by baomaboy on 2007-5-1 at 09:29 PM ]

---

作者: 26933062     时间: 2007-5-1 21:14
也不行,提示错误,
行 4
字符 1
对象不支持此属性或方法'objIE.Visible
'

---

作者: baomaboy     时间: 2007-5-1 21:28
objIE.Visible=True

---

作者: 26933062     时间: 2007-5-2 17:57
还是不行,提示最后一句错误

---

作者: slore     时间: 2007-5-2 18:00
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

那个可以啊

---

作者: baomaboy     时间: 2007-5-2 18:45

Quote:

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

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

在我这里是这样。

---

作者: stornager     时间: 2007-5-2 19:13
请问26933062兄为什么要加上这句 ：
objIE.document.parentwindow.clipboardData.SetData "text","小楼一夜听春雨"
这句表达了什么意思？？

---

作者: slore     时间: 2007-5-2 20:49
把"小楼一夜听春雨"复制到剪切板