收藏了很久的一个批处理，很不错，如果你有一个N大的邮箱却不能使用附件的话，尝试这个吧，转成批处理后再复制进去，到其他地方再复制出来运行就可以了<br/>@echo off<br/><br/>::::::::Any2Bat {s11ss 2007-12-2}::::::::<br/><br/>::思路：利用debug获得原文件16进制代码，然后再次利用debug构造生成原文件的bat代码。<br/><br/>setlocal<br/><br/>set f="%~f1"<br/>if not exist %f% (echo File doesn't exist!&&goto :eof)<br/><br/>::写临时文件<br/>set len=%~z1<br/>set/a end=0x100+%len%-1<br/>call :10to16 %end%<br/>pushd %tmp%<br/>>t1 call echo d100 %%r%end%%%<br/>>>t1 echo q<br/>>nul copy %f% t2<br/>type t1|debug t2|more|find ":">t3<br/><br/>::读取临时文件t3，获得16进制代码<br/>set "i= %%a %%b %%c %%d %%e %%f %%g %%h %%i %%j %%k %%l %%m %%n %%o %%p %%q"<br/>for /f "delims=" %%a in (t3) do set/a lines+=1<br/>set/a m=1<br/>setlocal enabledelayedexpansion<br/>for /f "tokens=1-17 delims=- " %%a in (t3) do (<br/> if !m! equ %lines% goto :lastline<br/> set "hex!m!=%i%"<br/> set/a m+=1<br/>)<br/>:lastline<br/>set/a m-=1<br/>set/a remain=(%len%-16*%m%+1)*3<br/>call set remain=%%i:~0,%remain%%%<br/>for /f "tokens=1-17 delims=- " %%a in ('^<t3 more +%m%') do set "hex%lines%=%remain%"<br/><br/>::写bat<br/>call :10to16 %len%<br/>set t=^>^>%f%.bat echo<br/>%t% @echo off<br/>%t% ^<^"%%^~f0^" more +4 ^|debug ^>nul<br/>%t% move t "%~nx1"<br/>%t% goto :eof<br/>for /l %%a in (1,1,%lines%) do (<br/> call set hex%%a=%%hex%%a:*:=e%%<br/> %t% !hex%%a!<br/>)<br/>%t% rcx<br/>%t% !r%len%!<br/>%t% n t<br/>%t% w<br/>%t% q<br/>for /l %%a in (1,1,3) do (del t%%a)<br/>goto :eof<br/>:10to16<br/>set "h=0123456789ABCDEF"<br/>set/a q=%1<br/> :1c<br/> set/a r=%q%%%16<br/> set/a q=%q%/16<br/> call set r=%%h:~%r%,1%%<br/> call set r%1=%r%%%r%1%%<br/>if not %q% equ 0 goto :1c 转载请注明：鸟儿博客 » ANY2BAT代码