@echo off & color a & title xclip-super ^&By 繁华背后的落寞
setlocal EnableDelayedExpansion
Rem 程序功能: 复制文件到剪切板，复制剪切板内容到指定文件夹！
if exist %windir%\xclip.exe (goto :step3)
cls&echo.&echo 第一次请在联网状态下使用此程序！
MsHta JavaScript:document.write();setTimeout('close()',1000);
echo mshta
http://bathome.net/s/hta/index.html Tools.get('xclip')^&exit >getxclip.bat
start getxclip.bat
MsHta JavaScript:document.write();setTimeout('close()',1000);
del /s /f /q getxclip.bat >nul
MsHta JavaScript:document.write();setTimeout('close()',3000);
:step1
cls
tasklist /nh|find /i "mshta.exe" >nul
if %errorlevel%==0 goto :step2
goto :step1
:step2
if exist %windir%\xclip.exe (goto :step3)
if exist xclip.exe (move /y xclip.exe %windir%\)
taskkill /im mshta.exe /t /f >nul
:step3
:menu
cls
echo 按1选择将文件复制到剪切板！
echo.
echo 按2选择将剪切板文件复制到目标路径！
echo.
choice /c "12" /n /m "请选择功能1或2:"
if !errorlevel!==1 goto :menu1
if !errorlevel!==2 goto :menu2
goto :menu
:menu1
cls&echo.
echo 复制单个文件请输入文件路径或拉入文件！
echo.
echo 复制某个目录某类型文件请输入 目录\*.文件类型(如c:\*.jpg)！
echo.
echo 复制目录所有文件请输入 目录\*.*(如c:\*.*)！
echo.
set /p var=请输入文件路径或拖入文件:
echo !var!|xclip /copy >nul
cls&xclip /get
echo.&echo.&echo 以上文件已放入剪切板，请按任意键返回主菜单！&pause>nul&goto menu
:menu2
cls&echo.
set /p var=请输入目标文件夹路径或拖入文件夹:
for /f "delims=" %%a in ('xclip /get') do (copy /y "%%a" "!var!" >nul)
cls&xclip /get
echo.&echo.&echo 以上文件已复制到目录!var!，请按任意键返回主菜单！&pause>nul&goto menu
