完全手工打造注册表编辑器的地址栏

　　*本文所用方法在Windows9x下不可用。

　　优化系统、清理垃圾、修复故障，似乎和系统沾边的操作都得和注册表打交道。绝少有人会去记注册表路径，大多数人都是现搜，但是要通过系统自带的“注册表编辑器”展开网页上的长串注册表路径实在不容易，点都得点老半天，为什么不像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)。然后将该脚本文件放置到方便使用的地方，比如快速启动栏。以后只要运行该脚本，输入欲打开的注册表路径地址(见图)，回车后就能打开“注册表编辑器”并且定位到该地址了。