- @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 :eof
复制代码 本来还想写个带分钟显示的 |