代码如下：

Dim regOpen As Long
Dim regRead As Long
Dim regValue As String
Dim regValuesize As Long
regValue = Space(300)
regValuesize = Len(regValue) - 1
Dim regHandle As Long
regOpen = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "SOFTWARE\\zcloseie", 0, KEY_ALL_ACCESS, regHandle)
If regOpen = ERROR_SUCCESS Then
regRead = RegQueryValueEx(regHandle, "word1", 0, REG_SZ, regValue, regValuesize)
If regRead = ERROR_SUCCESS Then MsgBox regValue
End If
RegCloseKey (regHandle)

我已经在注册表里建立了相应的值：
如下：


希望各位大侠给条明路、、在这里先谢谢大家了！

常量都定义了吗?

定义了
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ = 1
Const ERROR_SUCCESS = 0&
Const STANDARD_RIGHTS_ALL = &H1F0000
Const KEY_QUERY_VALUE = &H1
Const KEY_SET_VALUE = &H2
Const KEY_CREATE_SUB_KEY = &H4
Const KEY_ENUMERATE_SUB_KEYS = &H8
Const KEY_NOTIFY = &H10
Const KEY_CREATE_LINK = &H20
Const SYNCHRONIZE = &H100000
Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

希望高手能来帮忙啊。。

非要用API么
用wscirpt更简单 而且方便快捷

额。。。wscript我会用。。就是想用API呢，，，，能给说说么大哥

PM我,,我给你我写的注册表查看器源码,,
heihei~~