[贴士] 读写“剪贴板”

SzAngel

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz


很久没上网了，首先在这里向大家表示深深的歉意~！！！！！
上了论坛翻了翻最近的帖子，发现有不少朋友在研究〖如何在几个脚本间传递数据〗的问题。其实这个问题在以前也有朋友讨论过，以前也有朋友利用“读写文本文件”的方法来传递数据，这个方法是一个比较好的方法，但是，在实际操作中相对比较复杂。下面，我想给大家介绍一种方法【利用剪切板在脚本间传递数据】在使用这个方法时，有一个前提，那就是你的 浏览器必须是 Internet Explorer 5.5 以上版本。
以下脚本在 按键精灵 5.50 版本下测试。请看以下代码：
脚本一：向剪贴板中写如数据。你可以随意修改变量strdate的值，可以是字符串，也可以是数值。有点要注意的是，写如剪贴板中的内容只能是文本格式的，不能是图片、表格等！
VBS strdate="风花雪月"
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
VBS objIE.document.parentwindow.clipboardData.SetData "text", strdate
VBS objIE.Quit
脚本二：从剪贴板中读取数据。脚本将弹出一个窗口，并显示剪贴板中的内容
VBS Set objIE = CreateObject("InternetExplorer.Application")
VBS objIE.Navigate("about:blank")
VBS strdate = objIE.document.parentwindow.clipboardData.GetData("text")
VBS objIE.Quit
VBSCall Call MessageBox(strdate)
如果你要测试的话，可以把以上两段代码分别复制到两个脚本的“源代码”中
在实际运用中，可以在脚本合适的位置插入以上代码，就可以实现在两个脚本中传递数据了。有一点要注意，就是在实际使用中，要注意写入和读出的数据的格式哦[em07]
当然，利用以上代码还可以做一些其他事情，相信大家可以自由发挥了。