優(yōu)化系統、清理垃圾、修復故障,似乎和系統沾邊的操作都得和注冊表打交道。絕少有人會(huì )去記注冊表路徑,大多數人都是現搜,但是要通過(guò)系統自帶的“
| |
Option Explicit
Dim objShell
Dim strRegAddress
Set objShell = CreateObject("Wscript.Shell")
‘獲取用戶(hù)所輸入的地址。
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
‘將該地址寫(xiě)入注冊表。
objShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey",strRegAddress
‘啟動(dòng)注冊表編輯器。
objShell.Run("RegEdit.exe")
完成后保存為一個(gè)VBS腳本文件(注意:保存類(lèi)型要選擇“所有文件”,否則會(huì )存成TXT)。然后將該腳本文件放置到方便使用的地方,比如快速啟動(dòng)欄。以后只要運行該腳本,輸入欲打開(kāi)的注冊表路徑地址(見(jiàn)圖),回車(chē)后就能打開(kāi)“注冊表編輯器”并且定位到該地址了。
聯(lián)系客服