经本人测试,请放心食用
如果有问题,那就是回复发出来的时候出的问题
就因为贴吧的bug,我发了好几遍
@set "aa=mshta vbscript"
@set "bb=CreateObject("Shell.Application")"
@set "cc=ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)"
@set "dd=(window.close)&&exit"
%1 %aa%:%bb%.%cc%%dd%
@璐村惂鐢ㄦ埛_000076K馃惥 off & cd /d %~dp0
title 自动增加天数
setlocal EnableDelayedExpansion
set num=0
set year=%date:~0,4%
set month=%date:~5,2%
set today=%date:~8,2%
set day=%today%
echo;每过三秒会自动增加一天系统日期
echo;请自行查看!
:loop
if %day% lss 10 set day=%day:~1,1%
if %num% lss 3 (
if %day% leq 31 (
choice /t 3 /d y /n>nul
set /a day+=1
set /a num+=1
>tmp echo;%year%/%month%/!day!
date<tmp>nul
)
) else goto end
goto loop:end
choice /c yn /m "是否恢复日期[(y)es/(n)o]" /n
if %errorlevel% equ 1 (
>tmp echo;%year%/%month%/%today%
date<tmp>nul
)
del /q tmp & pause
如果有问题,那就是回复发出来的时候出的问题
就因为贴吧的bug,我发了好几遍
@set "aa=mshta vbscript"
@set "bb=CreateObject("Shell.Application")"
@set "cc=ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)"
@set "dd=(window.close)&&exit"
%1 %aa%:%bb%.%cc%%dd%
@璐村惂鐢ㄦ埛_000076K馃惥 off & cd /d %~dp0
title 自动增加天数
setlocal EnableDelayedExpansion
set num=0
set year=%date:~0,4%
set month=%date:~5,2%
set today=%date:~8,2%
set day=%today%
echo;每过三秒会自动增加一天系统日期
echo;请自行查看!
:loop
if %day% lss 10 set day=%day:~1,1%
if %num% lss 3 (
if %day% leq 31 (
choice /t 3 /d y /n>nul
set /a day+=1
set /a num+=1
>tmp echo;%year%/%month%/!day!
date<tmp>nul
)
) else goto end
goto loop:end
choice /c yn /m "是否恢复日期[(y)es/(n)o]" /n
if %errorlevel% equ 1 (
>tmp echo;%year%/%month%/%today%
date<tmp>nul
)
del /q tmp & pause
