一句代码实现注册表自动快速定位的办法

许多Windows功能定制都要通过修改注册表才能完成，但常规的注册表修改方法太复杂，仅就开启注册表后寻找目标项所花费的时间就够让人心烦，弄不好还可能危及系统安全。因此，寻求可以自动开启注册表并自动定位的方法，以及自动修改注册表的方法，就显得很有必要。

代码：

用记事本创建一个新文件regedit.vbs（选择保存类型为“所有文件”），录入以下代码：

' Produced by the Mainblog.
Dim objHTA
Dim cClipBoard
Dim WshShell
set objHTA=createobject("htmlfile")
cClipBoard=objHTA.parentwindow.clipboarddata.getdata("text")
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", cClipBoard, "REG_SZ"
WshShell.Run "regedit.exe -m"
Set objHTA = nothing
Set WshShell = nothing

文件建好之后，在实际操作中，如果要定位到注册表的某个项目，例如要定位到“HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Installer\Products”，只需先复制这个完整路径，然后双击此前建立好的regedit.vbs文件，通过Windows账户控制验证后，注册表编辑器就会自动打开，并自动定位到上述复制的路径。如此一来，再长的路径定位，全都变成了复制路径和双击脚本文件的两个简单操作，既省时，又通用！

使用演示：