求助大神!VBS怎样把文本内容复制到剪贴板，在别的地方进行粘贴？

wslbbdb · 发表于 2015-8-15 11:27:15

本帖最后由 wslbbdb 于 2015-8-18 11:26 编辑

我想将以c:\1.txt里面在内容复制到剪贴板，在别的地方进行粘贴，求大神们给写个批处理啊，谢谢了

谢谢大家!问题解决了!

pcl_test · 发表于 2015-8-15 12:51:57

本帖最后由 pcl_test 于 2015-8-15 15:20 编辑

bat

复制代码

@echo off
type "c:\1.txt"|mshta "javascript:clipboardData.setData('text',new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).ReadAll());close()"
pause

复制代码

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\1.txt",1)
ws.run "mshta vbscript:ClipBoardData.setData(""Text"","""&f.readall&""")(window.close)", 0, true

复制代码

wslbbdb · 发表于 2015-8-15 14:53:00

谢谢2楼,很好用!

wslbbdb · 发表于 2015-8-18 11:23:40

回复 1# wslbbdb
已解决,谢谢大家!

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 求助大神!VBS怎样把文本内容复制到剪贴板，在别的地方进行粘贴？