[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

  1. @echo off&title 秒表
  2. ::code 随风 @bbs.bathome.cn   2008-05-02
  3. if "%~1"=="" color 4a&mode con cols=35 lines=4
  4. set cls=
  5. for /l %%i in (1,1,100) do call,set cls=%%cls%%
  6. :list
  7. if "%~1"=="loop" cls&echo 按任意键暂停&goto loop
  8. subst z: "%cd%"
  9. start /b %~s0 loop
  10. pause>nul
  11. subst z: /d
  12. pause>nul
  13. goto list
  14. :loop
  15.   if not exist z: (
  16.     cls&echo 按任意键重新开始
  17.     set /p=             %aa:~-2%:%ab:~-2%:%ac:~-2%.%ad:~-2%<nul
  18.     exit
  19.   )
  20.   set /a d="(d+1)%%100,c=(c+!d)%%60,b+=!(c+d),a+=!(b+c+d)"
  21.   for %%a in (a b c d) do call set a%%a=0%%%%a%%
  22.   set /p=           %aa:~-2%:%ab:~-2%:%ac:~-2%.%ad:~-2%<nul
  23.   set /p=%cls%<nul  
  24. goto loop
复制代码
技术问题请到论坛发帖求助!

回复 10# LJY4.0


    批处理默认格式就能运行吧

TOP

都是高手啊,学习了。

TOP

保存为哪种编码格式呢

TOP

回复 9# pichuli2019

延时+变量
https://pc.woozooo.com/mydisk.php

TOP

大神,这个能解释下吗,秒表是怎么实现的呢
批处理方便生活

TOP

  1. @echo off
  2. title 简易秒表  By: Clark 1623911526@qq.com
  3. mode con cols=46 lines=4
  4. PUSHD "%temp%"
  5. call :sleep
  6. echo.
  7. echo      按任意键开始计时。。。
  8. pause>nul
  9. set s=0
  10. set ms=0
  11. :loop
  12. cls
  13. if %ms%==10 set /a ms=0
  14. echo.
  15. echo      已过了%s%.%ms%秒
  16. echo      Ctrl+C暂停或退出。
  17. if %ms%==9 set /a s=%s%+1
  18. set /a ms=%ms:~0,1%+1
  19. "%temp%"\sleep.exe 100
  20. goto loop
  21. :sleep
  22. @echo ^<package^>^<cab xmlns:dt="urn:schemas-microsoft-com:datatypes" dt:dt="bin.base64"^> >xx
  23. @echo TVNDRgAAAACvAQAAAAAAACwAAAAAAAAAAwEBAAEAAAAAAAAARgAAAAEAAQAABAAAAAAAAAAA>>xx
  24. @echo P0IyaiAAc2xlZXAuZXhlAANlt9ZhAQAEQ0vzjQpgZGRgYGAB4v//GRgCQBwgcGAgDCYA8Z99>>xx
  25. @echo jQz823z+pxleSjM84FmhsEbHoEjEhrNcIC37Elca4yG942z6DIYMr5/o/VfTZ+BjSMu89IKZ>>xx
  26. @echo gSGt82LawZcCW9rOiu5g8DmrCDMzwJWBwQfoooDKpWYwsQcM/IzcjKw8DEwIu+sEgAQIK0Bd>>xx
  27. @echo C2IzQfzBwICgwfJQfcxgUgCiFk7DKQgbyNEgwu8kAwFUe9CBXklqRQmQvgNzEBPC3UheeUBt>>xx
  28. @echo Z4UB7UoB4jKo49yQHGkhwIDT0d6uQX6uPsZGeik5OZimMDC4VmSWBBTlJ6cWFwN57qklzvm5>>xx
  29. @echo uYl5KT6ZeamOQJHgnNTUAob/oiwCDgyGlzwcGiwYSgQbLJRKmb5f4rxU+r7BQqH0lcOfzmOG>>xx
  30. @echo lwwPrOE4UKIMTFeiwHQlCExWjIeOs54EajwLxK8f/VcFsZcCcdB/UQ4glQU0l0GAmBQ8>>xx
  31. @echo CgA=>>xx
  32. @echo ^</cab^>^<job^>^<script language="VBScript"^> >>xx
  33. @echo Set xml = CreateObject("Microsoft.XMLDOM")>>xx
  34. @echo xml.load WScript.ScriptFullName>>xx
  35. @echo Set stm = CreateObject("ADODB.Stream")>>xx
  36. @echo stm.Open : stm.Type = 1 >>xx
  37. @echo stm.Write xml.documentElement.childNodes.item(0).nodeTypedValue>>xx
  38. @echo stm.SaveToFile "xx.cab">>xx
  39. @echo ^</script^>^</job^>^</package^> >>xx
  40. @rename xx xx.wsf
  41. @cscript.exe //nologo xx.wsf
  42. @expand.exe -r xx.cab>nul
  43. @del xx.wsf & del xx.cab
  44. POPD
  45. goto :eof
复制代码
本来还想写个带分钟显示的

TOP

回复 6# 111


    你要实现跟楼主一样的功能,然后再来比较代码长短吧。

TOP

太不准了,我发个简单点的
  1. @echo off
  2. mode con cols=40 lines=5
  3. title 简易秒表
  4. echo.
  5. echo      按任意键开始计时……
  6. pause>nul
  7. set js=0
  8. :m
  9. cls
  10. echo.
  11. echo      已过了%js%秒
  12. echo      ctrl+c暂停或退出。
  13. set /a js=%js%+1
  14. ping 127.1 -n 2 >nul
  15. goto m
复制代码

TOP

太不准了,我发个简单点的
  1. @echo off
  2. mode con cols=40 lines=5
  3. title 简易秒表
  4. echo.
  5. echo      按任意键开始计时……
  6. pause>nul
  7. set js=0
  8. :m
  9. cls
  10. echo.
  11. echo      已过了%js%秒
  12. echo      ctrl+c暂停或退出。
  13. set /a js=%js%+1
  14. ping 127.1 -n 2 >nul
  15. goto m
复制代码

TOP

跟真的很像~
可以拿来计时了~

TOP

::退格键的输入方法 
无法直接用批处理打出来。
开始、运行。。。依次运行下面的内容。
cmd
edit
ctrl+p
alt+08
保存,退出。
1

评分人数

    • plp626: 学习,再巩固一次PB + 2
技术问题请到论坛发帖求助!

TOP

有个问题啊,那个“cls=%%cls%%”中的退格键怎么打出来的啊?

TOP

返回列表