无忧启动论坛

标题: 注册表跳转VBS脚本，方便操作注册表 [打印本页]
作者: edison_2008    时间: 4 天前
标题: 注册表跳转VBS脚本，方便操作注册表
  1. Option Explicit

  3. Dim objShell, userInput, regPath
  4. Set objShell = CreateObject("WScript.Shell")

  6. ' 获取用户输入的注册表路径
  7. userInput = InputBox("请输入注册表路径（例如：HKEY_LOCAL_MACHINE\SOFTWARE）:", "注册表路径跳转工具")

  9. ' 用户取消操作时退出
  10. If userInput = "" Then WScript.Quit

  12. ' 格式化路径为注册表编辑器可识别的格式
  13. regPath = "计算机" & Replace(userInput, "HKEY_", "HKEY_", 1, -1, vbTextCompare)

  15. ' 关闭可能存在的注册表编辑器进程
  16. objShell.Run "taskkill /f /im regedit.exe > nul", 0, True

  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

  28. ' 启动注册表编辑器
  29. objShell.Run "regedit.exe", 1, False

  31. ' 清理操作（可选）
  32. ' objShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"

  34. MsgBox "已成功跳转到：" & vbCrLf & userInput, vbInformation, "操作完成"
复制代码


保存成VBS即可，注意编码格式ANSI
作者: djsh001    时间: 4 天前
谢谢你！我来试一试。
作者: 印第安老斑鸠    时间: 4 天前
感谢楼主
作者: 燕飞龙    时间: 4 天前
感谢分享
作者: 小灰兔    时间: 4 天前
感谢分享
作者: 蘭蘭    时间: 4 天前
谢谢分享！
作者: yyz2191958    时间: 4 天前
PE 下 用不了
作者: 肉仔    时间: 4 天前
这个干什么用的啊
作者: 倒垃圾的歌者    时间: 4 天前
肉仔 发表于 2025-8-25 20:03
这个干什么用的啊

快捷打开注册表功能，比如输入HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey，可以快速打开注册表HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey这个位置。对于Win7比较实用，Win10只省了一个打开注册表的步骤
作者: 本万    时间: 4 天前
感谢分享
作者: wjgyz740526    时间: 4 天前
建议改成右键菜单，更方便一点
作者: wn168cn@163.com    时间: 4 天前
感谢楼主分享 ！！
作者: jjhtya    时间: 4 天前
谢谢分享
作者: in9    时间: 3 天前
谢谢楼主分享！
作者: wang1126    时间: 3 天前
谢谢楼主分享
作者: 201012121135    时间: 3 天前
感谢分享
作者: dksoft    时间: 3 天前
感谢分享
作者: Aronnax    时间: 3 天前
感谢楼主分享，试了一下非常好用
作者: 奈绪    时间: 3 天前
非常实用的工具，感谢楼主分享。
作者: 红五星云少    时间: 3 天前
感谢分享，试试比专门的注册表跳转软件看哪个更方便使用。
作者: lhc12399    时间: 3 天前
谢谢你！
作者: mdhdehao    时间: 3 天前
谢谢分享
作者: tt911    时间: 3 天前
这20年前就玩过了，没啥意思。
随便找几个注册表可以加收藏夹和分类的功能软件就解决了。
作者: guong    时间: 3 天前
感谢分享 ！
作者: fegr    时间: 3 天前
谢谢分享
作者: 木子lzq    时间: 3 天前
感谢分享
作者: chibuzhu    时间: 3 天前
感谢分享
作者: yzydys    时间: 3 天前
谢谢楼主分享
作者: kzx1314    时间: 3 天前

感谢分享
作者: nyren    时间: 3 天前
感谢楼主的好物分享！
作者: handsome_xiang    时间: 3 天前
感谢分享！
作者: AcidBurn    时间: 昨天 04:03
谢谢楼主的分享!
作者: yaojil    时间: 昨天 06:54
感谢楼主分享 ！！
作者: 2011matrixvexx    时间: 21 小时前
#在这里快速回复#感谢楼主分享



欢迎光临 无忧启动论坛 (http://bbs.c3.wuyou.net/) Powered by Discuz! X3.3