
CODE: [Copy to clipboard]@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
CODE: [Copy to clipboard]保存为xxx.vbsSet 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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |