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