Question

使用vbs将字符串复制到粘贴板

提供一个完整可直接运行的VBS程序代码，要求运行后把预先输入的字符串复制到粘贴板中，就是说需要复制的字符串（如12345）已经在代码中了。有使用c++的也可以。但是要给出全部的代码。

Answer 1

应该是这样，注意的是，所用的IE浏览器是系统自带的，比如IE6，ie8要修改访问剪切板的权限，代码如下：strCopy = "1234"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", strCopy
objIE.Quit

Answer 2

text = "12345" ' 这就是你要放到粘贴板中的内容，你可以自己修改

set ie = createobject("InternetExplorer.Application")
ie.navigate("about:blank")
ie.document.parentwindow.clipboardData.SetData "text", text

Answer 3

就一句：clipboard.settext "12345"

Answer 4

最简单的：

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