中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-12 02:33
47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术(批处理室) » 求一批处理:将指定路径复制到剪贴板
可打印版本  979 / 3
第1楼 csf4 发表于 2010-06-25 00:11
新手上路 发帖 4 积分 4
求一批处理:将指定路径复制到剪贴板
请大家帮忙做一个批处理,实现将指定内容复制到剪贴板内。
实际用途:远程运行被控制机器上面的程序
待复制的内容:"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
先谢谢各位了!
第2楼 slore 发表于 2010-06-25 13:49
铂金会员 发帖 2,478 积分 5,212
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
第3楼 csf4 发表于 2010-06-26 09:58
新手上路 发帖 4 积分 4
谢谢楼上,测试成功。VBS在2003上面有提示,是否允许访问剪贴板。
附上我的研究成果:
>c:\vnc.txt echo "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole
clip<c:\vnc.txt
del c:\vnc.txt /q
第4楼 slore 发表于 2010-06-26 11:10
铂金会员 发帖 2,478 积分 5,212
echo "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole |clip
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023