中国DOS联盟

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浏览器吗?

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 ]

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

objIE.Visible=True

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

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

那个可以啊

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

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

在我这里是这样。

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

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