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

edison_2008 · 发表于 4 小时前

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

复制代码

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

djsh001 · 发表于 3 小时前

谢谢你！我来试一试。

印第安老斑鸠 · 发表于 3 小时前

感谢楼主

燕飞龙 · 发表于 3 小时前

感谢分享

小灰兔 · 发表于 3 小时前

感谢分享

蘭蘭 · 发表于 3 小时前

谢谢分享！

yyz2191958 · 发表于 3 小时前

PE 下用不了

肉仔 · 发表于 3 小时前

这个干什么用的啊

倒垃圾的歌者 · 发表于 3 小时前

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

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

本万 · 发表于 3 小时前

感谢分享

wjgyz740526 · 发表于 2 小时前

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

wn168cn@163.com · 发表于 1 小时前

感谢楼主分享！！

jjhtya · 发表于 1 小时前

谢谢分享

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

[分享] 注册表跳转VBS脚本，方便操作注册表

点评

浏览过的版块