找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 24417|回复: 4

[文件操作] [已解决]批处理调用winrar创建加密压缩包如何实现可自定义密码?

[复制链接]
发表于 2016-6-16 09:56:45 | 显示全部楼层 |阅读模式
本帖最后由 pcl_test 于 2016-6-16 11:34 编辑

调用RAR 密码为123456,想自定义输入,-P后面如何引用,请大师指点
set path=%path%;C:\Program Files\WinRAR
for /f "tokens=* delims=" %%i in ('dir /a:d /b') do (
rar -p123456 a "%%~ni.rar" "%%~ni"
)

评分

参与人数 1PB -2 收起 理由
pcl_test -2 未按版规发帖

查看全部评分

发表于 2016-6-16 10:13:10 | 显示全部楼层
  1. set path=%path%;C:\Program Files\WinRAR
  2. set RarPass=bbs.bathome.net
  3. set /p RarPass=Input password:
  4. for /f "delims=" %%i in ('dir /ad /b') do (
  5.     rar -p%RarPass% a "%%~ni.rar" "%%~ni"
  6. )
复制代码
 楼主| 发表于 2016-6-16 10:29:33 | 显示全部楼层
回复 2# GNU 谢谢老师。
发表于 2016-6-16 11:42:25 | 显示全部楼层
  1. @echo off
  2. set 密码=123456
  3. set /p 密码=输入密码:
  4. echo;引用%密码%
  5. pause
复制代码
  1. @echo off
  2. for /f "delims=" %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.Filesystemobject"").GetStandardStream(1).Write(InputBox(""输入密码"",""提示"",""123456""))"^)(close^)') do set "密码=%%a"
  3. echo;引用%密码%
  4. pause
复制代码
 楼主| 发表于 2016-6-17 14:44:40 | 显示全部楼层
回复 4# pcl_test

高手,学习了。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 13:15 , Processed in 0.020855 second(s), 9 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表