vbs复制文本到剪贴板

strCopy = "68032%7C71179%7C73866%7C37261%7C544%7C64652%7C73299%7C70997%7C73834%7C73393%7C66782%7C71861"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit

最近经常需要输入一些文本，每次都要复制，感觉比较麻烦，使用vbs可以复制固定的文本到剪贴板，

可以很好的解决这个问题

或者

Set Ws=CreateObject("Wscript.Shell")

Clipboard="MsHta vbscript:ClipBoardData.setData(""Text"","""&"Hello World"&""")(Window.Close)"
Ws.Run(Clipboard)

其核心调用 mshta 的剪贴板模块，把 字符串“Hello World” 考入系统剪贴板中。

读取文件内容并复制到剪贴板

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("Test.txt")
strCopy = file.readall
file.close
Dim Word
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Selection.Text = strCopy
Word.Selection.Copy
Word.Quit False

or

set fso=createobject("scripting.filesystemobject")
set file=fso.opentextfile("criteo.txt")
strCopy = file.readall
file.close
'strCopy = "This text has been copied to the clipboard."  
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Navigate("about:blank")  
objIE.document.parentwindow.clipboardData.SetData "text", strCopy  
objIE.Quit