设为首页收藏本站
切换到宽版

 找回密码
 注册
搜索
批处理之家»论坛 › 批处理专区: BAT CMD DOS › BAT求助&讨论 › [纯批处理压缩软件][持续更新][已更新至1.0.0015]Hope C ...
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
1234
返回列表 发新帖
楼主: HOPE2021

[文件操作] [纯批处理压缩软件][持续更新][已更新至1.0.0015]Hope Cab

[复制链接]
HOPE2021
 楼主| 发表于 2021-8-23 08:59:15 | 显示全部楼层
回复 44# zz100001
开发组已经在Windows10实体机和Winxp虚拟机测试过了,并没有发现您所说的文件名有空格就报错的情况,请明示.
谢谢.
回复

举报

cmd1152
发表于 2021-8-23 13:00:59 | 显示全部楼层
回复 44# zz100001


    你行你来（怎么来？当然是合作了！）
回复

举报

cmd1152
发表于 2021-8-23 13:08:32 | 显示全部楼层
回复 44# zz100001


    我Windows7 32位 测试过，没有问题
回复

举报

cmd1152
发表于 2021-8-23 13:26:44 | 显示全部楼层
版本1.0.0013 增加更新功能，以后只发安装包
文件区\Hope Cab [ Version 1.0.0012 ].rar
回复

举报

HOPE2021
 楼主| 发表于 2021-8-23 13:39:24 | 显示全部楼层
回复 49# cmd1152
文件呢？
回复

举报

cmd1152
发表于 2021-8-23 13:41:01 | 显示全部楼层
回复 50# HOPE2021


    我刚刚发现几个BUG，然后删了，现在可以下载了
回复

举报

HOPE2021
 楼主| 发表于 2021-8-23 21:27:19 | 显示全部楼层
本帖最后由 HOPE2021 于 2021-8-23 21:45 编辑

回复 51# cmd1152
因为1.0.0014做了巨大的改进和更新模式的改进,特此发布源码[上半部分]:
  1. @echo off & Mode Con: Cols=128 & @Goto :Begin

  3. ::--------Version---------------------------------------------------------------------------------------------------------------

  5.         ; Hope Cab [Version 1.0.0014]

  7. ::--------Copyright-------------------------------------------------------------------------------------------------------------

  9.         ; (C) Copyright 2020-2021 Hope Corp.
  10.         ; (C) Copyright 2021-2021 Hope2021&Cmd1152 Corp.

  12.         ; Warning: this computer program is protected by copyright law and international treaties. Unauthorized reproduction or
  13.         ; distribution of this program (or any part thereof) will result in severe civil and criminal sanctions, and will be p-
  14.         ; rosecuted to the maximum extent possible under the law.
  15.         ; 警告:本计算机程序受著作权法和国际条约保护.如未经授权而擅自复制或传播本程序(或其中任何部分),将受到严厉的民事及刑事制裁,
  16.         ; 并将在法律许可范围内受到最大程度的起诉.

  18. ::--------Main Function---------------------------------------------------------------------------------------------------------

  20.         :Begin
  21.                 chcp 437 > nul
  22.                 color f0
  23.                 cls
  24.                 call :BL 15
  25.                 title Hope Cab
  26.                 echo.                                          膊膊膊膊膊膊膊膊膊膊膊膊圹圹圹圹圹圹圹圹圹圹圹
  27.                 echo.                                         膊                    膊圹                 _--圹
  28.                 echo.                                        膊                     膊圹             ____北北圹
  29.                 echo.                                        膊_____________________膊圹__________.北膊膊膊膊圹
  30.                 echo.                                        膊                     膊圹                     圹
  31.                 echo.                                        膊             圹圹圹圹圹圹圹圹圹圹         __--圹
  32.                 echo.                                        膊            圹       .Cab       圹    ____北北圹
  33.                 echo.                                        北___________圹   Make Your Life   圹.北膊膊膊膊圹
  34.                 echo.                                        北           圹       Easier.      圹           圹
  35.                 echo.                                        膊            圹       Hope       圹        __--圹
  36.                 echo.                                        膊             圹圹圹圹圹圹圹圹圹圹     ____北北圹
  37.                 echo.                                        膊_____________________膊圹__________.北膊膊膊膊圹
  38.                 echo.                                        膊                     膊圹                 __--圹
  39.                 echo.                                        膊                     膊圹            _____北北圹
  40.                 echo.                                         膊                    膊圹         .北膊膊膊膊圹
  41.                 echo.                                          膊膊膊膊膊膊膊膊膊膊膊圹圹圹圹圹圹圹圹圹圹圹圹
  42.                 ping 127.1 /n 2 > nul
  43.                 chcp 936 > nul
  44.         @Goto :Main

  46.         :Main
  47.                 cls
  48.                 Title Hope Cab [Version 1.0.0014] 键入H以查看帮助信息
  49.                 Call :Tool_Bar_Main
  50.                 Call :FilesAndFolder
  51.                 echo.
  52.                 Set Command=/////*无效操作*/////
  53.                 Set /p Command=  ^>^>
  54.                 Set Command_a=%Command:~0,1%
  55.                 echo.
  56.                 Set Bin_Dir=%cd%
  57.                 Set Bin_Drive=%cd:~0,1%
  58.                 if /i "%Command_a%"=="H" (
  59.                         echo.  Hope Cab [Version 1.0.0014]
  60.                         echo.
  61.                         Call :Line
  62.                         echo.
  63.                         echo.  ^(C^) Copyright 2020-2021 Hope Corp.
  64.                         echo.  ^(C^) Copyright 2021-2021 Hope2021^&Cmd1152 Corp.
  65.                         echo.
  66.                         Call :Line
  67.                         echo.
  68.                         set /p Corp=Warning: this computer program is protected by copyright law and international treaties. Unauthorized reproduction or distribut-<nul
  69.                         set /p Corp=ion of this program ^(or any part thereof^) will result in severe civil and criminal sanctions, and will be prosecuted to the max-<nul
  70.                         set /p Corp=imum extent possible under the law.<nul
  71.                         echo.
  72.                         echo.
  73.                         set /p Corp=警告:本计算机程序受著作权法和国际条约保护.如未经授权而擅自复制或传播本程序^(或其中任何部分^), 将受到严厉的民事及刑事制裁, 并将在法<nul
  74.                         set /p Corp=律许可范围内受到最大程度的起诉<nul
  75.                         echo.
  76.                         echo.
  77.                         Call :Line
  78.                         echo.
  79.                         echo.  依法授权给: %Username%
  80.                         echo.
  81.                         Call :Line
  82.                         echo.
  83.                         echo.  Hope Cab 教程
  84.                         echo.
  85.                         Call :Line
  86.                         echo.
  87.                         echo.  1. 概述
  88.                         echo.  Hope Cab 是一款基于Microsoft ^(R^) Windows 的命令行压缩文件资源管理器,支持.Cab文件的压缩/解压缩以及处理.
  89.                         echo.
  90.                         Call :Line
  91.                         echo.
  92.                         echo.  2. 压缩一个文件
  93.                         echo.
  94.                         echo.  压缩文件的命令很简单,命令格式如下:
  95.                         echo.
  96.                         echo.  ^>^> F-FileName/CabName
  97.                         echo.
  98.                         echo.  命令参数解释:
  99.                         echo.  
  100.                         echo.  F-           命令前缀,代表对文件进行操作.
  101.                         echo.  FileName     需要压缩的文件名称,包括拓展名.
  102.                         echo.  CabName      压缩文件名,可以不包括.Cab的后缀.
  103.                         echo.  
  104.                         echo.  例如,需要将Hope.ini文件压缩为Hope.Cab,有以下两种语法:
  105.                         echo.  
  106.                         echo.  F-Hope.ini/Hope.Cab
  107.                         echo.  F-Hope.ini/Hope
  108.                         echo.  
  109.                         echo.  注意事项:
  110.                         echo.  
  111.                         echo.  1. 分隔FileName与CabName的/不可以有空格或是全角符号.
  112.                         echo.  2. 命令前缀不区分大小写.
  113.                         echo.
  114.                         Call :Line
  115.                         echo.
  116.                         echo.  3. 压缩一个目录
  117.                         echo.  
  118.                         echo.  压缩目录的命令相较于压缩一个文件而言要难一些,命令格式如下:
  119.                         echo.  
  120.                         echo.  ^>^> R-FolderName/CabName:ListName
  121.                         echo.
  122.                         echo.  命令参数解释:
  123.                         echo.  
  124.                         echo.  R-           命令前缀,代表对目录进行操作.
  125.                         echo.  FolderName   文件夹名
  126.                         echo.  CabName      压缩文件名,可以不包括.Cab的后缀.
  127.                         echo.  ListName     文件列表名,用于储存目录信息,使用完以后自动删除.
  128.                         echo.  
  129.                         echo.  例如,需要将Hope目录下的所有文件压缩到Hope.Cab里,并将信息存储在Hope.Temp里,有以下两种语法:
  130.                         echo.  
  131.                         echo.  R-Hope/Hope.Cab:Hope.Temp
  132.                         echo.  R-Hope/Hope:Hope.Temp
  133.                         echo.  
  134.                         echo.  1. 分隔FolderName与CabName的/以及分隔CabName与ListName的：不可以有空格或是全角符号.
  135.                         echo.  2. 命令前缀不区分大小写.
  136.                         echo.
  137.                         Call :Line
  138.                         echo.
  139.                         echo.  3. 解压缩
  140.                         echo.  
  141.                         echo.  压缩目录的命令相较于压缩一个文件而言要难一些,命令格式如下:
  142.                         echo.  
  143.                         echo.  ^>^> E-CabName
  144.                         echo.
  145.                         echo.  命令参数解释:
  146.                         echo.  
  147.                         echo.  E-           命令前缀,代表解压缩到当前目录下.
  148.                         echo.  CabName      压缩文件名,可以不包括.Cab的后缀.
  149.                         echo.  
  150.                         echo.  例如,需要解压Hope.Cab,有以下两种语法:
  151.                         echo.  
  152.                         echo.  E-Hope.Cab
  153.                         echo.  E-Hope
  154.                         echo.  
  155.                         echo.  1. 分隔FolderName与CabName的/以及分隔CabName与ListName的：不可以有空格或是全角符号.
  156.                         echo.  2. 命令前缀不区分大小写.
  157.                         echo.
  158.                         Call :Line
  159.                         echo.
  160.                         echo.  4. 返回上一级目录
  161.                         echo.  
  162.                         echo.  如果您要返回上一级目录,请键入B
  163.                         echo.
  164.                         Call :Line
  165.                         echo.
  166.                         echo.  5. 进入到下一级目录
  167.                         echo.  
  168.                         echo.  命令格式如下:
  169.                         echo.  
  170.                         echo.  ^>^> C-FolderName
  171.                         echo.  
  172.                         echo.  C-           命令前缀,代表前进到下一级目录.
  173.                         echo.  FolderName   文件夹名.
  174.                         echo.  
  175.                         echo.  例如,需要前进的Hope目录,可以键入:
  176.                         echo.  
  177.                         echo.  C-Hope
  178.                         echo.
  179.                         Call :Line
  180.                         echo.
  181.                         echo.  6. 切换磁盘
  182.                         echo.  
  183.                         echo.  命令格式如下:
  184.                         echo.  
  185.                         echo.  ^>^> D-DiskVol
  186.                         echo.  
  187.                         echo.  D-           命令前缀,代表切换磁盘.
  188.                         echo.  DiskVol      磁盘或驱动器盘符.
  189.                         echo.  
  190.                         echo.  例如,需要切换到C:\,有三种语法:
  191.                         echo.  
  192.                         echo.  D-C
  193.                         echo.  D-C:
  194.                         echo.  D-C:\
  195.                         echo.
  196.                         Call :Line
  197.                         echo.
  198.                         echo.  7. 删除目录或文件
  199.                         echo.
  200.                         echo.  命令格式如下：
  201.                         echo.
  202.                         echo.  ^>^> T-FileOrDirectory
  203.                         echo.
  204.                         echo.  T-              命令前缀,代表删除目录或文件.
  205.                         echo.  FileOrDirectory 目录或文件.
  206.                         echo.
  207.                         echo.  例如,删除Hope文件,但不知道是否是文件夹,可以输入:
  208.                         echo.  
  209.                         echo.  T-Hope
  210.                         echo.
  211.                         call :Line
  212.                         echo.
  213.                         echo.  8. 自定义解压
  214.                         echo.
  215.                         echo.  命令格式如下：
  216.                         echo.
  217.                         echo.  ^>^> X-FolderName/CabName
  218.                         echo.
  219.                         echo.  X-              命令前缀,代表自定义解压.
  220.                         echo.  FolderName      目录.
  221.                         echo.  CabName         压缩文件名,可以不包括.Cab的后缀.
  222.                         echo.
  223.                         echo.  例如,解压Hope.Cab到C:\Users\%Username%\Hope\Hope Cab\目录下,有两种语法:
  224.                         echo.  
  225.                         echo.  X-C:\Users\%Username%\Hope\Hope Cab\/Hope.Cab
  226.                         echo.  X-C:\Users\%Username%\Hope\Hope Cab\/Hope
  227.                         echo.
  228.                         call :Line
  229.                         echo.
  230.                         echo.  9. 打开文件
  231.                         echo.
  232.                         echo.  命令格式如下：
  233.                         echo.
  234.                         echo.  ^>^> U-FileName
  235.                         echo.
  236.                         echo.  U-              命令前缀,代表打开文件.
  237.                         echo.  FileName        文件名.
  238.                         echo.
  239.                         echo.  例如,打开Hope.ini,需要键入:
  240.                         echo.  
  241.                         echo.  U-Hope.ini
  242.                         echo.
  243.                         call :Line
  244.                         echo.
  245.                         echo.  10. 查找压缩文件
  246.                         echo.
  247.                         echo.  命令格式如下：
  248.                         echo.
  249.                         echo.  ^>^> S-FileName
  250.                         echo.
  251.                         echo.  S-              命令前缀,代表搜索文件.
  252.                         echo.  CabName         压缩文件名,可以不包括.Cab的后缀.
  253.                         echo.
  254.                         echo.  例如,查找Hope.Cab,有两种语法:
  255.                         echo.  
  256.                         echo.  S-Hope.Cab
  257.                         echo.  S-Hope
  258.                         echo.
  259.                         call :Line
  260.                         echo.
  261.                         echo.  11.更新
  262.                         echo.
  263.                         echo.  若要更新,请键入:P
  264.                         echo.
  265.                         call :Line
  266.                         echo.
  267.                         echo.  ^>^> 请按回车键继续...
  268.                         echo.
  269.                         Call :Line
  270.                         echo.
  271.                         pause > nul
  272.                 @Goto Main
  273.                 )
  274.                 if /i "%Command_a%"=="F" @Goto :File
  275.                 if /i "%Command_a%"=="R" @Goto :Folder
  276.                 if /i "%Command_a%"=="E" @Goto :Extract
  277.                 if /i "%Command_a%"=="C" @Goto :Chdir
  278.                 if /i "%Command_a%"=="D" @Goto :Disk
  279.                 if /i "%Command_a%"=="B" cd.. & @Goto :Main
  280.                 if /i "%Command_a%"=="T" @Goto :DelFile
  281.                 if /i "%Command_a%"=="X" @Goto :Extract_Custom
  282.                 if /i "%Command_a%"=="U" @Goto :Run
  283.                 if /i "%Command_a%"=="S" @Goto :Search
  284.                 if /i "%Command_a%"=="P" @Goto :Update
  285.                 echo.  ^>^> 命令语法不正确!
  286.                 echo.
  287.                 echo.  ^>^> 请按回车键继续...
  288.                 pause > nul
  289.         @Goto Main
复制代码
回复

举报

HOPE2021
 楼主| 发表于 2021-8-23 21:28:53 | 显示全部楼层
回复 52# HOPE2021
下半部分：

  2.         :File
  3.                 Set Commandb=%Command:~2%
  4.                 echo.%Commandb%
  5.                 Set FileName=%Commandb%
  6.                 Call :FileName
  7.                 Set CabName=%Commandb:*/=%
  8.                 Set "FileName=%FileName:"=%"
  9.                 Set "CabName=%CabName:"=%"
  10.                 Set Commandc=%CabName:~-4%
  11.                 echo.
  12.                 if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
  13.                 if /i exist "%FileName%" if /i not exist "%CabName%" (
  14.                         echo.  ^>^> 对文件进行处理:
  15.                         Call :Line
  16.                         echo.%FileName%
  17.                         echo.%CabName%
  18.                         makecab /d maxdisksize=1099511627776 "%FileName%" "%CabName%"
  19.                         echo.
  20.                         echo.  ^>^> 将 %FileName% 压缩为 %CabName% 成功!
  21.                         echo.
  22.                         echo.  ^>^> 请按回车键继续...
  23.                         pause > nul
  24.                 @Goto :Main
  25.                 )
  26.                 echo.
  27.                 echo.  ^>^> 无此文件或已存在此压缩文档!
  28.                 echo.
  29.                 echo.  ^>^> 请按回车键继续...
  30.                 pause > nul
  31.         @Goto :Main

  33.         :Folder
  34.                 Set Commandb=%Command:~2%
  35.                 echo.%Commandb%
  36.                 Set FolderName=%Commandb%
  37.                 Call :FolderName
  38.                 Set ListName=%Commandb%
  39.                 Set CabName=%Commandb:*/=%
  40.                 Call :ListName
  41.                 Call :CabName_2
  42.                 Set "FolderName=%FolderName:"=%"
  43.                 Set "CabName=%CabName:"=%"
  44.                 Set Commandc=%CabName:~-4%
  45.                 if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
  46.                 if /i exist "%FolderCabName%" if /i not exist "%CabName%" if /i not exist "%ListName%" (
  47.                         cd "%FolderName%"
  48.                         dir /b >> %ListName%"
  49.                         echo.  ^>^> 对文件进行处理:
  50.                         Call :Line
  51.                         echo.%FolderName%
  52.                         echo.%CabName%
  53.                         echo.%ListName%
  54.                         makecab /d maxdisksize=1099511627776 /f "%ListName%"
  55.                         echo.
  56.                         echo.  ^>^> 将 %FolderName% 压缩为 %CabName% 成功!
  57.                         echo.
  58.                         echo.  ^>^> 请按回车键继续...
  59.                         if /i exist "%ListName%" del "%ListName%"
  60.                         cd..
  61.                         ren "%cd%\%FolderName%\Disk1\1.cab" "%CabName%"
  62.                         Move "%cd%\%FolderName%\Disk1\%CabName%" "%cd%"
  63.                         pause > nul
  64.                 @Goto :Main
  65.                 )
  66.                 echo.
  67.                 echo.  ^>^> 无此文件或已存在此压缩文档!
  68.                 echo.
  69.                 echo.  ^>^> 请按回车键继续...
  70.                 pause > nul
  71.         @Goto :Main

  73.         :Extract
  74.                 Set CabName=%Command:~2%
  75.                 Set Commandc=%CabName:~-4%
  76.                 if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
  77.                 if /i exist "%CabName%" (
  78.                         expand "%CabName%" -f:* "%cd%"
  79.                         echo.  ^>^> 将 %CabName% 解压缩成功!
  80.                         echo.
  81.                         echo.  ^>^> 请按回车键继续...
  82.                         pause > nul
  83.                 @Goto :Main
  84.                 )
  85.                 echo.
  86.                 echo.  ^>^> 无此压缩文档!
  87.                 echo.
  88.                 echo.  ^>^> 请按回车键继续...
  89.                 pause > nul
  90.         @Goto :Main

  92.         :Chdir
  93.                 Set FolderName=%Command:~2%
  94.                 if /i exist "%FolderName%" (
  95.                         cd "%FolderName%"
  96.                 @Goto :Main
  97.                 )
  98.                 echo.
  99.                 echo.  ^>^> 无此目录!
  100.                 echo.
  101.                 echo.  ^>^> 请按回车键继续...
  102.                 pause > nul
  103.         @Goto :Main

  105.         :Disk
  106.                 Set DiskVol=%Command:~2%
  107.                 Set DiskVol=%DiskVol:~0,1%
  108.                 if /i exist %DiskVol%: (
  109.                         %DiskVol%:
  110.                 @Goto :Main
  111.                 )
  112.                 echo.
  113.                 echo.  ^>^> 无此磁盘或驱动器!
  114.                 echo.
  115.                 echo.  ^>^> 请按回车键继续...
  116.                 pause > nul
  117.         @Goto :Main
  118.        
  119.         :DelFile
  120.                 Set FileOrDirectory=%Command:~2%
  121.                 if not exist "%FileOrDirectory%" (
  122.                         echo.
  123.                         echo.   ^>^> 无此文件或目录！
  124.                         echo.
  125.                         echo.   ^>^> 请按回车键继续...
  126.                         pause > nul
  127.                 @Goto :Main
  128.                 )
  129.                 echo.
  130.                 echo.   ^>^> 这会删除%FileOrDirectory%下的所有文件（如果这是文件夹）
  131.                 echo.
  132.                 echo.   ^>^> 确认否[Y/N]?
  133.                 Call :Get_Key
  134.                 if /i "%key%"=="N" @Goto :Main
  135.                 if /i "%key%"=="Y" (
  136.                         if exist "%FileOrDirectory%" (
  137.                                 rd "%FileOrDirectory%" /s /q >nul 2>nul
  138.                         @Goto :Main
  139.                         )
  140.                         del "%FileOrDirectory%" /f /q >nul 2>nul
  141.                 @Goto :Main
  142.                 )
  143.                 if "%valid_key%"=="0" @Goto :DelFile
  144.         @goto :DelFile

  146.         :Extract_Custom
  147.                 Set Commandb=%Command:~2%
  148.                 Set CabName=%Command:~2%
  149.                 Set FolderName=%Command:~2%
  150.                 Set CabName=%Commandb:*/=%
  151.                 Set "CabName=%CabName:"=%"
  152.                 Call :Custom_FolderName
  153.                 Call :Custom_FolderName_2
  154.                 Set Commandc=%CabName:~-4%
  155.                 Set "FolderName=%FolderName:"=%"
  156.                 echo.%CabName%
  157.                 echo.%FolderName%
  158.                 if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
  159.                 if /i exist "%CabName%" if /i exist "%FolderName%" (
  160.                         expand "%CabName%" -f:* "%FolderName%"
  161.                         echo.  ^>^> 将 %CabName% 解压缩成功!
  162.                         echo.
  163.                         echo.  ^>^> 请按回车键继续...
  164.                         pause > nul
  165.                 @Goto :Main
  166.                 )
  167.                 echo.
  168.                 echo.  ^>^> 无此压缩文档或此目录!
  169.                 echo.
  170.                 echo.  ^>^> 请按回车键继续...
  171.                 pause > nul
  172.         @Goto :Main

  174.         :Run
  175.                 Set FileName=%Command:~2%
  176.                 Set "FileName=%FileName:"=%"
  177.                 if /i exist "%FileName%" (
  178.                         start explorer "%FileName%"
  179.                 @Goto :Main
  180.                 )
  181.                 if /i exist "%FileName%" (
  182.                         start "" "%FileName%"
  183.                 @Goto :Main
  184.                 )
  185.                 echo.
  186.                 echo.  ^>^> 无此文件或目录!
  187.                 echo.
  188.                 echo.  ^>^> 请按回车键继续...
  189.                 pause > nul
  190.         @Goto :Main

  192.         :Search
  193.                 Set CabName=%Command:~2%
  194.                 Set Commandc=%CabName:~-4%
  195.                 echo.
  196.                 echo.  ^>^> 搜索中...
  197.                 if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
  198.                 for %%i in (A B 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 (
  199.                         if /i exist %%i: (
  200.                                 cd /d %%i:
  201.                                 FORFILES /P %%i:\ /S /M "%CabName%"
  202.                         )
  203.                 )
  204.                 echo.
  205.                 echo.  ^>^> 搜索完成!
  206.                 echo.
  207.                 echo.  ^>^> 请按回车键继续...
  208.                 %Bin_Drive%:
  209.                 cd %Bin_Dir%
  210.                 pause > nul
  211.         @Goto :Main

  213.         :Update
  214.                 cls
  215.                 echo.
  216.                 Set Bin_Dir=%0
  217.                 Set "Bin_Dir=%Bin_Dir:"=%"
  218.                 set /p UpdateFile=   ^>^> 请输入更新包名称[.HopeUpdate]
  219.                 echo.
  220.                 Set "UpdateFile=%UpdateFile:"=%"
  221.                 echo.%UpdateFile%
  222.                 echo.
  223.                 if not exist "%UpdateFile%" (
  224.                         echo.   ^>^> 无此更新文件!
  225.                         echo.
  226.                         echo.   ^>^> 按任意键返回...
  227.                         pause>nul
  228.                 @Goto :Main
  229.                 )
  230.                 if not "%UpdateFile:~-11%"==".HopeUpdate" (
  231.                         echo.   ^>^> 更新文件格式不正确！
  232.                         echo.
  233.                         echo.   ^>^> 按任意键返回...
  234.                         pause>nul
  235.                 @Goto :Main
  236.                 )
  237.                 Call :Version
  238.                 echo.检测到%Version%...
  239.                 echo.
  240.                 cd.>"%Version%.Bat"
  241.                 for /f "usebackq delims= skip=1" %%i in ("%UpdateFile%") do (
  242.                         echo.%%i >> "%Version%.Bat"
  243.                 )
  244.                 Certutil -decode -f "%Version%.Bat" "%Version%.Bat"
  245.                 Mklink "%userprofile%\Desktop" "%Version%.Bat"
  246.                 Del "%Bin_Dir%"
  247.                 pause
  248.                 @Exit

  250. ::--------Functions-------------------------------------------------------------------------------------------------------------

  252.         :Version
  253.         Rem ; Call :Version
  254.                 for /f "usebackq delims=" %%i in ("%UpdateFile%") do (
  255.                         echo.%%i
  256.                         Set Version=%%i
  257.                         @Goto :eof
  258.                 )

  260.         :Custom_FolderName
  261.         Rem ; Call :Custom_FolderName
  262.                 Set FolderName=%FolderName:~0,-1%
  263.                 echo.%FolderName%|Find "/"
  264.                 if not errorlevel 1 (
  265.                         @Call :Custom_FolderName
  266.                 )
  267.                 if errorlevel 1 (
  268.                         @Goto :eof
  269.                 )
  270.         @Call :Custom_FolderName

  272.         :Custom_FolderName_2
  273.         Rem ; Call :Custom_FolderName_2
  274.                 Set FNa=%FolderName:~-1%
  275.                 echo.%FNa%|Find ""
  276.                 if not errorlevel 1 (
  277.                         @Call :Custom_FolderName
  278.                 )
  279.                 if errorlevel 1 (
  280.                         @Goto :eof
  281.                 )
  282.         @Call :Custom_FolderName_2

  284.         :Get_Key
  285.         Rem ; Call :Get_Key
  286.                 Set "key="
  287.                 for /f "delims=" %%a in ('xcopy /w "%~f0" "%~f0" 2^>nul') do if not defined key Set "key=%%a"
  288.                 Set "key=%key:~-1%"
  289.                 Set "valid_key=0"
  290.         @Goto :eof

  292.         :CabName
  293.         Rem ; Call :CabName
  294.                 Set CabName=%CabName:~0,-1%
  295.                 echo.%CabName%|Find "/"
  296.                 if not errorlevel 1 (
  297.                         @Call :CabName
  298.                 )
  299.                 if errorlevel 1 (
  300.                         @Goto :eof
  301.                 )
  302.         @Call :CabName

  304.         :CabName_2
  305.         Rem ; Call :CabName
  306.                 Set CabName=%CabName:~0,-1%
  307.                 echo.%CabName%|Find ":"
  308.                 if not errorlevel 1 (
  309.                         @Call :CabName
  310.                 )
  311.                 if errorlevel 1 (
  312.                         @Goto :eof
  313.                 )
  314.         @Call :CabName

  316.         :ListName
  317.         Rem ; Call :ListName
  318.                 Set ListName=%ListName:~1%
  319.                 echo.%ListName%|Find ":"
  320.                 if not errorlevel 1 (
  321.                         @Call :ListName
  322.                 )
  323.                 if errorlevel 1 (
  324.                         @Goto :eof
  325.                 )
  326.         @Call :ListName

  328.         :FolderName
  329.         Rem ; Call :FolderName
  330.                 Set FolderName=%FolderName:~0,-1%
  331.                 echo.%FolderName%|Find "/"
  332.                 if not errorlevel 1 (
  333.                         @Call :FolderName
  334.                 )
  335.                 if errorlevel 1 (
  336.                         @Goto :eof
  337.                 )
  338.                 Set FolderName=%FolderName:~0,-1%
  339.                 echo.%FolderName%|Find "/"
  340.                 if not errorlevel 1 (
  341.                         @Call :FolderName
  342.                 )
  343.         @Call :FileName

  345.         :FileName
  346.         Rem ; Call :FileName
  347.                 Set FileName=%FileName:~0,-1%
  348.                 echo.%FileName%|Find "/"
  349.                 if not errorlevel 1 (
  350.                         @Call :FileName
  351.                 )
  352.                 if errorlevel 1 (
  353.                         @Goto :eof
  354.                 )
  355.         @Call :FileName

  357.         :BL
  358.         Rem ; Call :BL [Blanks Lines]
  359.                 for /l %%i in (1,1,%1) do echo.
  360.         @Goto :eof

  362.         :Type
  363.         Rem ; Call :Type "[Text]"
  364.                 Set /p Str=%~1<nul
  365.                 for /l %%a in (1,1,%Timer%) do Set ReturnKey=0
  366.         @Goto :eof

  368.         :Tool_Bar_Main
  369.         Rem ; Call :Tool_Bar_Main
  370.                 echo.
  371.                 call :Type "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
  372.                 call :Type "■                                                          Hope Cab                                                          ■"
  373.                 call :Type "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
  374.                 echo.
  375.                 echo.
  376.         @Goto :eof


  379.         :Line
  380.         Rem ; Call :Line
  381.                 call :Type "--------------------------------------------------------------------------------------------------------------------------------"
  382.                 echo.
  383.         @Goto :eof

  385.         :FilesAndFolder
  386.         Rem ; Call :FilesAndFolder
  387.                 dir /w
  388.         @Goto :eof
  389.    
  390. ::--------Annotation------------------------------------------------------------------------------------------------------------

  392.         Rem ; [File]
  393.                 F-FileName/CabName

  395.         Rem ; [Folder]
  396.                 R-FolderName/CabName:ListName

  398.         Rem ; [Extract]
  399.                 R-FolderName/CabName:ListName

  401.         Rem ; [Extract]
  402.                 R-FolderName/CabName:ListName

  404.         Rem ; [Extract_Custom]
  405.                 X-FolderName/CabName
复制代码
回复

举报

cmd1152
发表于 2021-8-23 21:29:03 | 显示全部楼层
现在1.0.0015了...
回复

举报

HOPE2021
 楼主| 发表于 2021-8-23 21:30:35 | 显示全部楼层
回复 54# cmd1152
1.0.0014及以后的更新模块改动,发这个是因为要做更新的底版,就像装系统需要bios一样...
回复

举报

1234
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2026-3-20 02:55 , Processed in 0.021254 second(s), 7 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

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