@echo off
CLS
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%
ECHO %ENTRY%
ECHO %DATIME%
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%.TXT
DEL %ENTRY%%DATIME%.LOG
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%
ECHO %ENTRY%
setlocal enabledelayedexpansion
echo %n%
ECHO %WIZARD%
IF %WIZARD:~0,8%==https:// SET WIZARF=##%WIZARD:~8%
IF %WIZARD:~0,7%==http:// SET WIZARF=##%WIZARD:~7%
ECHO %WIZARF%
SET WIZARD=%WIZARF%
SET WIZARD=%WIZARD:/=#%
SET WIZARD=%WIZARD:.=_%
CALL :set_week
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%
CLS
DIR /a:-d %WIZARNTRY%
exit /b
:set_week
set TODAY=%datime%
REM WHICH WEEK
set /a h=%TODAY:~0,2%
set /a y=%TODAY:~2,2%
set m1=%TODAY:~5,1%
set m2=%TODAY:~6,1%
if "%m2%" equ "/" (
set /a m=m1
set /a d=%TODAY:~7,2%
) else (
set /a m=m1*10+m2
set /a d=%TODAY:~8,2%
)
if %m%==1 ( set /a y-=1&set /a m+=12 )
if %m%==2 ( set /a y-=1&set /a m+=12 )
set /a week_value=( y + (y/4) + (h/4) - 2*h + (13*(m+1)/5) + d ) %% 7
if %week_value%==0 set WEEK=Sat
if %week_value%==1 set WEEK=Sun
if %week_value%==2 set WEEK=Bon
if %week_value%==3 set WEEK=Cue
if %week_value%==4 set WEEK=Ded
if %week_value%==5 set WEEK=Ehu
if %week_value%==6 set WEEK=Fri