@echo off
CLS
COLOR F0
IF "%1"=="" %0 http://type-98.lix.jp/area_02/takaba/super/img/time/v-commander.jpg
chcp 932
setlocal enabledelayedexpansion
SET ENTRY=
rem text//binaryの区分は継続課題にします。
REM ファイル名を切り出す。
set FOURZE=%1
set WIZARD=!FOURZE!
set /a n=1
:fileversing
(set POP=!WIZARD:~-%n%,1!)
if "!POP!"=="/" goto :filevesexit
(set ENTRY=!POP!!ENTRY!)
set /a n+=1
goto :fileversing
:filevesexit
setlocal enabledelayedexpansion
SET DATIME=%DATE%%TIME%
SET DATIME=%DATIME:~0,4%%DATIME:~5,2%%DATIME:~8,2%~%DATIME:~10,2%%DATIME:~13,2%%DATIME:~16,2%%DATIME:~19,2%
SET DATIMES=%%DATIME: =0%
chcp 932
INET_GET -f %DATIME%%ENTRY% -r 5 -v -nr -t %FOURZE% -L %ENTRY%%DATIME%.LOG >NUL
TYPE %ENTRY%%DATIME%.LOG | FIND "Last-Modified:"> %ENTRY%%DATIME%.TXT
FOR /F "delims=" %%A IN (%ENTRY%%DATIME%.TXT) DO SET LASTMODIFIED=%%A
DEL %ENTRY%%DATIME%.*
DEL %DATIME%%ENTRY%
set entry='%LASTMODIFIED:~29,2%'%LASTMODIFIED:~23,3%%LASTMODIFIED:~20,2%%LASTMODIFIED:~15,3%%LASTMODIFIED:~32,2%%LASTMODIFIED:~35,2%%LASTMODIFIED:~38,2%GMT#%ENTRY%
setlocal enabledelayedexpansion
IF %WIZARD:~0,8%==https:// SET WIZARF=_%WIZARD:~8%
IF %WIZARD:~0,7%==http:// SET WIZARF=_%WIZARD:~7%
SET WIZARD=%WIZARF%
REM ドメインの取得
set /a n=1
SET DOMAIN=
SET PIECE=
set POP=
setlocal enabledelayedexpansion
:domain
if "!POP!"=="/" goto :domainexit
SET WIZARD=!WIZARD:~1!
set POP=!WIZARD:~0,1!
if "!POP!"=="." (
SET DOMAIN=!PIECE!_!DOMAIN!
SET PIECE=
goto :domain
)
SET PIECE=!PIECE!!POP!
set /a n+=1
goto :domain
:domainexit
SET DOMAIN=#!PIECE:/=_!!DOMAIN!
SET WIZARD=!DOMAIN!!WIZARD!
SET WIZARD=%WIZARD:_/=##%
SET WIZARD=%WIZARD:/=#%
SET WIZARD=%WIZARD:.=_%
SET WIZARNTRY=%WIZARD%%ENTRY%
INET_GET -r 5 -v -nr -t -f %WIZARNTRY% %FOURZE%
touchin -c -sw %WIZARNTRY%
touchin -a -sw %WIZARNTRY%
rem AFTER 60 YEARS
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+65535:0:0 -sw %WIZARNTRY%
touchin -w -t+1680:0:0 -sw %WIZARNTRY%
ATTRIB +R %WIZARNTRY%
COLOR 0F
CLS
DIR /a:-d %WIZARNTRY%