China DOS Union

::=====================================================

:: code by freeants  CMD@XP  version:1.00

::=====================================================

@echo off

cd/d "%~dp0">nul

if "%~z1" equ "" goto:usage

if %~z1 gtr 65280 goto:NOT_SUPPORT

setlocal ENABLEDELAYEDEXPANSION

copy/b "%~1" $$$>nul

set/a D_NUM=%~z1+255

call:DEC_HEX %D_NUM% >nul

echo @echo off>"%~n1.cmd"

echo more +5 "%%~0"^|debug^&graftabl 936^>nul>>"%~n1.cmd"

echo copy/b/y $tmp$ "%~nx1"^>nul>>"%~n1.cmd"

echo del/a/f/q $tmp$>>"%~n1.cmd"

echo goto:eof>>"%~n1.cmd"

for /f "eol=- skip=1 tokens=*" %%i in ('^(echo d100,%FILE_SIZE%^&echo q^)^|debug $$$^&^&del $$$') do (

    set op=%%i

    set op=!op:-= !

    echo e!op:~5,53! 2>nul>>"%~n1.cmd"

)

echo rcx>>"%~n1.cmd"

call:DEC_HEX %~z1 >nul

echo %FILE_SIZE%>>"%~n1.cmd"

echo n$tmp$>>"%~n1.cmd"

echo w>>"%~n1.cmd"

echo q>>"%~n1.cmd"

goto :EOF



:DEC_HEX

    set FILE_SIZE=

    set PATTERN=123456789ABCDEF

    set dec=%1

    :WHILE

    set /a res=%dec%%%16-1

    set /a dec/=16

    set res=!PATTERN:~%res%,1!

    set FILE_SIZE=%res%%FILE_SIZE%

    if "%dec%" neq "0" goto WHILE

goto:eof



:usage

    echo.================================================

    echo You did not specify the file to be processed or the specified file does not exist...

    echo.

    echo Usage:

    echo       %~n0 fileName

    echo.================================================

goto:eof



:NOT_SUPPORT

   echo The specified file is too large, the script (%~nx0) cannot process it...

   pause

goto:eof

@echo off

echo ================================================================================

echo        Function: Search for music files on the local disk and create a file named

echo              "$music.htm$" in the current directory.

echo        Note: If "$music.htm$" already exists in the current directory, this file will be replaced.

echo.

echo        code by freeants  CMD@XP  version:1.00

echo ================================================================================

pause>nul|echo Press any key to start searching...

cls

graftabl 936>nul

echo Constructing the Html file...

echo ^<html^>>$music$.htm

echo ^<head^>>>$music$.htm

echo ^<title^>by freeants^</title^>>>$music$.htm

echo ^<style type=text/css^>>>$music$.htm

echo ^<!-->>$music$.htm

echo     A:link{text-decoration:none;color:#001F00;font-size:10pt; font-family: 宋体;}>>$music$.htm

echo     A:visited{text-decoration:none;color:#0000ff;font-size:10pt; font-family: 宋体;}>>$music$.htm

echo     A:hover{text-decoration:underline;color:#ff0000;font-size:10pt; font-family: 宋体;}>>$music$.htm

echo     body{background-color:#345678;background-image:url("$music$.files\bi.gif");margin:0px;}>>$music$.htm

echo     td{font-size:9pt;color:#008B8B;font-family:宋体;background-color:#abcdef;}>>$music$.htm

echo     center{font-size:18pt;color:#00BFFF; font-family:方正舒体;}>>$music$.htm

echo --^>>>$music$.htm

echo ^</style^>>>$music$.htm

echo ^</head^>>>$music$.htm

echo ^<body^>>>$music$.htm

echo ^<center^>^<image src="$music$.files\m1.gif"^>^</center^>>>$music$.htm

echo ^<table width=80%% align=center border=0 cellspacing=2 cellpadding=5^>>>$music$.htm

setlocal enabledelayedexpansion

for /f "skip=1 tokens=1 delims=:" %%m in ('wmic logicaldisk where "drivetype=3" get caption') do set pth=!pth! %%m:\*.mp3

for /f "tokens=*" %%i in ('dir/a/s/b/on !pth! 2^>nul ^| sort') do (

    set /a sign+=1

    set /a num+=1

    set num2=00!num!

    if !sign! equ 1 echo ^<tr^>>>$music$.htm

    if %%~zi geq 1024000 (

        set /a size=%%~zi/1024*100/1024

        if "!size:~0,-2!" equ "" (set size=0.!size:~-2!) else (set size=!size:~0,-2!.!size:~-2!)

        set size=.....Size: ^<font style="color:#FF0000;"^>!size!^</font^> MB

    ) else (

        if %%~zi geq 1024 (

            set /a size=%%~zi*100/1024

            set size=!size:~0,-2!.!size:~-2!

            set size=.....Size: ^<font style="color:#FF0000;"^>!size!^</font^> ^<font style="color:#FF00FF"^>KB^</font^>

        ) else (

            set size=.....Size: ^<font style="color:#FF0000;"^>%%~zi^</font^> ^<font style="color:#FF00FF"^>Bytes^</font^>

        ) 

    )

    set name=%%~nxi

    echo     ^<td^>!num2:~-3!:^<a title="Song name: %%~nxi.&#13;&#10;File size: %%~zi bytes.&#13;&#10;Modification time: %%~ti." href="%%~i"^>!name:~,35!^</a^>!size!^</td^>>>$music$.htm

    if !sign! equ 2  (

        echo ^</tr^>>>$music$.htm

        set sign=0

    )

)

if !sign! equ 1 echo ^</tr^>>>$music$.htm

echo ^</table^>>>$music$.htm

echo ^<br^>^<center style="font-size:10pt;font-family:宋体;"^>This page was created by batch file.^&nbsp;Designed by ^<a href="mailto:freeants@tom.com" style="font-size:10pt;color:#fc8204;cursor:hand;"^>Freeants^</a^>.^</center^>>>$music$.htm

echo ^</body^>>>$music$.htm

echo ^</html^>>>$music$.htm

cls&more +65 "%~0"|debug>nul&graftabl 936>nul

md $music$.files>nul 2>nul&copy/y $tmp$/b "$music$.files\bi.gif">nul&del/a/f/q $tmp$

copy/y $tmp_$/b "$music$.files\m1.gif">nul&del/a/f/q $tmp_$&start $music$.htm

goto:eof

e0100  47 49 46 38 39 61 10 00 10 00 91 00 00 40 54 78 

e0110  4B 62 8C 7B 80 A2 00 00 00 21 F9 04 01 00 00 02 

e0120  00 2C 00 00 00 00 10 00 10 00 00 02 23 4C 80 89 

e0130  A6 76 0A DC 5B 93 4A 08 25 C3 56 73 ED 65 A0 23 

e0140  8E 5B 62 92 67 8A 36 23 17 85 70 3B D7 F6 5D 17 

e0150  00 3B                                           

rcx

52

n$tmp$

w

e0100  47 49 46 38 39 61 B1 00 23 00 84 00 00 00 00 00 

e0110  33 99 CC 99 99 66 CC CC 66 99 CC FF 99 33 00 FF 

e0120  CC 99 99 99 CC 33 66 66 FF 99 33 CC FF FF 66 CC 

e0130  FF 33 66 99 66 33 00 99 66 00 66 66 99 33 33 00 

e0140  FF FF FF 66 99 CC CC 99 33 CC CC CC CC 99 99 66 

e0150  66 33 FF FF FF 00 00 00 00 00 00 00 00 00 00 00 

e0160  00 00 00 00 00 00 00 00 00 00 00 00 00 21 F9 04 

e0170  01 00 00 17 00 2C 00 00 00 00 B1 00 23 00 00 05 

e0180  FE E0 25 8E 64 69 96 08 73 AE 6C EB BE B0 9B 3E 

e0190  71 6D DF 78 CB EC 74 EE FF B7 14 0F 48 2C FA 76 

e01A0  8C 47 C0 78 54 31 49 48 46 40 F2 AC 5A A1 BB E9 

e01B0  35 16 BD 22 B5 5B 5D 40 4A 0D B3 A4 D3 A5 59 87 

e01C0  B6 66 A7 E5 8B 64 BE 0E D8 E7 12 F0 9A 04 B0 C3 

e01D0  F7 67 63 71 46 68 7E 78 12 0B 74 61 77 8C 8A 80 

e01E0  22 7D 77 56 92 2F 68 83 44 59 64 73 89 9C 97 4C 

e01F0  7E 77 87 9E 6B 7D 9B 0B A7 0B 04 A7 A3 30 70 AC 

e0200  25 A1 84 85 A1 9C 07 0B B6 93 69 78 9D 0B 8F 23 

e0210  00 A6 B7 04 C3 07 04 B6 04 39 A6 AD 78 98 B3 79 

e0220  88 A7 AA D2 55 CF 88 BE 2B 87 B5 C3 DB D2 AA 38 

e0230  53 9C 30 79 BD 40 7E 0C D5 9D 00 EA C3 4C 9B D0 

e0240  D7 26 D9 88 D0 DC F5 C8 38 D0 A9 30 A8 44 63 BA 

e0250  9B 17 D4 AD DB 56 84 D3 29 78 F1 76 1D B3 47 40 

e0260  01 85 7B 3E A2 D5 88 76 0F A2 0D 09 02 01 F2 A9 

e0270  47 E4 56 2A 8B 22 B8 3D 2A 46 D2 9E 82 93 46 FE 

e0280  44 C2 00 60 92 00 05 1C C0 24 74 23 D1 90 02 4A 

e0290  22 2A 4B D4 74 08 E8 40 C9 62 C3 6C D6 4C 39 F4 

e02A0  82 82 13 2E 09 B0 74 78 92 E9 C9 97 36 58 1A 23 

e02B0  28 E2 29 CF 22 DC A0 92 70 FA 88 D8 30 00 0F 9D 

e02C0  DE 04 C2 D2 A6 51 9B 47 4B 34 B5 2A 16 ED 0D 00 

e02D0  40 5D 56 65 5A 25 A8 5C B5 4D AF 09 2C 8B 56 41 

e02E0  84 B4 64 FB AE 35 61 93 02 D8 B5 88 01 C7 90 EA 

e02F0  52 30 E2 BF 83 DF 36 36 CB E7 E4 5F 78 EA 28 68 

e0300  66 FA 37 42 04 20 9B D1 76 56 6C 34 B1 DF D3 9E 

e0310  3D BF CD DC B7 73 6A D7 9E FD C2 0C 5D 02 00 EA 

e0320  DB A3 3F 5B 01 AB 59 B3 6B BF BA 71 F4 76 F8 3B 

e0330  B8 D1 DC B7 D5 A1 B6 D1 7B B8 01 E0 96 A1 FF 9E 

e0340  BD 99 4F EC D7 C8 2F EF 7E D8 3C 82 CD E7 B2 71 

e0350  4C 6E 6E C2 7B F3 DE DE 05 7A 37 DE A2 77 C9 E6 

e0360  4C 0D AC FF AE E0 39 05 F6 2B CF 17 8E CF D4 E6 

e0370  FC F5 57 08 20 E0 01 02 C0 75 80 7E 5A C5 FE 20 

e0380  A0 00 04 FA 84 54 05 07 1E 58 01 05 13 1E 28 50 

e0390  6F 2F 0C 28 80 03 0B 2E E8 13 85 9A F1 A6 19 11 

e03A0  00 68 78 40 05 04 4C A8 22 82 E7 5D 61 81 05 0D 

e03B0  BC A8 8E 03 0E 58 D0 61 83 51 BD A8 E3 09 16 D4 

e03C0  E8 A3 8C 2F D2 58 E0 82 17 08 C8 02 8C 48 BE 18 

e03D0  63 8C 41 5A B0 57 87 24 EA A8 63 8D 52 0A 29 20 

e03E0  87 58 0A 70 05 04 10 34 D0 A5 40 10 24 D9 63 96 

e03F0  0E 2C 06 40 97 5C 9E E0 E5 92 31 AA B3 A4 94 2F 

e0400  5E 00 67 09 5C D6 69 27 9A 0D E4 29 66 8F 63 02 

e0410  C1 E5 9A 7A BE C9 24 93 80 E4 D9 25 24 00 E4 99 

e0420  E7 8F 3E 6E B8 D8 9A 10 98 90 28 8C 6C BA C9 A6 

e0430  A2 22 88 49 27 9A 5F 0A A4 28 A5 48 FA 28 64 99 

e0440  3E 18 AA E8 A9 81 C6 58 E3 1E 4B 92 1A 10 00 34 

e0450  D2 08 AB 80 13 08 50 AB AD 2B 9D 6A 42 AC BC 92 

e0460  DA AB AB 22 F0 FA C2 8C 53 FE EA C0 AD B5 FE 10 

e0470  63 01 7C D2 88 E8 8C B1 AE 21 EC 2F 00 FE 4C 60 

e0480  ED 04 EA 5C 7B 6D 02 D7 BE 30 ED 08 BC 96 78 EC 

e0490  04 30 1C EB AC 0B D0 D2 A8 2D B9 02 4D C0 2D B9 

e04A0  3E 7C 5B 5B B5 DD 86 31 6A 6D EB 62 AB 0E B7 06 

e04B0  4C 30 40 02 FF 5A DB C2 B7 E6 5A 9B 6D BD 2D AC 

e04C0  BB 12 96 13 1C BB C2 00 06 0C B0 87 BB F0 8A 30 

e04D0  41 BF 06 18 61 AE C3 16 E7 4B 71 02 FB 52 DC 2F 

e04E0  C0 DC 0E 7C 6E C1 88 6A EB 82 B5 E3 2E 56 B0 CA 

e04F0  25 60 3C F1 C5 23 5C 6C 73 C6 44 34 2C 70 C7 F9 

e0500  F6 FB EF 00 EA 60 EC EE CF 09 0C 5C AB CE 3B 43 

e0510  A2 30 0B 1F D7 50 ED B1 B6 5A 0B 70 09 10 E3 6C 

e0520  C6 C5 12 D7 6C 40 C4 56 FB 00 F3 05 D7 46 AD ED 

e0530  CF D4 62 4C F2 BF 4C 23 8D 30 CF 4B 5B CC ED DB 

e0540  51 89 7D 2D DA 23 6C 1D 31 10 6D 93 00 31 CD 75 

e0550  57 DD 35 0E 5F 83 9D EF 00 FE FA 5B B4 09 10 AF 

e0560  94 EF 09 85 13 EE F8 CD 55 67 1D 77 AD D5 0E 20 

e0570  B9 08 5C 7B BD EE E3 5D 63 1D 73 E6 89 3F 04 CE 

e0580  36 E1 85 DF 4D 62 DE 24 58 FB B8 E3 11 93 9C 03 

e0590  BD AA 57 5C F7 D6 39 6C 0E AF BF 96 8B 00 71 E2 

e05A0  56 34 BE C2 5E B8 5F 5E 84 EF 4C 5B EE 6F C4 9E 

e05B0  FB A0 8E AD AC 53 40 FB D6 11 FC 1D 43 E3 84 8F 

e05C0  B0 FB D6 CE 3B 7F 85 E5 D2 CF DB 9B 01 09 22 B4 

e05D0  9B BF 13 6A 06 3E F4 D1 FB E0 78 05 97 9B EF 7E 

e05E0  F7 45 80 1F 03 79 E2 9B 01 C0 8A E6 D7 77 1F 68 

e05F0  E1 8B F0 7E FF 08 F9 1E 00 EB 57 05 01 3A AF 3E 

e0600  61 38 5F 15 42 00 00 3B                         

rcx

508

n$tmp_$

w

q