VB的RegOpenKey函数的问题

Private Sub Command1_Click()
rel = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE", hKey)
Print rel
End Sub

模块：

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

为什么返回值都是6

HKEY_LOCAL_MACHINE需要赋值常数:
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Sub Command1_Click()
HKEY_LOCAL_MACHINE = &H80000002
rel = RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE", hKey)
Print rel
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息