用宏解注册表的困惑

laonamie

在网上看到下面这么一段话

可我这样操作后，总提示编译错误，为什么会出现这样的情况啊，是不是代码有问题呢

用Word的宏来解锁

Word也可以给注册表解锁？没错！我们利用的是微软在Word中提供的“宏”，没想到吧？具体方法是：运行Word，然后编写如下面所示的这个“Unlock”宏，即可给注册表解锁：

Sub Unlock()

Dim RegPath As String

RegPath = “HKEY_CURRENT_USER/Software

/Microsoft/Windows/CurrentVersion/Policies/System”

System.PrivateProfileString(FileName:=“”,Section:=RegPath,Key:=“Disableregistrytools”)=“OK!”

End Sub

其实，这个方法一点都不神秘，只是利用了注册表的一个特性，即在同一注册表项下，不能有相同名字的字符串值和DWORD值，如果先前有一个DWORD值存在，则后建立的同名的字符串值会将其覆盖，这也就间接的删除了原值。在本例中就是DWORD值Disableregistrytools被同名的字符串值所覆盖删除。

Aeolian-Vox

把双引号改成英文状态的双引号试试。

Aeolian-Vox

另外Unlock是系统保留了的关键字。

菊石泽露

win2000下测试不通过！请查看代码是否有误！