vb6 :访问注册表值

Question

我正在编写一个简单的vb6按钮来测试注册表值的访问。

我有以下几点：

Private Function registry_read(key_path, key_name) as variant

Dim registry as object
set registry = CreateObject("WScript.shell")
registry_read = registry.regread(key_path & key_name)
End function 

Private Sub Command1_Click()
MsgBox registry_read("HKEY_LOCAL_MACHINE\SOFTWARE\PROCESS\frmMain_Values\", "Version")
end Sub

我有项目菜单->引用，并选择Microsoft WMI脚本V1.1库和Windows脚本宿主对象模型引用

然而，我的msgbox仍然是空白的。我检查了注册表路径，它是正确的。有什么想法吗？

提前谢谢。

Answer 1

在开发时，您需要注释掉“on error resume next”这一行。如果发生错误，您将无法查看详细信息。它可以是not found或access denied等。

此外，有两种方法可以引用对象。早期绑定即Dim rs as new adobdb.recordset和后期绑定set rs = CreateObject("Adodb.recordset")。第一个方法(早期绑定)强制您声明一个引用，而第二个方法(后期)则不会。这两种http://word.mvps.org/faqs/interdev/earlyvslatebinding.htm都有优点和缺点(例如早期绑定更快，提供了智能感知，更容易调试等)

Answer 2

@bugtussle虽然您的语句是正确的，但wqw的语句也是正确的。是否使用New关键字或CreateObject实际上与对象是早期绑定还是后期绑定没有任何关系。重要的是您是否使用注册类型声明对象变量。我相信你在你的文章中正确地解释了这一点。

我还想提一下，你的文章写得很好，有很好的信息，但IMHO也包含一些小错误。您在文章中所说的“双界面”绑定通常被称为"vTable“或”非常早期“的绑定。VB6在可能的情况下支持vTable绑定。

现在，正如您所说，成为COM类的唯一要求是该类必须实现iUnknown。“双重接口”只是指同时实现iUnknown和iDispatch的COM类:支持后期绑定的COM类必须实现后者。VB不直接支持不实现iDispatch的COM对象(有些COM类不支持后期绑定，有些则不支持，这在VB中显然是有问题的)；换句话说，VB只支持实现双重接口的COM类。(但是，使用SendMessage的GETOLEINTERFACE消息有一些技巧可以绕过该要求。)

而且，并不是完全绕过了iUnknown，而是绕过了iUnknown.QueryInterface()，而是直接转到了虚拟表。当然，iUnknown.AddRef()仍然会被调用。

关于New与CreateObject: VB对在项目中定义的类有一个优化策略，这些类在项目中使用New关键字实例化。但是，如果您在项目上下文之外使用类，则两者之间也有重要的区别；此页面http://msdn.microsoft.com/en-us/library/Aa241758在总结它们方面做得很好。

我也很好奇地想知道操作得到了什么错误。:)