小程序跳转注册表 (注册表跳转菜单)

用到了VBS的命令,上一次用到这个是在文字转语言TTS里面。

文件的作用,,就只是复制粘贴个注册表,然后跳转到注册表的指定位置,,,

比较适合有些小白对更改注册表的时候找注册表的一脸迷茫。。。

代码如下:公众号首页回复"跳转注册表"可以直接有文件。

新建文本文件,然后粘贴代码,更改后缀为VBS,运行即可。

Dim objHTA

Dim path

Dim WshShell

set objHTA=createobject("htmlfile")

path=inputbox("输入你想到达的注册表位置","微信公众号:电脑与office")

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit\LastKey", path, "REG_SZ"

If path="" Then

WScript.Quit

Else

WshShell.Run "regedit*ex.e** -m"

End if

Set objHTA = nothing

Set WshShell = nothing

简单介绍下原理,

①打开注册表到达一个位置之后,关闭再次进入还是可以回到上次位置的,因为路径被储存在注册表的某地某项了(LastKey)。

②通过输入框获取输入的路径,更改LastKey项的内容,然后运行注册表程序就好咯。

③IF判断空值或者输入框关闭则不运行注册表。

说下几个问题,

①通过对LastKey的办法做的,,所以不能在注册表开启状态下跳转。

②注册表的LastKey项如果不是正确的路径则不会跳转,至少不会出错。。