分享一个好东东：给注册表编辑器加上地址栏！

haoge868

*本文所用方法在Windows 9x下不可用。
优化系统、清理垃圾、修复故障，似乎和系统沾边的操作都得和注册表打交道。绝少有人会去记注册表路径，大多数人都是现搜，但是要通过系统自带的“注册表编辑器”展开网页上的长串注册表路径实在不容易，点都得点老半天，为什么不像IE似的有个地址栏呢？不用安装软件，打开“记事本”，输入以下脚本:
Option Explicit
Dim objShell
Dim strRegAddress
Set objShell = CreateObject("Wscript.Shell")
'获取用户所输入的地址。
strRegAddress = InputBox("请输入注册表路径地址"， "注册表地址栏")
If strRegAddress = "" Then
    WScript.Quit
End If
'如果注册表编辑器已经运行则要先关闭它。
If objShell.AppActivate("注册表编辑器") Then
    objShell.SendKeys("%{F4}") 'Alt + F4关闭窗口。
    WScript.Sleep(1000) '等待注册表编辑器关闭。
End If
'合成最终的地址。
strRegAddress = "我的电脑\" & strRegAddress
'将该地址写入注册表。
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey"， strRegAddress
'启动注册表编辑器。
objShell.Run("RegEdit.exe")
完成后保存为一个VBS脚本文件(注意:保存类型要选择“所有文件”，否则会存成TXT)，如果懒得打字，可以直接从http://work.newhua.com/cfan/200701/regadr.rar下载。然后将该脚本文件放置到方便使用的地方，比如快速启动栏。以后只要运行该脚本，输入欲打开的注册表路径地址(见图)，回车后就能打开“注册表编辑器”并且定位到该地址了。

http://school.cfan.com.cn/system/xp/apply/2007-07-20/1184906619d78531.shtml

wty

谢谢分享，试试

yuan_53770

已经有类似的工具，不过还是支持一下

states

用高级注册表编辑器Registry Workshop好点

haoge868

俺喜欢用开源的东东，干了什么一清二楚。
用别的总担心里面有后门啥的...

zqjiang

俺喜欢用开源的东东，干了什么一清二楚。
用别的总担心里面有后门啥的...
haoge868 发表于 2010-5-15 08:06

   一样 一样 喜欢 开源的东东

tonyfs

谢谢分享，学习了