标题: [原创]任意文件生成图片 [打印本页]
作者: matlan 时间: 2009-7-10 03:27 标题: [原创]任意文件生成图片
有些论坛对附件只支持图片形式上传，这样一来其他文件就不好上传，现根据
copy /b file1+file2=file3原理生成一包含该文件的图片，图片显示为该文件图标。支持多文件隐藏进图片，只需把要一次性添加如入图片的文件放在一个文件夹，运行该批处理即可。该p用到第三方工具tabiripp.exe，下载见附件
@echo off
title 文件图片生成器
if "%1"=="" (echo 把任意文件拖到该文件上即可
echo 若直接运行则把当前目录下文件都藏进图片)
echo 正在生成，请稍后。。。
rd /s/q %temp%\tmp
md %temp%\tmp
cd /d "%~dp1"
tabiripp "%1" %temp%\tmp >nul 2>nul
for /f "tokens=2* skip=4" %%i in ('reg query "hklm\software\microsoft\windows\currentversion\app paths\winrar.exe" /v "path"')do set rar="%%j\rar.exe"
if /i not "%~x1"=="rar" goto :rar
set name="%1"
:rar
%rar% a -m5 %temp%\tmp\%~n1.rar "%1" >nul 2>nul
set name=%temp%\tmp\%~n1.rar
goto :copy
:copy
copy /b "%temp%\tmp\*.png"+%name% "%~dp1"%~n1.png >nul 2>nul
cls
%rar% t "%~dp1"%~n1.png|findstr "全部OK" >nul&& echo 成功生成包含^"%~nx1^"的图片||echo 生成图片失败!
echo.
pause
附件title 文件图片生成器
if "%1"=="" (echo 把任意文件拖到该文件上即可
echo 若直接运行则把当前目录下文件都藏进图片)
echo 正在生成，请稍后。。。
rd /s/q %temp%\tmp
md %temp%\tmp
cd /d "%~dp1"
tabiripp "%1" %temp%\tmp >nul 2>nul
for /f "tokens=2* skip=4" %%i in ('reg query "hklm\software\microsoft\windows\currentversion\app paths\winrar.exe" /v "path"')do set rar="%%j\rar.exe"
if /i not "%~x1"=="rar" goto :rar
set name="%1"
:rar
%rar% a -m5 %temp%\tmp\%~n1.rar "%1" >nul 2>nul
set name=%temp%\tmp\%~n1.rar
goto :copy
:copy
copy /b "%temp%\tmp\*.png"+%name% "%~dp1"%~n1.png >nul 2>nul
cls
%rar% t "%~dp1"%~n1.png|findstr "全部OK" >nul&& echo 成功生成包含^"%~nx1^"的图片||echo 生成图片失败!
echo.
pause