注册表跳转VBS脚本，方便操作注册表

edison_2008

1. Option Explicit
   
2. 
   
3. Dim objShell, userInput, regPath
   
4. Set objShell = CreateObject("WScript.Shell")
   
5. 
   
6. ' 获取用户输入的注册表路径
   
7. userInput = InputBox("请输入注册表路径（例如：HKEY_LOCAL_MACHINE\SOFTWARE）:", "注册表路径跳转工具")
   
8. 
   
9. ' 用户取消操作时退出
   
10. If userInput = "" Then WScript.Quit
    
11. 
    
12. ' 格式化路径为注册表编辑器可识别的格式
    
13. regPath = "计算机" & Replace(userInput, "HKEY_", "HKEY_", 1, -1, vbTextCompare)
    
14. 
    
15. ' 关闭可能存在的注册表编辑器进程
    
16. objShell.Run "taskkill /f /im regedit.exe > nul", 0, True
    
17. 
    
18. ' 写入最后访问路径到注册表
    
19. On Error Resume Next
    
20. objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", regPath, "REG_SZ"
    
21. If Err.Number <> 0 Then
    
22.     MsgBox "路径写入失败，请检查：" & vbCrLf & _
    
23.            "1. 输入的路径格式是否正确" & vbCrLf & _
    
24.            "2. 是否具有管理员权限", vbCritical, "错误"
    
25.     WScript.Quit
    
26. End If
    
27. 
    
28. ' 启动注册表编辑器
    
29. objShell.Run "regedit.exe", 1, False
    
30. 
    
31. ' 清理操作（可选）
    
32. ' objShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"
    
33. 
    
34. MsgBox "已成功跳转到：" & vbCrLf & userInput, vbInformation, "操作完成"

复制代码

保存成VBS即可，注意编码格式ANSI

realskim

感谢楼主

yuaijueyuan

baby1277 发表于 2025-9-1 11:18
以下是我在用的，集成到右键菜单很方便，不推荐用VBS，因为cmd的文本处理功能更强大。
读取剪贴板内容用PS ...

感谢大佬，用ai改了下，后台静默运行，没有剪切板也不提示，直接退出

CDP

好

makoto23

谢谢分享

baby1277

以下是我在用的，集成到右键菜单很方便，不推荐用VBS，因为cmd的文本处理功能更强大。
读取剪贴板内容用PS有点慢，胜在是系统自带的，用第三方命令工具winclip 会快很多，也会支持PE。

1. 
   
2. :: 定位剪贴板中的注册表路径
   
3. for /f "delims=" %%a in ('powershell -noprofile -command "Add-Type -AssemblyName System.Windows.Forms; [System.Windows.Forms.Clipboard]::GetText()"') do set "regpath=%%a"
   
4. set regpath=%regpath:[=%
   
5. set regpath=%regpath:]=%
   
6. set regpath=%regpath:"=%
   
7. set regpath=%regpath:计算机\=%
   
8. :space
   
9. if "%regpath:~-1,1%"==" " (
   
10. set regpath=%regpath:~0,-1%
    
11. goto space
    
12. )
    
13. reg query "%regpath%"
    
14. if %ERRORLEVEL% neq 0 goto error
    
15. reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v "LastKey" /t REG_SZ /d "%regpath%" /f
    
16. taskkill /f /im regedit.exe
    
17. start regedit.exe
    
18. exit
    
19. :error
    
20. msg %username% /time:5 经过查询，注册表项不存在，请仔细检查。
    

复制代码

2011matrixvexx

#在这里快速回复#感谢楼主分享

yaojil

感谢楼主分享 ！！

handsome_xiang

感谢分享！

nyren

感谢楼主的好物分享！

kzx1314

感谢分享

yzydys

谢谢楼主分享

chibuzhu

感谢分享

木子lzq

感谢分享

fegr

谢谢分享

guong

感谢分享 ！

tt911

这20年前就玩过了，没啥意思。
随便找几个注册表可以加收藏夹和分类的功能软件就解决了。

mdhdehao

谢谢分享

lhc12399

谢谢你！

红五星云少

感谢分享，试试比专门的注册表跳转软件看哪个更方便使用。

奈绪

非常实用的工具，感谢楼主分享。

Aronnax

感谢楼主分享，试了一下非常好用

dksoft

感谢分享

201012121135

感谢分享

wang1126

谢谢楼主分享

in9

谢谢楼主分享！

jjhtya

谢谢分享

wn168cn@163.com

感谢楼主分享 ！！

wjgyz740526

建议改成右键菜单，更方便一点

本万

感谢分享

倒垃圾的歌者

肉仔 发表于 2025-8-25 20:03
这个干什么用的啊

快捷打开注册表功能，比如输入HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey，可以快速打开注册表HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey这个位置。对于Win7比较实用，Win10只省了一个打开注册表的步骤