@echo off & Mode Con: Cols=128 & @Goto :Begin

::--------Version---------------------------------------------------------------------------------------------------------------

	; Hope Cab [Version 1.0.0014]

::--------Copyright-------------------------------------------------------------------------------------------------------------

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

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

::--------Main Function---------------------------------------------------------------------------------------------------------

	:Begin
		chcp 437 > nul
		color f0
		cls
		call :BL 15
		title Hope Cab
		echo.                                          膊膊膊膊膊膊膊膊膊膊膊膊圹圹圹圹圹圹圹圹圹圹圹
		echo.                                         膊                    膊圹                 _--圹
		echo.                                        膊                     膊圹             ____北北圹
		echo.                                        膊_____________________膊圹__________.北膊膊膊膊圹
		echo.                                        膊                     膊圹                     圹
		echo.                                        膊             圹圹圹圹圹圹圹圹圹圹         __--圹
		echo.                                        膊            圹       .Cab       圹    ____北北圹
		echo.                                        北___________圹   Make Your Life   圹.北膊膊膊膊圹
		echo.                                        北           圹       Easier.      圹           圹
		echo.                                        膊            圹       Hope       圹        __--圹
		echo.                                        膊             圹圹圹圹圹圹圹圹圹圹     ____北北圹
		echo.                                        膊_____________________膊圹__________.北膊膊膊膊圹
		echo.                                        膊                     膊圹                 __--圹
		echo.                                        膊                     膊圹            _____北北圹
		echo.                                         膊                    膊圹         .北膊膊膊膊圹
		echo.                                          膊膊膊膊膊膊膊膊膊膊膊圹圹圹圹圹圹圹圹圹圹圹圹
		ping 127.1 /n 2 > nul
		chcp 936 > nul
	@Goto :Main

	:Main
		cls
		Title Hope Cab [Version 1.0.0014] 键入H以查看帮助信息
		Call :Tool_Bar_Main
		Call :FilesAndFolder
		echo.
		Set Command=/////*无效操作*/////
		Set /p Command=  ^>^> 
		Set Command_a=%Command:~0,1%
		echo.
		Set Bin_Dir=%cd%
		Set Bin_Drive=%cd:~0,1%
		if /i "%Command_a%"=="H" (
			echo.  Hope Cab [Version 1.0.0014]
			echo.
			Call :Line
			echo.
			echo.  ^(C^) Copyright 2020-2021 Hope Corp.
			echo.  ^(C^) Copyright 2021-2021 Hope2021^&Cmd1152 Corp.
			echo.
			Call :Line
			echo.
			set /p Corp=Warning: this computer program is protected by copyright law and international treaties. Unauthorized reproduction or distribut-<nul
			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
			set /p Corp=imum extent possible under the law.<nul
			echo.
			echo.
			set /p Corp=警告:本计算机程序受著作权法和国际条约保护.如未经授权而擅自复制或传播本程序^(或其中任何部分^), 将受到严厉的民事及刑事制裁, 并将在法<nul
			set /p Corp=律许可范围内受到最大程度的起诉<nul
			echo.
			echo.
			Call :Line
			echo.
			echo.  依法授权给: %Username%
			echo.
			Call :Line
			echo.
			echo.  Hope Cab 教程
			echo.
			Call :Line
			echo.
			echo.  1. 概述
			echo.  Hope Cab 是一款基于Microsoft ^(R^) Windows 的命令行压缩文件资源管理器,支持.Cab文件的压缩/解压缩以及处理.
			echo.
			Call :Line
			echo.
			echo.  2. 压缩一个文件
			echo.
			echo.  压缩文件的命令很简单,命令格式如下:
			echo.
			echo.  ^>^> F-FileName/CabName
			echo.
			echo.  命令参数解释:
			echo.  
			echo.  F-           命令前缀,代表对文件进行操作.
			echo.  FileName     需要压缩的文件名称,包括拓展名.
			echo.  CabName      压缩文件名,可以不包括.Cab的后缀.
			echo.  
			echo.  例如,需要将Hope.ini文件压缩为Hope.Cab,有以下两种语法:
			echo.  
			echo.  F-Hope.ini/Hope.Cab
			echo.  F-Hope.ini/Hope
			echo.  
			echo.  注意事项:
			echo.  
			echo.  1. 分隔FileName与CabName的/不可以有空格或是全角符号.
			echo.  2. 命令前缀不区分大小写.
			echo.
			Call :Line
			echo.
			echo.  3. 压缩一个目录
			echo.  
			echo.  压缩目录的命令相较于压缩一个文件而言要难一些,命令格式如下:
			echo.  
			echo.  ^>^> R-FolderName/CabName:ListName
			echo.
			echo.  命令参数解释:
			echo.  
			echo.  R-           命令前缀,代表对目录进行操作.
			echo.  FolderName   文件夹名
			echo.  CabName      压缩文件名,可以不包括.Cab的后缀.
			echo.  ListName     文件列表名,用于储存目录信息,使用完以后自动删除.
			echo.  
			echo.  例如,需要将Hope目录下的所有文件压缩到Hope.Cab里,并将信息存储在Hope.Temp里,有以下两种语法:
			echo.  
			echo.  R-Hope/Hope.Cab:Hope.Temp
			echo.  R-Hope/Hope:Hope.Temp
			echo.  
			echo.  1. 分隔FolderName与CabName的/以及分隔CabName与ListName的：不可以有空格或是全角符号.
			echo.  2. 命令前缀不区分大小写.
			echo.
			Call :Line
			echo.
			echo.  3. 解压缩
			echo.  
			echo.  压缩目录的命令相较于压缩一个文件而言要难一些,命令格式如下:
			echo.  
			echo.  ^>^> E-CabName
			echo.
			echo.  命令参数解释:
			echo.  
			echo.  E-           命令前缀,代表解压缩到当前目录下.
			echo.  CabName      压缩文件名,可以不包括.Cab的后缀.
			echo.  
			echo.  例如,需要解压Hope.Cab,有以下两种语法:
			echo.  
			echo.  E-Hope.Cab
			echo.  E-Hope
			echo.  
			echo.  1. 分隔FolderName与CabName的/以及分隔CabName与ListName的：不可以有空格或是全角符号.
			echo.  2. 命令前缀不区分大小写.
			echo.
			Call :Line
			echo.
			echo.  4. 返回上一级目录
			echo.  
			echo.  如果您要返回上一级目录,请键入B
			echo.
			Call :Line
			echo.
			echo.  5. 进入到下一级目录
			echo.  
			echo.  命令格式如下:
			echo.  
			echo.  ^>^> C-FolderName
			echo.  
			echo.  C-           命令前缀,代表前进到下一级目录.
			echo.  FolderName   文件夹名.
			echo.  
			echo.  例如,需要前进的Hope目录,可以键入:
			echo.  
			echo.  C-Hope
			echo.
			Call :Line
			echo.
			echo.  6. 切换磁盘
			echo.  
			echo.  命令格式如下:
			echo.  
			echo.  ^>^> D-DiskVol
			echo.  
			echo.  D-           命令前缀,代表切换磁盘.
			echo.  DiskVol      磁盘或驱动器盘符.
			echo.  
			echo.  例如,需要切换到C:\,有三种语法:
			echo.  
			echo.  D-C
			echo.  D-C:
			echo.  D-C:\
			echo.
			Call :Line
			echo.
			echo.  7. 删除目录或文件
			echo.
			echo.  命令格式如下：
			echo.
			echo.  ^>^> T-FileOrDirectory
			echo.
			echo.  T-              命令前缀,代表删除目录或文件.
			echo.  FileOrDirectory 目录或文件.
			echo.
			echo.  例如,删除Hope文件,但不知道是否是文件夹,可以输入:
			echo.  
			echo.  T-Hope
			echo.
			call :Line
			echo.
			echo.  8. 自定义解压
			echo.
			echo.  命令格式如下：
			echo.
			echo.  ^>^> X-FolderName/CabName
			echo.
			echo.  X-              命令前缀,代表自定义解压.
			echo.  FolderName      目录.
			echo.  CabName         压缩文件名,可以不包括.Cab的后缀.
			echo.
			echo.  例如,解压Hope.Cab到C:\Users\%Username%\Hope\Hope Cab\目录下,有两种语法:
			echo.  
			echo.  X-C:\Users\%Username%\Hope\Hope Cab\/Hope.Cab
			echo.  X-C:\Users\%Username%\Hope\Hope Cab\/Hope
			echo.
			call :Line
			echo.
			echo.  9. 打开文件
			echo.
			echo.  命令格式如下：
			echo.
			echo.  ^>^> U-FileName
			echo.
			echo.  U-              命令前缀,代表打开文件.
			echo.  FileName        文件名.
			echo.
			echo.  例如,打开Hope.ini,需要键入:
			echo.  
			echo.  U-Hope.ini
			echo.
			call :Line
			echo.
			echo.  10. 查找压缩文件
			echo.
			echo.  命令格式如下：
			echo.
			echo.  ^>^> S-FileName
			echo.
			echo.  S-              命令前缀,代表搜索文件.
			echo.  CabName         压缩文件名,可以不包括.Cab的后缀.
			echo.
			echo.  例如,查找Hope.Cab,有两种语法:
			echo.  
			echo.  S-Hope.Cab
			echo.  S-Hope
			echo.
			call :Line
			echo.
			echo.  11.更新
			echo.
			echo.  若要更新,请键入:P
			echo.
			call :Line
			echo.
			echo.  ^>^> 请按回车键继续...
			echo.
			Call :Line
			echo.
			pause > nul
		@Goto Main
		)
		if /i "%Command_a%"=="F" @Goto :File
		if /i "%Command_a%"=="R" @Goto :Folder
		if /i "%Command_a%"=="E" @Goto :Extract
		if /i "%Command_a%"=="C" @Goto :Chdir
		if /i "%Command_a%"=="D" @Goto :Disk
		if /i "%Command_a%"=="B" cd.. & @Goto :Main
		if /i "%Command_a%"=="T" @Goto :DelFile
		if /i "%Command_a%"=="X" @Goto :Extract_Custom
		if /i "%Command_a%"=="U" @Goto :Run
		if /i "%Command_a%"=="S" @Goto :Search
		if /i "%Command_a%"=="P" @Goto :Update
		echo.  ^>^> 命令语法不正确!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto Main
复制代码

	:File
		Set Commandb=%Command:~2%
		echo.%Commandb%
		Set FileName=%Commandb%
		Call :FileName
		Set CabName=%Commandb:*/=%
		Set "FileName=%FileName:"=%"
		Set "CabName=%CabName:"=%"
		Set Commandc=%CabName:~-4%
		echo.
		if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
		if /i exist "%FileName%" if /i not exist "%CabName%" (
			echo.  ^>^> 对文件进行处理:
			Call :Line
			echo.%FileName%
			echo.%CabName%
			makecab /d maxdisksize=1099511627776 "%FileName%" "%CabName%"
			echo.
			echo.  ^>^> 将 %FileName% 压缩为 %CabName% 成功!
			echo.
			echo.  ^>^> 请按回车键继续...
			pause > nul
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此文件或已存在此压缩文档!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main

	:Folder
		Set Commandb=%Command:~2%
		echo.%Commandb%
		Set FolderName=%Commandb%
		Call :FolderName
		Set ListName=%Commandb%
		Set CabName=%Commandb:*/=%
		Call :ListName
		Call :CabName_2
		Set "FolderName=%FolderName:"=%"
		Set "CabName=%CabName:"=%"
		Set Commandc=%CabName:~-4%
		if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
		if /i exist "%FolderCabName%\" if /i not exist "%CabName%" if /i not exist "%ListName%" (
			cd "%FolderName%"
			dir /b >> %ListName%"
			echo.  ^>^> 对文件进行处理:
			Call :Line
			echo.%FolderName%
			echo.%CabName%
			echo.%ListName%
			makecab /d maxdisksize=1099511627776 /f "%ListName%"
			echo.
			echo.  ^>^> 将 %FolderName% 压缩为 %CabName% 成功!
			echo.
			echo.  ^>^> 请按回车键继续...
			if /i exist "%ListName%" del "%ListName%"
			cd..
			ren "%cd%\%FolderName%\Disk1\1.cab" "%CabName%"
			Move "%cd%\%FolderName%\Disk1\%CabName%" "%cd%"
			pause > nul
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此文件或已存在此压缩文档!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main

	:Extract
		Set CabName=%Command:~2%
		Set Commandc=%CabName:~-4%
		if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
		if /i exist "%CabName%" (
			expand "%CabName%" -f:* "%cd%\"
			echo.  ^>^> 将 %CabName% 解压缩成功!
			echo.
			echo.  ^>^> 请按回车键继续...
			pause > nul
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此压缩文档!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main

	:Chdir
		Set FolderName=%Command:~2%
		if /i exist "%FolderName%\" (
			cd "%FolderName%"
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此目录!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main

	:Disk
		Set DiskVol=%Command:~2%
		Set DiskVol=%DiskVol:~0,1%
		if /i exist %DiskVol%: (
			%DiskVol%:
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此磁盘或驱动器!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main
	
	:DelFile
		Set FileOrDirectory=%Command:~2%
		if not exist "%FileOrDirectory%" (
			echo.
			echo.   ^>^> 无此文件或目录！
			echo.
			echo.   ^>^> 请按回车键继续...
			pause > nul
		@Goto :Main
        	)
        	echo.
		echo.   ^>^> 这会删除%FileOrDirectory%下的所有文件（如果这是文件夹）
		echo.
		echo.   ^>^> 确认否[Y/N]?
		Call :Get_Key
		if /i "%key%"=="N" @Goto :Main
		if /i "%key%"=="Y" (
			if exist "%FileOrDirectory%\" (
				rd "%FileOrDirectory%" /s /q >nul 2>nul
			@Goto :Main
			)
			del "%FileOrDirectory%" /f /q >nul 2>nul
		@Goto :Main
		)
		if "%valid_key%"=="0" @Goto :DelFile
	@goto :DelFile

	:Extract_Custom
		Set Commandb=%Command:~2%
		Set CabName=%Command:~2%
		Set FolderName=%Command:~2%
		Set CabName=%Commandb:*/=%
		Set "CabName=%CabName:"=%"
		Call :Custom_FolderName
		Call :Custom_FolderName_2
		Set Commandc=%CabName:~-4%
		Set "FolderName=%FolderName:"=%"
		echo.%CabName%
		echo.%FolderName%
		if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
		if /i exist "%CabName%" if /i exist "%FolderName%\" (
			expand "%CabName%" -f:* "%FolderName%"
			echo.  ^>^> 将 %CabName% 解压缩成功!
			echo.
			echo.  ^>^> 请按回车键继续...
			pause > nul
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此压缩文档或此目录!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main

	:Run
		Set FileName=%Command:~2%
		Set "FileName=%FileName:"=%"
		if /i exist "%FileName%\" (
			start explorer "%FileName%"
		@Goto :Main
		)
		if /i exist "%FileName%" (
			start "" "%FileName%"
		@Goto :Main
		)
		echo.
		echo.  ^>^> 无此文件或目录!
		echo.
		echo.  ^>^> 请按回车键继续...
		pause > nul
	@Goto :Main

	:Search
		Set CabName=%Command:~2%
		Set Commandc=%CabName:~-4%
		echo.
		echo.  ^>^> 搜索中...
		if /i "%Commandc%" neq ".cab" set CabName=%CabNAme%.Cab
		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 (
			if /i exist %%i: (
				cd /d %%i:
				FORFILES /P %%i:\ /S /M "%CabName%"
			)
		)
		echo.
		echo.  ^>^> 搜索完成!
		echo.
		echo.  ^>^> 请按回车键继续...
		%Bin_Drive%:
		cd %Bin_Dir%
		pause > nul
	@Goto :Main

	:Update
		cls
		echo.
		Set Bin_Dir=%0
		Set "Bin_Dir=%Bin_Dir:"=%"
		set /p UpdateFile=   ^>^> 请输入更新包名称[.HopeUpdate] 
		echo.
		Set "UpdateFile=%UpdateFile:"=%"
		echo.%UpdateFile%
		echo.
		if not exist "%UpdateFile%" (
			echo.   ^>^> 无此更新文件!
			echo.
			echo.   ^>^> 按任意键返回...
			pause>nul
		@Goto :Main
		)
		if not "%UpdateFile:~-11%"==".HopeUpdate" (
			echo.   ^>^> 更新文件格式不正确！
			echo.
			echo.   ^>^> 按任意键返回...
			pause>nul
		@Goto :Main
		)
		Call :Version
		echo.检测到%Version%...
		echo.
		cd.>"%Version%.Bat"
		for /f "usebackq delims= skip=1" %%i in ("%UpdateFile%") do (
			echo.%%i >> "%Version%.Bat"
		)
		Certutil -decode -f "%Version%.Bat" "%Version%.Bat"
		Mklink "%userprofile%\Desktop" "%Version%.Bat"
		Del "%Bin_Dir%"
		pause
		@Exit

::--------Functions-------------------------------------------------------------------------------------------------------------

	:Version
	Rem ; Call :Version
		for /f "usebackq delims=" %%i in ("%UpdateFile%") do (
			echo.%%i
			Set Version=%%i
			@Goto :eof
		)

	:Custom_FolderName
	Rem ; Call :Custom_FolderName
		Set FolderName=%FolderName:~0,-1%
		echo.%FolderName%|Find "/"
		if not errorlevel 1 (
			@Call :Custom_FolderName
		)
		if errorlevel 1 (
			@Goto :eof
		)
	@Call :Custom_FolderName

	:Custom_FolderName_2
	Rem ; Call :Custom_FolderName_2
		Set FNa=%FolderName:~-1%
		echo.%FNa%|Find "\"
		if not errorlevel 1 (
			@Call :Custom_FolderName
		)
		if errorlevel 1 (
			@Goto :eof
		)
	@Call :Custom_FolderName_2

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

	:CabName
	Rem ; Call :CabName
		Set CabName=%CabName:~0,-1%
		echo.%CabName%|Find "/"
		if not errorlevel 1 (
			@Call :CabName
		)
		if errorlevel 1 (
			@Goto :eof
		)
	@Call :CabName

	:CabName_2
	Rem ; Call :CabName
		Set CabName=%CabName:~0,-1%
		echo.%CabName%|Find ":"
		if not errorlevel 1 (
			@Call :CabName
		)
		if errorlevel 1 (
			@Goto :eof
		)
	@Call :CabName

	:ListName
	Rem ; Call :ListName
		Set ListName=%ListName:~1%
		echo.%ListName%|Find ":"
		if not errorlevel 1 (
			@Call :ListName
		)
		if errorlevel 1 (
			@Goto :eof
		)
	@Call :ListName

	:FolderName
	Rem ; Call :FolderName
		Set FolderName=%FolderName:~0,-1%
		echo.%FolderName%|Find "/"
		if not errorlevel 1 (
			@Call :FolderName
		)
		if errorlevel 1 (
			@Goto :eof
		)
		Set FolderName=%FolderName:~0,-1%
		echo.%FolderName%|Find "/"
		if not errorlevel 1 (
			@Call :FolderName
		)
	@Call :FileName

	:FileName
	Rem ; Call :FileName
		Set FileName=%FileName:~0,-1%
		echo.%FileName%|Find "/"
		if not errorlevel 1 (
			@Call :FileName
		)
		if errorlevel 1 (
			@Goto :eof
		)
	@Call :FileName

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

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

	:Tool_Bar_Main
	Rem ; Call :Tool_Bar_Main
		echo.
		call :Type "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
		call :Type "■                                                          Hope Cab                                                          ■"
		call :Type "■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■"
		echo.
		echo.
	@Goto :eof


	:Line
	Rem ; Call :Line
		call :Type "--------------------------------------------------------------------------------------------------------------------------------"
		echo.
	@Goto :eof

	:FilesAndFolder
	Rem ; Call :FilesAndFolder
		dir /w
	@Goto :eof
    
::--------Annotation------------------------------------------------------------------------------------------------------------

	Rem ; [File]
		F-FileName/CabName

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

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

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

	Rem ; [Extract_Custom]
		X-FolderName/CabName
复制代码