![]() |
中国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 |