```
@echo off
rem Hide the running process
if "%1" == "hide" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit
:begin
rem Set the next minute of the current time
set h=%time:~0,2%&&set m=%time:~3,2%&&set /a m+=1
rem Hour and minute carry
if %m% gtr 59 set /a m=0&&set /a h+=1
rem Get the current second
set s=%time:~6,2%
rem If the second is greater than or equal to 56, directly execute the switch
if %s% geq 56 goto start
rem If the second is less than 56, convert the remaining seconds to microseconds
if %s% lss 56 set /a s=(56-%time:~6,2%)*100
rem Execute the delay program
call :ProcDelay %s%
:start
rem End the Explorer.exe process
TaskKill /f /im Explorer.exe>nul 2>nul
rem Set the service related to the at command to automatic
sc config schedule start= auto>nul 2>nul
rem Add a task plan (execute starting from the next minute)
at %h%:%m% /interactive %SystemRoot%\Explorer.exe>nul 2>nul
rem Delay to delete all task plans
call :ProcDelay 500
at /delete /yes
rem End
goto end
rem Delay program
:ProcDelay number
Setlocal EnableExtensions
for /f "tokens=1-4 delims=:. " %%h in ("%TIME%") do set start_=%%h%%i%%j%%k
:wait_
for /f "tokens=1-4 delims=:. " %%h in ("%TIME%") do set now_=%%h%%i%%j%%k
set /a diff_=%now_%-%start_%
if %diff_% lss %1 goto wait_
Endlocal
:end
[ Last edited by chishingchan on 2008-11-23 at 12:06 ]
```
@echo off
rem Hide the running process
if "%1" == "hide" goto begin
mshta vbscript:createobject("wscript.shell").run("""%~nx0"" hide",0)(window.close)&&exit
:begin
rem Set the next minute of the current time
set h=%time:~0,2%&&set m=%time:~3,2%&&set /a m+=1
rem Hour and minute carry
if %m% gtr 59 set /a m=0&&set /a h+=1
rem Get the current second
set s=%time:~6,2%
rem If the second is greater than or equal to 56, directly execute the switch
if %s% geq 56 goto start
rem If the second is less than 56, convert the remaining seconds to microseconds
if %s% lss 56 set /a s=(56-%time:~6,2%)*100
rem Execute the delay program
call :ProcDelay %s%
:start
rem End the Explorer.exe process
TaskKill /f /im Explorer.exe>nul 2>nul
rem Set the service related to the at command to automatic
sc config schedule start= auto>nul 2>nul
rem Add a task plan (execute starting from the next minute)
at %h%:%m% /interactive %SystemRoot%\Explorer.exe>nul 2>nul
rem Delay to delete all task plans
call :ProcDelay 500
at /delete /yes
rem End
goto end
rem Delay program
:ProcDelay number
Setlocal EnableExtensions
for /f "tokens=1-4 delims=:. " %%h in ("%TIME%") do set start_=%%h%%i%%j%%k
:wait_
for /f "tokens=1-4 delims=:. " %%h in ("%TIME%") do set now_=%%h%%i%%j%%k
set /a diff_=%now_%-%start_%
if %diff_% lss %1 goto wait_
Endlocal
:end
[ Last edited by chishingchan on 2008-11-23 at 12:06 ]
```

