[游戏娱乐] 批处理模拟秒表

@echo off
mode con cols=40 lines=5
title 简易秒表
echo.
echo      按任意键开始计时……
pause>nul
set js=0
:m
cls
echo.
echo      已过了%js%秒
echo      ctrl+c暂停或退出。
set /a js=%js%+1
ping 127.1 -n 2 >nul
goto mCOPY

@echo off
mode con cols=40 lines=5
title 简易秒表
echo.
echo      按任意键开始计时……
pause>nul
set js=0
:m
cls
echo.
echo      已过了%js%秒
echo      ctrl+c暂停或退出。
set /a js=%js%+1
ping 127.1 -n 2 >nul
goto mCOPY

@echo off
title 简易秒表  By: Clark 1623911526@qq.com
mode con cols=46 lines=4
PUSHD "%temp%"
call :sleep
echo.
echo      按任意键开始计时。。。
pause>nul
set s=0
set ms=0
:loop
cls
if %ms%==10 set /a ms=0
echo.
echo      已过了%s%.%ms%秒
echo      Ctrl+C暂停或退出。
if %ms%==9 set /a s=%s%+1
set /a ms=%ms:~0,1%+1
"%temp%"\sleep.exe 100
goto loop
 
:sleep
@echo ^<package^>^<cab xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64"^> >xx
@echo TVNDRgAAAACvAQAAAAAAACwAAAAAAAAAAwEBAAEAAAAAAAAARgAAAAEAAQAABAAAAAAAAAAA>>xx
@echo P0IyaiAAc2xlZXAuZXhlAANlt9ZhAQAEQ0vzjQpgZGRgYGAB4v//GRgCQBwgcGAgDCYA8Z99>>xx
@echo jQz823z+pxleSjM84FmhsEbHoEjEhrNcIC37Elca4yG942z6DIYMr5/o/VfTZ+BjSMu89IKZ>>xx
@echo gSGt82LawZcCW9rOiu5g8DmrCDMzwJWBwQfoooDKpWYwsQcM/IzcjKw8DEwIu+sEgAQIK0Bd>>xx
@echo C2IzQfzBwICgwfJQfcxgUgCiFk7DKQgbyNEgwu8kAwFUe9CBXklqRQmQvgNzEBPC3UheeUBt>>xx
@echo Z4UB7UoB4jKo49yQHGkhwIDT0d6uQX6uPsZGeik5OZimMDC4VmSWBBTlJ6cWFwN57qklzvm5>>xx
@echo uYl5KT6ZeamOQJHgnNTUAob/oiwCDgyGlzwcGiwYSgQbLJRKmb5f4rxU+r7BQqH0lcOfzmOG>>xx
@echo lwwPrOE4UKIMTFeiwHQlCExWjIeOs54EajwLxK8f/VcFsZcCcdB/UQ4glQU0l0GAmBQ8>>xx
@echo CgA=>>xx
@echo ^</cab^>^<job^>^<script language="VBScript"^> >>xx
@echo Set xml = CreateObject("Microsoft.XMLDOM")>>xx
@echo xml.load WScript.ScriptFullName>>xx
@echo Set stm = CreateObject("ADODB.Stream")>>xx
@echo stm.Open : stm.Type = 1 >>xx
@echo stm.Write xml.documentElement.childNodes.item(0).nodeTypedValue>>xx
@echo stm.SaveToFile "xx.cab">>xx
@echo ^</script^>^</job^>^</package^> >>xx
@rename xx xx.wsf
@cscript.exe //nologo xx.wsf
@expand.exe -r xx.cab>nul
@del xx.wsf & del xx.cab
POPD
goto :eofCOPY