中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求一批处理：将指定路径复制到剪贴板

csf4
新手上路

积分 4
发帖 4
注册 2009-11-13
状态离线

『楼主』: 求一批处理：将指定路径复制到剪贴板

请大家帮忙做一个批处理，实现将指定内容复制到剪贴板内。
实际用途：远程运行被控制机器上面的程序
待复制的内容："C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole
实现目的：只用一个批处理文件将上面的内容一键复制到剪贴板内

批处理参考：
设置批处理文件复制c:\a.txt的文本内容进剪贴板（xp不行，03可以用
）
clip<c:\a.txt

VBS实现参考：
把c:\1.txt中的内容复制到剪贴板中去
Dim X
set fso=CreateObject("Scripting.FileSystemObject")
set myfile=fso.opentextfile("c:\1.txt",1)
X=myfile.readall
myfile.close
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", X
objIE.Quit

缺点：需要一个BAT/VBS + 一个txt文件

请教如何将内容 c:\1.txt 替换成 "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole
先谢谢各位了！

2010-6-25 00:11

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

Dim X
X = """C:\Program Files\RealVNC\VNC4\winvnc4.exe"" -noconsole"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", X
objIE.Quit

此帖被 +1 点积分点击查看详情

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2010-6-25 13:49

csf4
新手上路

积分 4
发帖 4
注册 2009-11-13
状态离线

『第 3 楼』:

谢谢楼上，测试成功。VBS在2003上面有提示，是否允许访问剪贴板。
附上我的研究成果：
>c:\vnc.txt echo "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole
clip<c:\vnc.txt
del c:\vnc.txt /q

2010-6-26 09:58

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 4 楼』:

echo "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole |clip

此帖被 +2 点积分点击查看详情

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

2010-6-26 11:10

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: