标题: 求一批处理：将指定路径复制到剪贴板
[打印本页]
作者: csf4
时间: 2010-6-25 00:11
标题: 求一批处理：将指定路径复制到剪贴板
请大家帮忙做一个批处理，实现将指定内容复制到剪贴板内。
实际用途：远程运行被控制机器上面的程序
待复制的内容："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
先谢谢各位了！
作者: slore
时间: 2010-6-25 13:49
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
作者: csf4
时间: 2010-6-26 09:58
谢谢楼上，测试成功。VBS在2003上面有提示，是否允许访问剪贴板。
附上我的研究成果：
>c:\vnc.txt echo "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole
clip<c:\vnc.txt
del c:\vnc.txt /q
作者: slore
时间: 2010-6-26 11:10
echo "C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole |clip