将下面脚本保存成vbs即可
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'功能:快捷到达注册表指定路径。 '
'作者:轩轩G.G. '
'论坛地址:http://itbbs.pconline.com.cn/forum.jsp?fid=25 '
'PS:本来可以做成程序,界面可以很好看的,而且技术也保留了。但是为什么发的脚本? '
'是希望大家互相学习,努力进步。所以请尊重他人劳动成果! 转帖请勿修改! '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OperationRegistry
Set OperationRegistry=WScript.Create
Object("WScript.Shell")
RegPath="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Favorites\"
Favorites_GoName="&S我要到→"
Type_Name="REG_SZ"
Key_Data=inputbox("本脚本由WINDOWS系统专区:" & vbcrlf & "ID:SLore" & vbcrlf & "昵称:轩轩G.G. 制作" & vbcrlf & "转发或转帖请注明本信息!" & vbcrlf & vbcrlf & _
"论坛:http://itbbs.pconline.com.cn" & "请输入你要去的径:","路径","HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\Favorites")
if Key_Data=false then WScript.Quit
Sub Change(Argument)
OperationRegistry.RegWrite RegPath & Argument,"我的电脑\" & Key_Data,Type_Name
End Sub
Call Change(Favorites_GoName)
OperationRegistry.Run("Regedit")
WScript.Sleep 300 '延时0.3s (如果计算机速度较慢请将此值设置大些)
OperationRegistry.SendKeys "%a"
'WScript.Sleep 300
OperationRegistry.SendKeys "s"
WScript.Quit '不好意思啊,大家一定要加这个,退出脚本,不然进程还在。