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

密码一行一个输入到password.txt,将bat、txt和压缩包放一起运行,注意备份源文件
  1. @echo off
  2. mode con lines=3000
  3. set info=互助互利,支付宝扫码头像,感谢赞助
  4. rem 有问题,可加QQ956535081及时沟通
  5. title %info%
  6. cd /d "%~dp0"
  7. set "pw=password.txt"
  8. set "rarpath=C:\Program Files\WinRAR\WinRAR.exe"
  9. if not exist "%rarpath%" (echo;指定WinRAR的安装路径不正确或没有安装&pause&exit)
  10. if not exist "%pw%" (echo;密码文件不存在&pause&exit)
  11. for /f "delims=" %%a in ('dir /a-d/b *.rar *.zip') do (
  12.     call :check "%%a"
  13.     rd /s /q "%%~dpna\" 2>nul
  14. )
  15. echo;%info%
  16. pause&exit
  17. :check
  18. if not exist "%~dpn1\" md "%~dpn1\"
  19. set "f="
  20. "%rarpath%" x -p"" -ibck -y "%~1" "%~dpn1\"
  21. for /f "delims=" %%c in ('dir /a-d/b/s "%~dpn1\" 2^>nul') do set f=true
  22. if defined f (
  23.     echo;["无密码"]"%~1"
  24.     exit /b
  25. )
  26. for /f "delims=" %%b in ('type "%pw%"') do (
  27.     "%rarpath%" x -p"%%b" -ibck -y "%~1" "%~dpn1\"
  28.     for /f "delims=" %%c in ('dir /a-d/b/s "%~dpn1\" 2^>nul') do set f=true
  29.     if defined f (
  30.         echo;["%%b"]"%~1"
  31.         del /a /f /q "%~1"
  32.         "%rarpath%" a -r -ep1 -ibck "%~1" "%~dpn1\"
  33.         exit /b
  34.     )
  35. )
  36. echo;["找不到密码"]"%~1"
  37. exit /b
复制代码
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表