注册表跳转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

djsh001

谢谢你！我来试一试。

印第安老斑鸠

感谢楼主

燕飞龙

感谢分享

小灰兔

感谢分享

蘭蘭

谢谢分享！

yyz2191958

PE 下 用不了

肉仔

这个干什么用的啊

倒垃圾的歌者

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

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

本万

感谢分享

wjgyz740526

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

wn168cn@163.com

感谢楼主分享 ！！

jjhtya

谢谢分享

in9

谢谢楼主分享！

wang1126

谢谢楼主分享

201012121135

感谢分享