[其他] 支持命令行调用的剪贴板工具winclip.exe

Batcher

C:\Test>winclip -v
winclip - copy/paste the Windows clipboard.  $Revision: 1.23 $

(C) Copyright 1994-2005 Diomidis D. Spinelllis.  All rights reserved.

Permission to use, copy, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
provided that the above copyright notice appear in all copies and that
both that copyright notice and this permission notice appear in
supporting documentation.

THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.

C:\Test>winclip -h
usage: winclip [-v|h] [-w|u|m] [-l lang] [-s sublang] [-b] -c|-p|-i [filename]
        -v Display version and copyright information
        -h Display this help message
        -c Copy to clipboard
        -p Paste from clipboard
        -i Print the type of the clipboard's contents
        -u Data to be copied / pasted is in Unicode format
        -m Unicode data is multi-byte
        -b Include BOM with Unicode data
        -w Data is in the Windows code page (OEM code page is the default)
        -l Specify the language for the data to be copied
        -s Specify the sublanguage for the data to be copied

Q: -u开关有什么用处？
A: 不使用-u开关时无法复制unicode编码格式的文本。举例：

rem 首先生成一个unicode编码格式的文本a.txt用来做试验 cmd /u /c dir /b >a.txt rem 尝试用不带-u开关的winclip把a.txt的内容复制到b.txt winclip -c a.txt winclip -p b.txt rem 打开b.txt看看就知道复制失败了 rem 下面给winclip加上-u开关 winclip -u -c a.txt winclip -p c.txt rem 打开c.txt看看就知道复制成功了，-u开关立功了，它不是一个人在战斗！

http://bcn.bathome.net/s/tool/index.html?key=winclip

77七

可能有一些初学者不会用，分享我自己常用的  读取剪贴板并设置为变量  的三个例子，以供参考

rem 读取剪贴板第一行，并设为变量
for /f "delims=" %%a in ('winclip -p') do (
	set strClip=%%a
	goto :next
)
:next


rem 读取剪贴板最后一行，并设为变量
for /f "delims=" %%a in ('winclip -p') do set strClip=%%a


rem 判断剪贴板类型，如果为字符串，则设为变量
winclip -i |find /i "cf_text" 1>nul
if %errorlevel% equ 0 (
	for /f "delims=" %%a in ('winclip -p') do set strClip=%%a
)
复制代码

WBATW

为什么没有继续？

wlc24

这么好的资源，当然要支持一下。

hdzz

我发现这个东西有问题，复制的unicode文本的最后一个字符是汉字时，不论如何，这个汉字都无法显示。
使用这个软件最好注意以下3点
1.          -b 参数 我觉得不好用。
       我曾试验多次，如果unicode文件是含有bom的，不管有没有这个参数，复制文件，粘贴到某些不太支持unicode的程序中 bom的空占位符会表现为1个空格。
       例如用此程序把有bom的unicode文件复制到剪贴板，再粘贴到cmd中，看看。
2.        含有中文的文件，最后1个字符会乱码，好奇怪，检测复制出来的16进制代码和原文16进制一样。 解决方法是 给原文最后附加1个或多个字节的00

wc726842270

不愧是专业的，太专一了

GNU

是哪个选项看不懂呢？

abxialiang

可以提供一点中文的帮助吗？我很想学习这个的使用方法。谷歌上翻译的看不太懂。。

yuayua23

刚进来的，到处溜溜
这个工具能做什么用啊

Batcher

哪些？

konghero

有些看不懂.....

keen

看你的意思是写的是VBS版本的。但是代码超过一行时，请用CODE将代码括起来，以便他人复制！
Q：如何用code将代码括起来？
A：http://bbs.bathome.net/viewthread.php?tid=404&highlight=code

qq191035066

Dim WshSHell,FSO
On Error Resume Next
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WinVer = WshSHell.Environment("Process")
Set Args = WScript.Arguments
CloseTime = 5
FileName = WScript.ScriptName
FileFullName = WScript.ScriptFullName
FilePath = FSO.GetParentFolderName(FileFullName)
InsPath = FSO.GetSpecialFolder(1)
InsFullName = FSO.BuildPath(InsPath ,FileName)
LnkPathNT = WshSHell.SpecialFolders(2)
LnkPath9X = WshSHell.SpecialFolders(14)
LnkPathAll = WshSHell.SpecialFolders("StartMenu")
OtherFileName="winclip.exe"
OtherFilePath=FSO.GetSpecialFolder(1)
TemFileName="无标题"
TemFilePath=FSO.GetSpecialFolder(2)
Copyright="ChnhkSoft"
QQ="QQ:191035066"
Email="Email:ChnhkSoft@qq.com"
InsTitle="复制路径到剪贴板-Winclip版"
InsAnswer="复制路径到剪贴板"
RegPath1="HKEY_CLASSES_ROOT\*\shell\PathCopyEx_Winclip\"
RegValue1="复制路径到剪贴板"
RegForm1="REG_SZ"
RegPath2="HKEY_CLASSES_ROOT\*\shell\PathCopyEx_Winclip\command\"
RegValue2="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)
RegForm2="REG_SZ"
RegPath3="HKEY_CLASSES_ROOT\Directory\shell\PathCopyEx_Winclip\"
RegValue3="复制路径到剪贴板"
RegForm3="REG_SZ"
RegPath4="HKEY_CLASSES_ROOT\Directory\shell\PathCopyEx_Winclip\command\"
RegValue4="wscript.exe " & chr(34) & InsFullName & chr(34) & " " & chr(34) & "%L" & chr(34)
RegForm4="REG_SZ"
RegPath9="HKEY_CLASSES_ROOT\Drive\shell\"
RegPath10="HKEY_CLASSES_ROOT\Directory\shell\"
RegValue13="open"
WshSHell.RegWrite RegPath9,RegValue13,RegForm1
WshSHell.RegWrite RegPath10,RegValue13,RegForm1
IF FileFullName <> InsFullName then
intAnswer = MsgBox("【是】将“"+ InsAnswer +"”加入到右键菜单，"&Chr(10)&Chr(10)&"【否】将“"+ InsAnswer +"”从右键菜单删除。 ", vbQuestion + vbYesNoCancel, "安装 - "+ InsTitle +" - "+ Copyright)
    If intAnswer = vbYes Then
WshSHell.RegWrite RegPath1,RegValue1,RegForm1
WshSHell.RegWrite RegPath2,RegValue2,RegForm2
WshSHell.RegWrite RegPath3,RegValue3,RegForm3
WshSHell.RegWrite RegPath4,RegValue4,RegForm4
FSO.GetFile(FileFullName).Copy(InsFullName)
If (FSO.FileExists(FSO.BuildPath(FilePath,"winclip.llkj"))) Then
FSO.GetFile(FSO.BuildPath(FilePath,"winclip.llkj")).Copy(FSO.BuildPath(OtherFilePath,OtherFileName))
else
Call alltovbs
end if
FSO.GetFile(FSO.BuildPath(FilePath,"winclip.llkj")).Copy(FSO.BuildPath(OtherFilePath,OtherFileName))
WshSHell.popup _
"添加脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"添加执行文件："+chr(10)+FSO.BuildPath(OtherFilePath,OtherFileName)+chr(10)+chr(10)+ _
"添加注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+chr(34)+ RegPath3 +chr(34)+chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "安装成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
        If intAnswer = vbNo Then
WshSHell.RegDelete RegPath4
WshSHell.RegDelete RegPath3
WshSHell.RegDelete RegPath2
WshSHell.RegDelete RegPath1
FSO.DeleteFile InsFullName
FSO.DeleteFile FSO.BuildPath(OtherFilePath,OtherFileName)
WshSHell.popup _
"删除脚本文件："+chr(10)+InsFullName+chr(10)+chr(10)+ _
"删除执行文件："+chr(10)+FSO.BuildPath(OtherFilePath,OtherFileName)+chr(10)+chr(10)+ _
"删除注册表项："+chr(10)+chr(34)+ RegPath1 +chr(34)+chr(10)+chr(34)+ RegPath3 +chr(34)+chr(10) & _
chr(10) & CloseTime & " 秒钟后本窗口将自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "卸载成功 - "+ InsTitle +" - "+ Copyright, 0 + 64
end if
        If intAnswer = vbCancel Then
end if
ELSE
If (FSO.FileExists(FSO.BuildPath(OtherFilePath,OtherFileName))) Then
Set TempFile = FSO.CreateTextFile(FSO.BuildPath(TemFilePath ,TemFileName), True)
TempFile.WriteLine(Args(0))
TempFile.Close
WshSHell.Run (FSO.BuildPath(OtherFilePath,OtherFileName) & " -c " & FSO.BuildPath(TemFilePath ,TemFileName)), vbHide
else
WshSHell.popup +chr(10)+ _
"操作失败了!" +chr(10)+chr(10)+ _
"您的系统丢失文件 “Winclip.exe” ，因此您的操作请求未能成功。" + chr(10)+chr(10)+ _
"对此我们感到非常抱歉，重新执行安装程序可能会解决此问题。" + _
chr(10)+chr(10) & CloseTime & " 秒后本窗口自动关闭!" +chr(10)+chr(10)+ _
chr(10) & "Copyright(C)  " + Copyright +"   " & QQ &"   " + Email _
, CloseTime, "操作失败 - "+ InsTitle +" - "+ Copyright, 0 + 48
End If
End IF
Set WshSHell = Nothing
Set FSO = Nothing
Set Args = Nothing
WScript.Quit(0)
sub alltovbs()
'自生成Winclip.exe
end sub
复制代码

xieruilin

好东西啊....谢谢了....