1. @echo off&setlocal enabledelayedexpansion
   
2. rem 黑马论坛回复计时、提醒
   
3. rem 2015年11月29日
   
4. rem Author xin3283@qq.com
   
5. set path=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;
   
6. set /a n=5
   
7. rem 将 %0 扩展到一个完全合格的路径名jpa
   
8. set jpa=%~f0
   
9. set runOne=%SystemRoot%\runOne.vbs
   
10. set runEnd=%SystemRoot%\runEnd.vbs
    
11. set runWaitCalc=%SystemRoot%\runWaitCalc.bat
    
12. if "%1" == "uninstall" (
    
13.         del /q %runOne% %runEnd% %runWaitCalc%
    
14.         echo 相关文件已全部删除&exit /b 0
    
15. )
    
16. echo.msgbox"%n%次回复完成" ,48,"提示" >%runEnd%
    
17. if not exist %runWaitCalc% call :wait
    
18. rem 执行控制
    
19. for /l %%i in (1,1,%n%) do (
    
20.         echo 第%%i次
    
21.         call :runOneCode %%i
    
22.         if "%%i"=="%n%" call runEnd.vbs&exit /b 0
    
23.         call runWaitCalc.bat
    
24. )
    
25. :wait
    
26. rem 获取文本行数、取出每行内容、获取yu_rename关键字行数、存放至%runWaitCalc%
    
27. for /f "tokens=1" %%i in ('type %jpa%^|find /v "" /c') do set /a rows=%%i
    
28. (for /l %%i in (1,1,%rows%) do set /p row%%i=)<%jpa%
    
29. for /f "tokens=1 delims=:" %%i in ('type %jpa%^|findstr /b /n "yu_rename"')  do set /a begin=%%i
    
30. set /a begin+=1
    
31. for /l %%i in (%begin%,1,%rows%) do @(
    
32.         echo !row%%i!
    
33. )>>%runWaitCalc%
    
34. goto :eof
    
35. :runOneCode
    
36. set /a code=%1
    
37. echo.msgbox"第%code%次" +chr(13)+"回复完成后点我确定" ,64,"提示" >%runOne%
    
38. call %runOne%
    
39. goto :eof
    
40. yu_rename 2>nul
    
41. @echo off&set /a count=60
    
42. :re
    
43. ping /w 1000 /n 1 10.99.99.9 >nul&set /a count-=1
    
44. cls&echo 下次可回复倒计时:%count%
    
45. if "%count%" GTR "0" goto :re

复制代码

卸载相关文件方法：cmd界面下 文件名 + uninstall

实测可用！赞一个！！！

今天修改了下，代码量减少，可读性增强，功能不变

1. @echo off&setlocal enabledelayedexpansion
   
2. rem 黑马论坛回复计时、提醒
   
3. rem 2015年11月30日
   
4. rem Author xin3283@qq.com
   
5. set path=%SystemRoot%\system32;%SystemRoot%;%SystemRoot%\System32\Wbem;%SYSTEMROOT%\System32\WindowsPowerShell\v1.0\;
   
6. rem n:控制循环次数，
   
7. set /a n=5
   
8. rem 将 %0 扩展到一个完全合格的路径名jpa
   
9. set jpa=%~f0
   
10. set runOne=%SystemRoot%\runOne.vbs
    
11. set runEnd=%SystemRoot%\runEnd.vbs
    
12. if "%1" == "uninstall" (
    
13.         del /q %runOne% %runEnd%
    
14.         echo 相关文件已全部删除&exit /b 0
    
15. )
    
16. echo.msgbox"%n%次回复完成" ,48,"提示" >%runEnd%
    
17. rem 执行控制
    
18. for /l %%i in (1,1,%n%) do (
    
19.         call :runOneCode %%i
    
20.         if "%%i"=="%n%" call runEnd.vbs&exit /b 0
    
21.         call :runWaitCalc %%i
    
22. )
    
23. :runOneCode
    
24. set /a code=%1
    
25. echo.msgbox"第%code%次" +chr(13)+"回复完成后点我确定" ,64,"提示" >%runOne%
    
26. call %runOne%
    
27. goto :eof
    
28. yu_rename 2>nul
    
29. :runWaitCalc
    
30. rem 回复次数；count 每次循环间隔时间，单位秒
    
31. set /a num=%1+1,count=60
    
32. :re
    
33. ping /w 1000 /n 1 10.99.99.9 >nul&set /a count-=1
    
34. cls&echo 第%num%次可回复倒计时:%count%
    
35. if "%count%" GTR "0" goto :re
    
36. exit /b 0

复制代码

赞赞赞0.0