右键添加打开注册表位置

窄口牛 · 发表于 2018-6-3 10:19:35

右键添加打开注册表位置

@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-A2D8-08002B30309D}\shell\regedit\command" /ve /t REG_EXPAND_SZ /d "wscript %SystemRoot%\注册表位置.vbs" /f
echo Dim Num>>%systemroot%\注册表位置.vbs
echo Num=Inputbox ("请输入注册表路径")>>%systemroot%\注册表位置.vbs
echo Dim OperationRegistry>>%systemroot%\注册表位置.vbs
echo Set OperationRegistry = WScript.CreateObject("WScript.Shell")>>%systemroot%\注册表位置.vbs
echo OperationRegistry.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", ""&Num&"">>%systemroot%\注册表位置.vbs
echo Dim objws>>%systemroot%\注册表位置.vbs
echo Set objws=WScript.CreateObject("wscript.shell")>>%systemroot%\注册表位置.vbs
echo objws.Run "C:\Windows\regedit.exe">>%systemroot%\注册表位置.vbs

复制代码

win10是批处理，vbs权限低

@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-A2D8-08002B30309D}\shell\regedit\command" /ve /t REG_EXPAND_SZ /d "%SystemRoot%\注册表定位.bat" /f
echo @echo off>>yu.bat
echo mode con: lines=5 cols=75>>yu.bat
echo color 5f>>yu.bat
echo title 快速定位注册表>>yu.bat
echo @echo 例如：HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run>>yu.bat
echo set /p temp=请输入路径:>>yu.bat
echo cmd /c reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /d %%temp%% /f^&^&start regedit.exe>>yu.bat

复制代码

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

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

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

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

窄口牛 · 发表于 2018-7-13 19:47:49

于是成品来了

右键打开注册表位置.rar (1.37 KB, 下载次数: 139)

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

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

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

谢谢分享，辛苦你了

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

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

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

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

窄口牛 · 发表于 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"

复制代码

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

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:

复制代码

注册表快速定位.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 21:51:16

本帖最后由窄口牛于 2021-6-24 20:02 编辑

复制代码

明天出成品试试。
最新成品

安装.rar (1.14 KB, 下载次数: 20)

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