批处理之家 - Powered by Discuz! Board

SET "BAT2MNPA=%DATE:~0,4%%DATE:~5,2%%DATE:~8,2%%Time:~0,2%%Time:~3,2%%Time:~6,2%"
IF NOT EXIST BACKUP\%Userdomain% MKDIR BACKUP\%Userdomain%
@REM 右键→新建→项目--功能的取消
@ECHO OFF
ECHO.
IF /I "%BAT2MENU%"=="All" (
SET "NullFile=Z"
GOTO ChJuNullFile )
ECHO 右键→新建→项目--功能的取消
ECHO.
ECHO 请输入扩展名，多个名称请用空格分开
ECHO.
SET NullFile=
SET /P NullFile=[回车]：跳过，[Z]：推荐值。请输入：　
IF /I "%NullFile%"=="" GOTO END2MENUN
SET "NullFile=%NullFile:.=%"
SET "NullFile=%NullFile:　= %"
:ChJuNullFile
IF /I "%NullFile%"=="Z" SET "NullFile=accdb AIS bmp contact docx jnt pptx psd pub wav xlsx ZIP"
FOR %%I IN ( %NullFile% ) DO (
REG QUERY HKCR\.%%I\ShellNew 2>nul 1>nul
IF NOT errorlevel 1 (
REG EXPORT HKCR\.%%I\ShellNew BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg
ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg
REG DELETE HKCR\.%%I\ShellNew /F
) ELSE (
IF /I "%%I"=="accdb" (
REG EXPORT "HKCR\.accdb\Access.Application.12\ShellNew" BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg 2>nul 1>nul && ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg && REG DELETE "HKCR\.accdb\Access.Application.12\ShellNew" /F
) ELSE (
IF /I %%I==docx (
REG EXPORT "HKCR\.docx\Word.Document.12\ShellNew" BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg 2>nul 1>nul && ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg && REG DELETE "HKCR\.docx\Word.Document.12\ShellNew" /F
) ELSE (
IF /I %%I==jnt (
REG EXPORT "HKCR\.jnt\jntfile\ShellNew" BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg 2>nul 1>nul && ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg && REG DELETE "HKCR\.jnt\jntfile\ShellNew" /F
) ELSE (
IF /I %%I==pptx (
REG EXPORT "HKCR\.pptx\PowerPoint.Show.12\ShellNew" BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg 2>nul 1>nul && ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg && REG DELETE "HKCR\.pptx\PowerPoint.Show.12\ShellNew" /F
) ELSE (
IF /I %%I==pub (
REG EXPORT "HKCR\.pub\Publisher.Document.12\ShellNew" BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg 2>nul 1>nul && ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg && REG DELETE "HKCR\.pub\Publisher.Document.12\ShellNew" /F
) ELSE (
IF /I %%I==xlsx (
REG EXPORT "HKCR\.xlsx\Excel.Sheet.12\ShellNew" BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg 2>nul 1>nul && ECHO ; 这是鼠标右键"新建"菜单项目 .%%I 类型的注册表信息，可作恢复之用 >> BACKUP\%Userdomain%\%%I-%BAT2MNPA%.reg && REG DELETE "HKCR\.xlsx\Excel.Sheet.12\ShellNew" /F
) ELSE (
SET /A A+=1
ECHO.
ECHO !A!个错误：可能的原因：1.右键中无此项“ .%%I ”；
ECHO 　　　　　　　　　　　2.输入有误；　3.无法删除。
ECHO.
)
)
)
)
)
)
)
)
GOTO END2MENUN
:ERRORNullFile
ECHO.
ECHO.
COLOR 0C
ECHO 错误，请重新输入：
ECHO.
PAUSE
ECHO.
COLOR 1F
GOTO ChNullFile
:ENullFile
:END2MENUN
ECHO.
ECHO.
ECHO 操作成功完成……
PAUSE 1>NUL
CLS