用vbscript实现将脚本的输出复制到剪贴板
更新时间：2007年04月06日 00:00:00 作者：
问：
嗨，Scripting Guy！有办法将脚本输出复制到剪贴板吗？
-- ZW, Marseilles, France
答：
您好，ZW.如果您不介意用一些疯狂的解决方法，那么实际上将脚本输出复制到剪贴板相当容易。首先，您需要构造一个字符串，其中包含想要的输出。然后，创建 Internet Explorer 的一个实例，然后在其中打开一个空白页。接着，利用 Internet Explorer 对象模型的内置功能，将字符串复制到剪贴板；特别是， 可以使用 clipboardData.SetData 方法来实现这个技巧。将某些数据复制到剪贴板的示例脚本如下：
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
运行脚本，然后打开 Notepad，然后单击“粘贴”；应该可以看到所复制的字符串。
顺便说一下，所有这一切都是在“幕后”发生的，Internet Explorer 并不会真的出现在屏幕上。这是因为，在默认情况下，通过脚本创建的任何 IE 实例在运行时都是隐藏的，除非您利用如下语句将其显示出来：
objIE.Visible = True
有关 clipboardData.SetData 的更多信息，请参阅MSDN 上的 DHTML 参考文档 。
嗨，Scripting Guy！有办法将脚本输出复制到剪贴板吗？
-- ZW, Marseilles, France
答：
您好，ZW.如果您不介意用一些疯狂的解决方法，那么实际上将脚本输出复制到剪贴板相当容易。首先，您需要构造一个字符串，其中包含想要的输出。然后，创建 Internet Explorer 的一个实例，然后在其中打开一个空白页。接着，利用 Internet Explorer 对象模型的内置功能，将字符串复制到剪贴板；特别是， 可以使用 clipboardData.SetData 方法来实现这个技巧。将某些数据复制到剪贴板的示例脚本如下：
复制代码 代码如下:
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
顺便说一下，所有这一切都是在“幕后”发生的，Internet Explorer 并不会真的出现在屏幕上。这是因为，在默认情况下，通过脚本创建的任何 IE 实例在运行时都是隐藏的，除非您利用如下语句将其显示出来：
objIE.Visible = True
有关 clipboardData.SetData 的更多信息，请参阅MSDN 上的 DHTML 参考文档 。
相关文章
这篇文章主要介绍了VBScript 根据IE窗口的标题输出ESC,代替人工按esc操作的实现代码，需要的朋友可以参考下2018-04-04
返回一个字符串，此字符串由包含在数组中的许多子字符串联接创建2006-11-11
这篇文章主要介绍了VBS日期(时间)格式化函数代码,需要的朋友可以参考下2019-10-10
VBS教程：VBscript属性-FirstIndex 属性
VBS教程：VBscript属性-FirstIndex 属性...2006-11-11
用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢2013-01-01
VBS教程：方法-FolderExists 方法...2006-11-11
VBS教程：VBScript 语句-Property Set 语句
VBS教程：VBScript 语句-Property Set 语句...2006-11-11
貌似网上很多人问怎么用VBS检测U盘插入和弹出，其实这很容易实现，WMI赋予了VBS十分强大的功能。2011-01-01
VBS教程：函数-GetLocale 函数...2006-11-11
下面的代码比较经典，瞬间关闭所有的ie的脚本2008-06-06
最新评论