---------------------------

来源:百度文库 编辑:神马文学网 时间:2024/04/28 16:12:59
  
注册表地址栏:输入地址,快速打开注册表编辑器
引用地址:
http://www.cfan.com.cn/yc/system/2007-07-20/1184906619d78530.shtmlhttp://www.ccw.com.cn/soft/apply/os/htm2007/20070723_290850.shtml
*本文所用方法在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)。然后将该脚本文件放置到方便使用的地方,比如快速启动栏。以后只要运行该脚本,输入欲打开的注册表路径地址(见图),回车后就能打开“注册表编辑器”并且定位到该地址了。