- 帖子
- 2
- 积分
- 17
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2010-1-31
|
请大家帮忙做一个批处理,实现将指定内容复制到剪贴板内。
实际用途:远程运行被控制机器上面的程序
待复制的内容:"C:\Program Files\RealVNC\VNC4\winvnc4.exe" -noconsole
实现目的:只用一个批处理文件将上面的内容一键复制到剪贴板内
批处理参考:
设置批处理文件复制c:\a.txt的文本内容进剪贴板(xp不行,2003可以用)
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
先谢谢各位了! |
|