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

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2016-10-3 03:24 | 只看该作者

[文件管理] 用 WinRAR + Windows 右键发送到 (SendTo) 给文件或目录快速打包[带实时时间命名后缀]

此脚本无参数运行时, 将把自身复制到 SendTo 目录

在单一文件或者单一目录[无论文件或目录都只支持一个, 但目录内可含有任意层子目录及任意个文件]上点右键菜单发送到 ==> 此脚本文件名 时

将为该文件/目录创建一个带实时时间后缀的压缩包, 和源文件在同一目录下

例: 源文件名 file.txt, 压缩包名 file-20161003_025808.zip

ftype 是压缩格式 zip 或者 rar 可选

mmode 是压缩比, 范围 0--5  0 最低, 5 最高

pwd  是密码, 用你需要的密码替换即可, 此密码会被加入压缩包的明文中,
        因本人最初目的只为备份及简单防毒.
        
可以把本文件修改另存为几个副本, 比如我用了 6 种设置, 如下图
  1. @echo off & chcp 936

  2. 

  3. ::                        +--------------------------------------------------+

  4. ::                        |#  _添加到加密同名压缩文件(.rar)_-m3.CMD          |

  5. ::                        |#  _添加到加密同名压缩文件(.rar)_存储-m0.CMD      |

  6. ::                        |#  _添加到加密同名压缩文件(.rar)_最好-m5.CMD      |

  7. ::   _____                |#  _添加到加密同名压缩文件(.zip)_-m3.CMD          |

  8. ::  | .. |\               |#  _添加到加密同名压缩文件(.zip)_存储-m0.CMD      |

  9. ::  | .. |_\              |#  _添加到加密同名压缩文件(.zip)_最好-m5.CMD      |

  10. ::  | ,,,, |              |B  Bluetooth设备                                  |

  11. ::  | ....+---------------|M  传真收件人                                     |

  12. ::  |_____|   打开(O)     |   文档                                           |

  13. ::  file.t|#  .....       |   压缩(zipped)文件夹                             |

  14. ::        |#              |   邮件接收人                                     |

  15. ::        |$  ...         |   桌面快捷方式                                   |

  16. ::        |               |   DVD RW 驱动器(F:)                              |

  17. ::        |   发送到(N) > +--------------------------------------------------+

  18. ::        |               |

  19. ::        |               |

  20. ::        |   属性(R)     |

  21. ::        +---------------+

  22. 

  23. 

  24. setlocal enableDelayedExpansion

  25. 

  26. set "ftype=zip"             & REM 压缩格式 ftype: zip 或者 rar

  27. 

  28. set "mmode=3"               & REM 压缩比 mmode: [0,5] 5 最高, 0 最低

  29. 

  30. set "pwd=yourpassword"      & REM 为压缩包设定一个密码, 此密码将在压缩包注释中可见

  31. 

  32. REM 如果空参数运行, 将本文件复制到 SendTo 目录中

  33. if "%~1"=="" (

  34. 

  35.     for /f tokens^=2* %%a in ('reg query "HKCU\software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v SendTo ^| find /i "REG_SZ"') do (

  36.         echo;copy /y "%~0" "%%~b\"

  37.         copy /y "%~0" "%%~b\"

  38.     )

  39.     echo;任意键退出...

  40.     >nul pause

  41.     exit

  42. )

  43. 

  44. 

  45. REM 生成随机标记串

  46. set "neorand=neorand_"

  47. for /l %%a in (1 1 5) do (

  48.     set "neorand=!neorand!!random:~-1!"

  49. )

  50. echo;随机标记串

  51. set neorand

  52. 

  53. 

  54. REM 搜索出 winrar 的全路径

  55. set "filename=winrar.exe"

  56. call :searchFile winrarFullname

  57. echo;winrar 的全路径

  58. echo;winrarFullname={!winrarFullname!}

  59. 

  60. set "r_param="

  61. if exist "%~1\" (

  62.     set "r_param=-r"

  63. )

  64. 

  65. echo;"%winrarFullname%" a -ag-YYYYMMDD_HHMMSS -m%mmode% -af%ftype% "%~dp1!neorand!%~n1.%ftype%" -p%pwd% %r_param% -ep1 "%~1"

  66. "%winrarFullname%" a -ag-YYYYMMDD_HHMMSS -m%mmode% -af%ftype% "%~dp1!neorand!%~n1.%ftype%" -p%pwd% %r_param% -ep1 "%~1"

  67. 

  68. REM 生成注释文件

  69. > "%~dp0rarcomment.txt" (

  70.     echo;"%~n1.%ftype%" 生成于 %date%_%time%

  71.     echo;pwd

  72.     echo;!pwd!

  73. )

  74. 

  75. REM 找出含有 随机标记串 前缀 日期时间 后缀 的压缩文件名

  76. set "arcname="

  77. for /f "delims=" %%a in ('dir /s /b "%~dp1!neorand!%~n1*.%ftype%"') do (

  78.     if "!arcname!"=="" (

  79.         set "arcname=%%~a"

  80.     )

  81. )

  82. echo;含有 随机标记串 前缀 日期时间 后缀 的压缩文件名

  83. set arcname

  84. 

  85. REM 添加注释

  86. "%winrarFullname%" c -z"%~dp0rarcomment.txt" "!arcname!"

  87. del "%~dp0rarcomment.txt"

  88. 

  89. REM 去掉 随机标记串

  90. for %%a in ("!arcname!") do (

  91.     REM echo;%%~nxa

  92.     set "fn=%%~nxa"

  93.     set "fn=!fn:~13!"

  94. )

  95. 

  96. ren "!arcname!" "!fn!"

  97. 

  98. title 压缩包已经生成, 按任意键退出...

  99. <nul set /p "=压缩包已经生成, 按任意键退出..."

  100. >nul pause

  101. 

  102. exit

  103. 

  104. 

  105. :searchFile winrarFullname

  106. 

  107. setlocal enableDelayedExpansion

  108. set "rt="

  109. 

  110. for %%d in (C D E) do (

  111.     if "!rt!"=="" (

  112.         for %%V in ("ProgramFiles" "ProgramFiles(x86)" "ProgramData" "ProgramW6432") do (

  113.             if "!rt!"=="" if "!%%~V!" neq "" (

  114. 

  115.                 for /f "delims=" %%p in ('dir "%%d!%%~V:~1!\!filename!" /a /s /b') do (

  116.                     if "!rt!"=="" if /i "%%~nxp"=="!filename!" (

  117.                         set "rt=%%~p"

  118.                     )

  119.                 )

  120.             )

  121.         )

  122.     )

  123. )

  124. 

  125. if "!rt!"=="" (

  126.     for %%d in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (

  127.         if "!rt!"=="" (

  128.             for /f "delims=" %%p in ('dir %%d:\"!filename!" /a /s /b') do (

  129.                 if "!rt!"=="" if /i "%%~nxp"=="!filename!" (

  130.                     set "rt=%%~p"

  131.                 )

  132.             )

  133.         )

  134.     )

  135. )

  136. 

  137. ( endlocal & REM RETURN VALUES

  138.     if "%~1" NEQ "" (set %~1=%rt%) else (echo;%rt%)

  139.     exit /b

  140. )

  141. 

  142. exit /b

  143. 

  144. REM wmic 方式搜索文件, 慢

  145. :searchFile_wmic winrarFullname

  146. setlocal enableDelayedExpansion

  147. set "rt="

  148. for /f %%d in ('wmic logicaldisk get deviceid^|more +1') do (

  149.     if "!rt!"=="" (

  150.         for /f "delims=" %%p in ('dir %%d\"!filename!" /a /s /b') do (

  151.             if "!rt!"=="" if /i "%%~nxp"=="!filename!" (

  152.                 set "rt=%%~p"

  153.             )

  154.         )

  155.     )

  156. )

  157. 

  158. ( endlocal & REM RETURN VALUES

  159.     if "%~1" NEQ "" (set %~1=%rt%) else (echo;%rt%)

  160.     exit /b

  161. )

  162. exit /b
复制代码
收藏 分享

aa77dd@163.com

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
11楼
发表于 2016-10-4 19:23 | 只看该作者
回复 10# plp626

Thanks!

试了下, Win7 / XP  都有 ftype

TOP

plp626

Rank: 8Rank: 8

帖子
640 
积分
2838 
技术
101  
捐助
0  
注册时间
2008-1-17 
10楼
发表于 2016-10-4 19:15 | 只看该作者
回复 1# aa77dd@163.com

找rar目录可以用ftype，
  1.     ftype | findstr /i rar
复制代码
1

评分人数

技术娱乐 3802

TOP

aa77dd@163.com

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
9楼
发表于 2016-10-3 17:09 | 只看该作者
回复 8# 我来了

98年, 我没见过 Windows, 只见过 DOS , 更没有自己的电脑

TOP

我来了

Rank: 6Rank: 6

帖子
431 
积分
1577 
技术
11  
捐助
0  
注册时间
2013-1-11 
8楼
发表于 2016-10-3 16:25 | 只看该作者
回复 7# aa77dd@163.com

俺98年就玩注册表了

TOP

aa77dd@163.com

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
7楼
发表于 2016-10-3 11:53 | 只看该作者
回复 6# 我来了

馋我啊
  1.                               ==

  2.                              ==

  3.                             ==

  4.             ``````````      ==

  5.         ```==========```     ==

  6.  /\```/\================`````==

  7. (  O O  )=====================

  8. === ^ === ================

  9.   \ O / ==================

  10.    ''' ======        =====

  11.         ====         ====

  12.         ===          ===

  13.          ==          ==

  14.          ==          ==

  15.          ==          ==

  16.          WW          WW

  17.         ''          ''  
复制代码

TOP

我来了

Rank: 6Rank: 6

帖子
431 
积分
1577 
技术
11  
捐助
0  
注册时间
2013-1-11 
6楼
发表于 2016-10-3 11:44 | 只看该作者
回复 5# aa77dd@163.com

我还有N多修改注册表的秘方

TOP

aa77dd@163.com

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
5楼
发表于 2016-10-3 11:09 | 只看该作者
回复 4# 我来了

多谢啦
  1.                  _  _

  2.                 ( \/ )

  3.          .---.   \  /   .-"-.

  4.         /   6_6   \/   / 4 4 \

  5.         \_  (__\       \_ v _/

  6.         //   \\        //   \\

  7.        ((     ))      ((     ))

  8.  =======""===""========""===""=======

  9.           |||   THANKS   |||

  10.            |              |
复制代码

TOP

我来了

Rank: 6Rank: 6

帖子
431 
积分
1577 
技术
11  
捐助
0  
注册时间
2013-1-11 
4楼
发表于 2016-10-3 10:33 | 只看该作者
回复 3# aa77dd@163.com

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\WinRAR\Profiles]

[HKEY_CURRENT_USER\Software\WinRAR\Profiles\0]
"Name"="加密码 加注释1"
"Default"=dword:00000001
"ImmExec"=dword:00000001
"ExclNames"=""
"StoreNames"=""
"UseRAR"=dword:00000001
"RAR5"=dword:00000000
"SFXModule"=""
"SFXIcon"=""
"SFXLogo"=""
"SFXElevate"=dword:00000000
"CmtFile"="D:\\注释.txt"
"CmtDataWide"=hex:00,00
"VolumeSize"="0"
"VolSizeMod"=dword:00000000
"VolPause"=dword:00000000
"OldVolNames"=dword:00000000
"RecVolNumber"=dword:00000000
"Update"=dword:00000000
"Fresh"=dword:00000000
"SyncFiles"=dword:00000000
"Overwrite"=dword:00000000
"Move"=dword:00000001
"ArcRecBin"=dword:00000000
"ArcWipe"=dword:00000000
"WipeIfPassword"=dword:00000000
"Solid"=dword:00000000
"Test"=dword:00000000
"RecEnabled"=dword:00000000
"RecSize"=dword:fffffffd
"EraseDest"=dword:00000000
"AddArcOnly"=dword:00000000
"ClearArc"=dword:00000000
"Lock"=dword:00000000
"Method"=dword:00000005
"DictSizeLZ"=dword:00400000
"DictSize"=dword:02000000
"Background"=dword:00000000
"WaitForOther"=dword:00000000
"Shutdown"=dword:00000000
"PasswordWide"=hex:37,3c,ed,12,51,2a,75,50,d4,df,25,32,1d,24,08,58,9b,3b,3b,13,\
  15,2c,00,60,0e,ed,95,2a,68,32,67,68
"EncryptHeaders"=dword:00000000
"OpenShared"=dword:00000000
"ProcessOwners"=dword:00000000
"SaveStreams"=dword:00000000
"SaveSymLinks"=dword:00000000
"SaveHardLinks"=dword:00000000
"GenerateArcName"=dword:00000000
"VersionControl"=dword:00000000
"BLAKE2"=dword:00000000
"FileCopies"=dword:00000000
"QuickOpen"=dword:00000001
"GenerateMask"="yyyymmddhhmmss"
"FileTimeMode"=dword:00000000
"FileDays"=dword:00000000
"FileHours"=dword:00000000
"FileMinutes"=dword:00000000
"FileTimeBefore"=dword:0a214000
"FileTimeAfter"=dword:0a214000
"ArcTimeOriginal"=dword:00000000
"ArcTimeLatest"=dword:00000000
"mtime"=dword:00000004
"ctime"=dword:00000000
"atime"=dword:00000000
"PathsAbs"=dword:00000000
"PathsNone"=dword:00000000
"PathsAbsDrive"=dword:00000000
"SeparateArc"=dword:00000000
"EmailArcTo"=""
"PackDetails"=hex:00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"AddToMenu"=dword:00000001

[HKEY_CURRENT_USER\Software\WinRAR\Profiles\1]
"Name"="生成弹出网页EXE 加注释 加密码2"
"Default"=dword:00000000
"ImmExec"=dword:00000001
"ExclNames"=""
"StoreNames"=""
"UseRAR"=dword:00000001
"RAR5"=dword:00000000
"SFXModule"="D:\\WinRAR\\winrar\\Default.SFX"
"SFXIcon"=""
"SFXLogo"=""
"SFXElevate"=dword:00000000
"CmtFile"="D:\\注释2.txt"
"CmtDataWide"=hex:00,00
"VolumeSize"="0"
"VolSizeMod"=dword:00000000
"VolPause"=dword:00000000
"OldVolNames"=dword:00000000
"RecVolNumber"=dword:00000000
"Update"=dword:00000000
"Fresh"=dword:00000000
"SyncFiles"=dword:00000000
"Overwrite"=dword:00000000
"Move"=dword:00000001
"ArcRecBin"=dword:00000000
"ArcWipe"=dword:00000000
"WipeIfPassword"=dword:00000000
"Solid"=dword:00000000
"Test"=dword:00000000
"RecEnabled"=dword:00000000
"RecSize"=dword:fffffffd
"EraseDest"=dword:00000000
"AddArcOnly"=dword:00000000
"ClearArc"=dword:00000000
"Lock"=dword:00000000
"Method"=dword:00000005
"DictSizeLZ"=dword:00400000
"DictSize"=dword:02000000
"Background"=dword:00000000
"WaitForOther"=dword:00000000
"Shutdown"=dword:00000000
"PasswordWide"=hex:37,3c,ed,12,51,2a,75,50,d4,df,25,32,1d,24,08,58,9b,3b,3b,13,\
  15,2c,00,60,0e,ed,95,2a,68,32,67,68
"EncryptHeaders"=dword:00000000
"OpenShared"=dword:00000000
"ProcessOwners"=dword:00000000
"SaveStreams"=dword:00000000
"SaveSymLinks"=dword:00000000
"SaveHardLinks"=dword:00000000
"GenerateArcName"=dword:00000000
"VersionControl"=dword:00000000
"BLAKE2"=dword:00000000
"FileCopies"=dword:00000000
"QuickOpen"=dword:00000001
"GenerateMask"="yyyymmddhhmmss"
"FileTimeMode"=dword:00000000
"FileDays"=dword:00000000
"FileHours"=dword:00000000
"FileMinutes"=dword:00000000
"FileTimeBefore"=dword:0a214000
"FileTimeAfter"=dword:0a214000
"ArcTimeOriginal"=dword:00000000
"ArcTimeLatest"=dword:00000000
"mtime"=dword:00000004
"ctime"=dword:00000000
"atime"=dword:00000000
"PathsAbs"=dword:00000000
"PathsNone"=dword:00000000
"PathsAbsDrive"=dword:00000000
"SeparateArc"=dword:00000000
"EmailArcTo"=""
"PackDetails"=hex:00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
"AddToMenu"=dword:00000001

TOP

aa77dd@163.com

帖子
548 
积分
1246 
技术
176  
捐助
0  
注册时间
2015-6-4 
3楼
发表于 2016-10-3 09:00 | 只看该作者
回复 2# 我来了

楼妹子, 请把你的注册表借我瞅瞅呗
  1. 　ﾍ^ヽ､　 /⌒､　　_,_

  2. 　 |　　￣7　 (⌒r⌒7/

  3. 　 レ　　　＼_/￣＼_｣

  4. ＿/　　　　　　　　 {

  5. _ﾌ　●　　　　　　　ゝ

  6. _人　　　ο　　●　 ナ

  7. 　 `ト､＿　　　　　メ

  8. 　　　 /　 ￣ ーィﾞ

  9. 　　 〈ﾟ･｡｡｡･ﾟ 　丶
复制代码

TOP

我来了

Rank: 6Rank: 6

帖子
431 
积分
1577 
技术
11  
捐助
0  
注册时间
2013-1-11 
2楼
发表于 2016-10-3 07:43 | 只看该作者
楼先生，我们使用 多个注册表来完成以上类似的操作。

TOP

返回列表