@ECHO OFF&& SETLOCAL&& PUSHD "%~dp0"&& SETLOCAL ENABLEDELAYEDEXPANSION&& SETLOCAL ENABLEEXTENSIONS&& SET V=5&& IF NOT "!V!"=="5" (ECHO DelayedExpansion Failed&& GOTO :EOF) SET P1=^^^>^^^>^^^> SET P2=++ SET P3=:: SET L1=+==============================================================================================================+ SET L2=+--------------------------------------------------------------------------------------------------------------+ SET RUNYEAR=2010 SET LISTBUFFER=0 SET SSDIR=Z:\SS\2010 SET SSLOG=ss.log SET CCLOG=cc.log SET LIKENESS=0 CALL :MM "Starting SS Optimization on %SSDIR% AT %DATE% %TIME%" C:\CRYPT\BIN\du.exe -q %SSDIR% > %SSLOG% TYPE %SSLOG% && SLEEP 2 CALL :MM "Removing Duplicates for %RUNYEAR% from %SSDIR%" FOR %%i in (01 02 03 04 05 06 07 08 09 10 11 12) DO CALL :DUPEPASS "%SSDIR%\%%i-%RUNYEAR%" CALL :MM "Optimizing %SSDIR% with optipng" FOR /R %SSDIR% %%I in ( *.png ) DO CALL :OPTIPNGRUN %%I CALL :MM "BEFORE SS PNG Optimization: %DATE% %TIME%" TYPE %SSLOG% && SLEEP 2 CALL :MM "AFTER SS PNG Optimization: %DATE% %TIME%" C:\CRYPT\BIN\du.exe -q %SSDIR% CALL :MM "Defragmenting %SSDIR%" C:\crypt\bin\Contig.exe -s %SSDIR% | FIND "files" | FIND "d" DEL /F /Q %SSLOG% %CCLOG% POPD && ENDLOCAL && GOTO :EOF :DUPEPASS @ECHO DUPEPASS %~1 FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i FOR /R %~1 %%i in ( *.png ) DO CALL :AREDUPLICATES %%i EXIT /B :AREDUPLICATES IF %LISTBUFFER% NEQ 0 ( ECHO > %CCLOG% ECHO .....COMPARE %~1 %LISTBUFFER% "C:\Program Files\ImageMagick-6.6.4-Q16\compare.exe" -extract 3840x1100+10+10 -metric MAE %~1 %LISTBUFFER% NUL 2>%CCLOG% FOR /F "tokens=1 delims= " %%i in (%CCLOG%) DO SET LIKENESS=%%i SET /A LIKENESS*=1 IF !LIKENESS! LSS 75 ECHO.&& ECHO ^>^>^> [!LIKENESS!] DELETING %LISTBUFFER% && DEL /F /Q %LISTBUFFER% SET LISTBUFFER=0 ) ELSE ( SET LISTBUFFER=%~1 ) EXIT /B :OPTIPNGRUN TITLE ^>^>^> PROCESSING %~1 C:\CRYPT\BIN\optipng.exe -zc 9 -zm 8 -zs 0 -f 0 -preserve "%~1" | FIND ", 1 color in palette" 1>NUL && ECHO ^>^>^> DELETING %~1 && @DEL /P /F /Q "%~1" EXIT /B :MM ECHO. && ECHO %L1% && TITLE +++ %~1... && ECHO %P1% %~1... && ECHO %L2% && ECHO. && EXIT /B :: nircmd.exe savescreenshotfull "Z:\SS\~$currdate.MM-dd-yy$-~$currtime.HHmm$.png" :: sleep 2 :: compare -fuzz 10 -metric PSNR "%~1" "%~2" null: :: if errorlevel 1 echo "Found It!" :: endlocal && exit /B :: FOR /R Z:\SS\08-2010 %I in ( *.png ) DO @optipng -zc 9 -zm 9 -zs 0 -f 0 -preserve -simulate %I | FIND "1 color in palette" 1>nul && @ECHO DEL /F /Q %I :: C:\WINDOWS\nircmd.exe savescreenshotfull "Z:\SS\~$currdate.MM-dd-yy$-~$currtime.HHmm$.png" :: FOR /R Z:\SS\08-2010 %i in ( *.png ) DO @ECHO %i :: FOR /R Z:\SS\06-2010 %i in ( 06-08-10*.png ) DO @ECHO %i ::GETLIST ::SET F=%~1 ::SET F=%F:~0,19% ::FOR /R Z:\SS\06-2010 %%i in ( %F%*.png ) DO @ECHO %%i ::FOR /R Z:\SS\06-2010 %%i in ( *.png ) DO CALL :GETLIST %%i ::FOR /L %%i in (0,1,31) DO @SET M=00%%i && ECHO !M:~-3!