无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站广告联系 微信:wuyouceo QQ:184822951
查看: 5657|回复: 11

右键添加打开注册表位置

  [复制链接]
发表于 2018-6-3 10:19:35 | 显示全部楼层 |阅读模式
右键添加打开注册表位置
  1. @echo off
  2. reg add "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\regedit" /ve /t REG_EXPAND_SZ /d "打开注册表位置" /f
  3. reg add "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\regedit\command" /ve /t REG_EXPAND_SZ /d "wscript %SystemRoot%\注册表位置.vbs" /f
  4. echo Dim Num>>%systemroot%\注册表位置.vbs
  5. echo Num=Inputbox ("请输入注册表路径")>>%systemroot%\注册表位置.vbs
  6. echo Dim OperationRegistry>>%systemroot%\注册表位置.vbs
  7. echo Set OperationRegistry = WScript.CreateObject("WScript.Shell")>>%systemroot%\注册表位置.vbs
  8. echo OperationRegistry.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", ""&Num&"">>%systemroot%\注册表位置.vbs
  9. echo Dim objws>>%systemroot%\注册表位置.vbs
  10. echo Set objws=WScript.CreateObject("wscript.shell")>>%systemroot%\注册表位置.vbs
  11. echo objws.Run "C:\Windows\regedit.exe">>%systemroot%\注册表位置.vbs
复制代码

GIF.gif
win10是批处理,vbs权限低
  1. @echo off
  2. reg add "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\regedit" /ve /t REG_EXPAND_SZ /d "打开注册表位置" /f
  3. reg add "HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\shell\regedit\command" /ve /t REG_EXPAND_SZ /d "%SystemRoot%\注册表定位.bat" /f
  4. echo @echo off>>yu.bat
  5. echo mode con: lines=5 cols=75>>yu.bat
  6. echo color 5f>>yu.bat
  7. echo title 快速定位注册表>>yu.bat
  8. echo @echo 例如:HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run>>yu.bat
  9. echo set /p temp=请输入路径:>>yu.bat
  10. echo cmd /c reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /d %%temp%% /f^&^&start regedit.exe>>yu.bat
复制代码

20180603101700097.jpg

 楼主| 发表于 2018-7-13 06:22:33 来自手机 | 显示全部楼层
这个不能识别输入缩写的,怎么实现自动替换成完整?
回复

使用道具 举报

 楼主| 发表于 2018-7-13 08:13:12 来自手机 | 显示全部楼层
看样子要改方案,vbs输入,传递参数给bat去执行,就能实现完整和缩写都正确打开了。
回复

使用道具 举报

 楼主| 发表于 2018-7-13 19:47:49 | 显示全部楼层
于是成品来了
右键打开注册表位置.rar (1.37 KB, 下载次数: 134)

点评

好东西。支持了 这个需要顶起来  发表于 2020-9-9 11:37

评分

参与人数 1无忧币 +5 收起 理由
879792799 + 5 很给力!

查看全部评分

回复

使用道具 举报

发表于 2019-4-14 18:03:36 | 显示全部楼层
这个可以有,谢谢楼主无私分享,收藏学习了!
回复

使用道具 举报

发表于 2020-11-19 21:56:54 | 显示全部楼层
谢谢分享,辛苦你了
回复

使用道具 举报

发表于 2020-11-21 12:01:55 | 显示全部楼层
思考了一下,win10的注册表编辑器似乎自带地址栏(
回复

使用道具 举报

 楼主| 发表于 2020-11-21 12:58:50 来自手机 | 显示全部楼层
是的,但不一定支持长短格式。
回复

使用道具 举报

 楼主| 发表于 2021-6-23 20:14:40 | 显示全部楼层
  1. On Error Resume Next
  2. Dim wri,fsoo
  3. Set fsoo=Wscript.CreateObject("Scripting.FileSystemObject")
  4. data=InputBox("请输入内容","请输入","")
  5. Dim WshShell
  6. Set WshShell = WScript.CreateObject("WScript.Shell")
  7. WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", data,"REG_SZ"
  8. WshShell.Run "regedit.exe -m"
复制代码
写入的键值是缩写就不起作用了,怎么样可以自动转换呢?
回复

使用道具 举报

发表于 2021-6-23 21:27:55 | 显示全部楼层
我是用的批处理,vbs不会.

安装.bat:
  1. @echo off&color 1f
  2. copy 注册表快速定位.bat "%windir%"
  3. ::文件右键
  4. reg add "HKCR\*\shell\注册表定位" /ve /d "注册表定位" /f
  5. reg add "HKCR\*\shell\注册表定位\command" /ve /t REG_EXPAND_SZ /d "%windir%\注册表快速定位.bat" /f
  6. ::目录右键
  7. reg add "HKCR\Directory\shell\注册表定位" /ve /d "注册表定位" /f
  8. reg add "HKCR\Directory\shell\注册表定位\command" /ve /t REG_EXPAND_SZ /d "%windir%\注册表快速定位.bat" /f
复制代码


卸载.bat:
  1. @echo off&color 1f
  2. reg delete "HKCR\*\shell\注册表定位" /f
  3. reg delete "HKCR\Directory\shell\注册表定位" /f
  4. del "%windir%\注册表快速定位.bat"
复制代码


注册表快速定位.bat:
  1. @echo off&color 1f&echo.
  2. echo  [注册表快速定位]
  3. echo.
  4. echo  1.粘贴或键入注册表项,然后回车 ─→ 打开指定的注册表项
  5. echo.
  6. echo    例如 右键菜单的注册表项
  7. echo.
  8. echo       请输入:HKEY_LOCAL_MACHINE\SOFTWARE\Classes\*\shell
  9. echo    或 请输入:HKLM\SOFTWARE\Classes\*\shell
  10. echo.
  11. echo  2.直接回车 ─→ 打开注册表根目录
  12. echo.
  13. echo    输入错误的注册表项,也会打开注册表根目录
  14. echo.
  15. echo  3.关闭窗口 ─→ 退出
  16. echo.
  17. set rr=
  18. set /p rr= 请输入:
  19. if "%rr%" == "" (
  20.    reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /f
  21.    if exist "%windir%\regedit.exe" (
  22.      start %windir%\regedit.exe & exit
  23.    ) else (
  24.      start regedit & exit
  25.    )
  26. )
  27. if /i "%rr:~0,4%" == "HKCR" set rr=HKEY_CLASSES_ROOT%rr:~4%
  28. if /i "%rr:~0,4%" == "HKCU" set rr=HKEY_CURRENT_USER%rr:~4%
  29. if /i "%rr:~0,4%" == "HKLM" set rr=HKEY_LOCAL_MACHINE%rr:~4%
  30. if /i "%rr:~0,4%" == "HKCC" set rr=HKEY_CURRENT_CONFIG%rr:~4%
  31. if /i "%rr:~0,3%" == "HKU" set rr=HKEY_USERS%rr:~3%

  32. reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /d "%rr%" /f
  33. if exist "%windir%\regedit.exe" (
  34.   start %windir%\regedit.exe & exit
  35. ) else (
  36.   start regedit & exit
  37. )
复制代码

回复

使用道具 举报

 楼主| 发表于 2021-6-23 21:51:16 | 显示全部楼层
本帖最后由 窄口牛 于 2021-6-24 20:02 编辑

Screenshot_20210623-214813.png
  1. 看来就是得用笨方法了
  2. Dim rootkey, oldroot
  3. oldroot = UCase(Split(data, "")(0))
  4. Select Case rootkey
  5.     Case "HKCU"
  6.         rootkey = "HKEY_CURRENT_USER"
  7.     Case "HKLM"
  8.         ' ......
  9. End Select

  10. If Not IsEmpty(rootkey) Then
  11.     data = Replace(data, oldroot, rootkey)
  12. End If
复制代码
明天出成品试试。
最新成品
安装.rar (1.14 KB, 下载次数: 13)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-3-29 04:14

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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