『壹』 鐢╞at鑷浣滆嚜宸辯殑闂歸挓銆100鍒嗘ユ眰銆
榪欎釜瑕佽呭崈鍗冮潤鍚鏉ヤ負浣犲搷闂歸挓
@echo off
color f4
mode con: cols=70 lines=20
@echo [闂歸挓紼嬪簭 by錛氱窘鏋玗
Title [闂歸挓紼嬪簭 V1.0]
set tm1=%time:~0,2%
set tm2=%time:~3,2%
set da1=%date:~0,4%
set da2=%date:~5,2%
set da3=%date:~8,2%
mshta vbscript:msgbox("嬈㈣繋浣跨敤闂歸挓紼嬪簭",64,"闂歸挓紼嬪簭")(window.close)
cls
if not exist "C:\Program Files\TTPlayer\TTPlayer.exe" goto ttplayer
goto xp
:ttplayer
mshta vbscript:msgbox("鎮ㄦ病鏈夊畨瑁呭崈鍗冮潤鍚鎾鏀懼櫒鎴栨病鏈夋ｇ『瀹夎咃紒璇峰畨瑁呭埌 C:\Program Files\TTPlayer 鐩褰曚笅錛",64,"閿欒")(window.close)
exit
:xp
if exist "c:\windows\system32\shutdown.exe" goto home
mshta vbscript:msgbox("鎮ㄧ殑鎿嶄綔緋葷粺涓嶆槸Windows XP鎴栬呮洿楂樼増鏈錛",64,"鍏煎歸敊璇")(window.close)
goto end
:home
cls
echo ----------------------------------------------------------------------
echo.
echo 嬈㈣繋%username%, 浠婂ぉ鏄 %da1%騫%da2%鏈%da3%鍙 鏃墮棿涓 %tm1%鏃%tm2%鍒
echo A銆佸畾涔夐椆閽熸椂闂淬
echo B銆佸畾涔夊叧鏈烘椂闂淬
echo C銆佸畾涔夐椆閽熼煶閲忋
echo D銆佸彇娑堜綔涓氥
echo E銆佸叧闂鎻愰啋闂歸挓銆
echo F銆侀樆姝㈢郴緇熷叧鏈恆
echo Q銆侀鍑虹▼搴忋
set /p pass=璇瘋緭鍏ヨ佹搷浣滅殑浠ｇ爜錛圓銆丅銆丆銆丏銆丒銆丗銆丵錛:
set "pass=%pass:"=%"
if /i "%pass%"=="A" goto time
if /i "%pass%"=="B" goto off
if /i "%pass%"=="C" goto vol
if /i "%pass%"=="D" goto c
if /i "%pass%"=="Q" goto end
if /i "%pass%"=="E" goto notime
if /i "%pass%"=="F" goto nooff
cls
@echo msgbox"鎮ㄨ緭鍏ョ殑鏍煎紡鏈夎錛岃烽噸璇曪紒">msg.vbs&msg.vbs&del msg.vbs
goto :home
:time
cls
set tm1=%time:~0,2%
set tm2=%time:~3,2%
echo 璇瘋緭鍏ヨ佸畾涔夌殑鏃墮棿錛岀幇鍦ㄦ椂闂翠負 %tm1%鏃%tm2%鍒嗭紙杈撳叆鏍煎紡涓篨X:XX錛
set /p tm=璇瘋緭鍏ユ椂闂:
set "tm=%tm:"=%"
at %tm% "C:\Program Files\TTPlayer\TTPlayer.exe">nul
if %errorlevel% == 1 goto err
@echo msgbox"闂歸挓宸茶劇疆鎴愬姛錛">msg.vbs&msg.vbs&del msg.vbs
goto home
:off
cls
set tm1=%time:~0,2%
set tm2=%time:~3,2%
echo 璇瘋緭鍏ヨ佸叧鏈虹殑鏃墮棿錛岀幇鍦ㄦ椂闂翠負 %tm1%鏃%tm2%鍒嗭紙杈撳叆涓烘牸寮廥X:XX錛
set /p off=璇瘋緭鍏ユ椂闂:
set "off=%off:"=%"
at %off% shutdown -f -s -t 30 -c "緋葷粺灝30縐掑悗鑷鍔ㄥ叧鏈猴紝璇蜂繚瀛樺ソ鎮ㄦ湭淇濆瓨鐨勬枃浠訛紒 緹芥灚娓╅Θ鎻愮ず銆">nul
if %errorlevel% == 1 goto err
@echo msgbox"瀹氭椂鍏蟲満璁劇疆鎴愬姛錛">msg.vbs&msg.vbs&del msg.vbs
goto home
:vol
cls
echo 璁劇疆闂歸挓闊抽噺銆
rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
@echo msgbox"闊抽噺璁劇疆鎴愬姛錛">msg.vbs&msg.vbs&del msg.vbs
goto home
:c
cls
at /delete /yes
echo.
echo.
echo.
echo 姝ｅ湪鍙栨秷璁懼畾錛岃風◢鍊欙紒
set /p= ====================================================================<nul
set /p= <nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
@echo msgbox"鍙栨秷璁懼畾鎴愬姛">msg.vbs&msg.vbs&del msg.vbs
goto home
:end
exit
:err
@echo msgbox"鎮ㄨ緭鍏ョ殑鏍煎紡鏈夎錛岃烽噸璇曪紒">msg.vbs&msg.vbs&del msg.vbs
goto home
:notime
cls
echo.
echo.
echo.
echo 姝ｅ湪鍏抽棴闂歸挓錛岃風◢鍊欙紒
set /p= ====================================================================<nul
set /p= <nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
taskkill /f /im ttplayer.exe>nul 2>nul
@echo msgbox"闂歸挓宸插叧闂錛">msg.vbs&msg.vbs&del msg.vbs
goto home
:nooff
cls
echo.
echo.
echo.
echo 姝ｅ湪闃繪㈢郴緇熷叧闂錛岃風◢鍊欙紒
set /p= ====================================================================<nul
set /p= <nul
for /l %%b in (1,1,69) do set /p=^><nul&ping -n 0 127.1>nul
shutdown -a>nul 2>nul
@echo msgbox"宸叉垚鍔熼樆姝錛">msg.vbs&msg.vbs&del msg.vbs
goto home