優(yōu)化系統(tǒng)、清理垃圾、修復(fù)故障,似乎和系統(tǒng)沾邊的操作都得和注冊表打交道。絕少有人會去記注冊表路徑,大多數(shù)人都是現(xiàn)搜,但是要通過系統(tǒng)自帶的“
|
Option Explicit
Dim objShell
Dim strRegAddress
Set objShell = CreateObject("Wscript.Shell")
‘獲取用戶所輸入的地址。
strRegAddress = InputBox("請輸入注冊表路徑地址", "注冊表地址欄")
If strRegAddress = "" Then
WScript.Quit
End If
‘如果注冊表編輯器已經(jīng)運行則要先關(guān)閉它。
If objShell.AppActivate("注冊表編輯器") Then
objShell.SendKeys("%{F4}") ‘Alt + F4關(guān)閉窗口。
WScript.Sleep(1000) ‘等待注冊表編輯器關(guān)閉。
End If
‘合成最終的地址。
strRegAddress = "我的電腦\" & strRegAddress
‘將該地址寫入注冊表。
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey",strRegAddress
‘啟動注冊表編輯器。
objShell.Run("RegEdit.exe")
完成后保存為一個VBS腳本文件(注意:保存類型要選擇“所有文件”,否則會存成TXT)。然后將該腳本文件放置到方便使用的地方,比如快速啟動欄。以后只要運行該腳本,輸入欲打開的注冊表路徑地址(見圖),回車后就能打開“注冊表編輯器”并且定位到該地址了。