无忧启动论坛»论坛 › ::启动制作:: › 脚本讨论区 › 右键添加打开注册表位置

右键添加打开注册表位置

查看数: 6476 | 评论数: 10 | 收藏 10

关灯 | 提示：支持键盘翻页<-左右->

帖子模式

窄口牛

发布时间: 2018-6-3 10:19

正文摘要:

右键添加打开注册表位置 @echo off reg add "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\regedit" /ve /t REG_EXPAND_SZ /d "打开注册表位置" /f reg add "HKCR\CLSID\{20D04FE0-3AEA-1069 ...

807979023 发表于 2021-6-23 21:27:55

我是用的批处理,vbs不会.

安装.bat:

@echo off&color 1f
copy 注册表快速定位.bat "%windir%"
::文件右键
reg add "HKCR\*\shell\注册表定位" /ve /d "注册表定位" /f
reg add "HKCR\*\shell\注册表定位\command" /ve /t REG_EXPAND_SZ /d "%windir%\注册表快速定位.bat" /f
::目录右键
reg add "HKCR\Directory\shell\注册表定位" /ve /d "注册表定位" /f
reg add "HKCR\Directory\shell\注册表定位\command" /ve /t REG_EXPAND_SZ /d "%windir%\注册表快速定位.bat" /f

复制代码

卸载.bat:

@echo off&color 1f
reg delete "HKCR\*\shell\注册表定位" /f
reg delete "HKCR\Directory\shell\注册表定位" /f
del "%windir%\注册表快速定位.bat"

复制代码

注册表快速定位.bat:

@echo off&color 1f&echo.
echo [注册表快速定位]
echo.
echo 1.粘贴或键入注册表项,然后回车 ─→ 打开指定的注册表项
echo.
echo 例如右键菜单的注册表项
echo.
echo 请输入：HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell
echo 或请输入：HKLM\SOFTWARE\Classes\*\shell
echo.
echo 2.直接回车 ─→ 打开注册表根目录
echo.
echo 输入错误的注册表项,也会打开注册表根目录
echo.
echo 3.关闭窗口 ─→ 退出
echo.
set rr=
set /p rr= 请输入：
if "%rr%" == "" (
reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /f
if exist "%windir%\regedit.exe" (
start %windir%\regedit.exe & exit
) else (
start regedit & exit
)
)
if /i "%rr:~0,4%" == "HKCR" set rr=HKEY_CLASSES_ROOT%rr:~4%
if /i "%rr:~0,4%" == "HKCU" set rr=HKEY_CURRENT_USER%rr:~4%
if /i "%rr:~0,4%" == "HKLM" set rr=HKEY_LOCAL_MACHINE%rr:~4%
if /i "%rr:~0,4%" == "HKCC" set rr=HKEY_CURRENT_CONFIG%rr:~4%
if /i "%rr:~0,3%" == "HKU" set rr=HKEY_USERS%rr:~3%
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /d "%rr%" /f
if exist "%windir%\regedit.exe" (
start %windir%\regedit.exe & exit
) else (
start regedit & exit
)

复制代码

窄口牛 发表于 2021-6-23 20:14:40

On Error Resume Next
Dim wri,fsoo
Set fsoo=Wscript.CreateObject("Scripting.FileSystemObject")
data=InputBox("请输入内容","请输入","")
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", data,"REG_SZ"
WshShell.Run "regedit.exe -m"

复制代码

写入的键值是缩写就不起作用了,怎么样可以自动转换呢?

窄口牛 发表于 2020-11-21 12:58:50

是的，但不一定支持长短格式。

CodeHz 发表于 2020-11-21 12:01:55

思考了一下，win10的注册表编辑器似乎自带地址栏（

wenbieba 发表于 2020-11-19 21:56:54

谢谢分享，辛苦你了

locoman 发表于 2019-4-14 18:03:36

这个可以有，谢谢楼主无私分享，收藏学习了！

窄口牛 发表于 2018-7-13 08:13:12

看样子要改方案，vbs输入，传递参数给bat去执行，就能实现完整和缩写都正确打开了。

窄口牛 发表于 2018-7-13 06:22:33

这个不能识别输入缩写的，怎么实现自动替换成完整？

		自动登录	找回密码
密码			注册

右键添加打开注册表位置

正文摘要:

回复