瑞星卡卡安全论坛

将下面脚本保存成vbs即可



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'功能:快捷到达注册表指定路径。                                                  '
'作者:轩轩G.G.                                                                  '
'论坛地址:http://itbbs.pconline.com.cn/forum.jsp?fid=25                        '
'PS：本来可以做成程序，界面可以很好看的，而且技术也保留了。但是为什么发的脚本？ '
'是希望大家互相学习，努力进步。所以请尊重他人劳动成果!  转帖请勿修改！          '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''




Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("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  '不好意思啊，大家一定要加这个，退出脚本，不然进程还在。

可以找到 就是被金山拦截

没关系! 我就是想知道具体是做什么功能的?
以下是可以改的!


昵称:轩轩G.G. 制作" & vbcrlf & "转发或转帖请注明本信息!" & vbcrlf & vbcrlf & _

引用:

【静天使的贴子】可以找到 就是被金山拦截 没关系! 我就是想知道具体是做什么功能的? 以下是可以改的! 昵称:轩轩G.G. 制作" & vbcrlf & "转发或转帖请注明本信息!" & vbcrlf & vbcrlf & _ ...........................

注册表编辑器要一层一层的进入很麻烦，这个脚本就是方便大家快捷进入注册表编辑器指定项目的。快捷到达注册表指定路径。
是的，会被金山拦截，可继续 ！

顶一下吧。。。。。。。。。。