标题: vbs怎样把处理好的数据保存到剪贴板?? [打印本页]
作者: zeusycq 时间: 2008-6-26 16:22 标题: vbs怎样把处理好的数据保存到剪贴板??
vbs怎样把处理好的数据保存到剪贴板??
作者: HAT 时间: 2008-6-26 16:38
@echo off
>tmp.vbs echo Set Fso = CreateObject("Scripting.FileSystemObject")
>>tmp.vbs echo Set aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)
>>tmp.vbs echo strCopy = aFile.ReadAll
>>tmp.vbs echo Set objIE = CreateObject("InternetExplorer.Application")
>>tmp.vbs echo objIE.Navigate("about:blank")
>>tmp.vbs echo objIE.document.parentwindow.clipboardData.SetData "text", strCopy
>>tmp.vbs echo objIE.Quit
Cscript.exe //nologo tmp.vbs "C:\test\a.txt"
del /q tmp.vbs
>tmp.vbs echo Set Fso = CreateObject("Scripting.FileSystemObject")
>>tmp.vbs echo Set aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)
>>tmp.vbs echo strCopy = aFile.ReadAll
>>tmp.vbs echo Set objIE = CreateObject("InternetExplorer.Application")
>>tmp.vbs echo objIE.Navigate("about:blank")
>>tmp.vbs echo objIE.document.parentwindow.clipboardData.SetData "text", strCopy
>>tmp.vbs echo objIE.Quit
Cscript.exe //nologo tmp.vbs "C:\test\a.txt"
del /q tmp.vbs
作者: zeusycq 时间: 2008-6-26 17:00
不懂??我文件是vbs的格式,运行错误
作者: HAT 时间: 2008-6-26 17:09
Set Fso = CreateObject("Scripting.FileSystemObject")
Set aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)
strCopy = aFile.ReadAll
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
保存为xxx.vbsSet aFile = Fso.OpenTextFile(WScript.Arguments(0), 1)
strCopy = aFile.ReadAll
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit
找个txt文档拖放到xxx.vbs上
作者: zeusycq 时间: 2008-6-26 17:25
终于知道了,谢谢你了
strCopy = "."
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
就可以实现了
怎么我加上objIE.Quit会错误,少了就正常,这句有什么用?