- UID
- 1
- 帖子
- 11122
- 积分
- 7224
- 紫菀
- 102 朵
- 花瓣
- 9777 片
- 花蕊
- 1613 朵
- 野草莓
- 301 个
- 蒲公英
- 491 朵
- 社区等级
- 200 级
- 在线时间
- 5246 小时
- 注册时间
- 2006-7-9
- 蜗居何地
- 浙江台州
- 登录状态
-
当前离线
|
楼主
发表于 2007-8-30 18:11
| 只看该作者
在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--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]
当然,利用以上代码还可以做一些其他事情,相信大家可以自由发挥了。 |
|