注册表的根键有固定的Long值，先在Option Explicit节中声明：

Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002

哦 对了 是声明了

请问：

将 &H80000001...代入数组能行吗？

今上班 没法试 麻烦相告

去掉这一句之中的双引号：

KeyRootCont = Array(HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE)

有引号时，这个数组就成了字符型的而不是Long型的


Option Explicit

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

Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002

Private Sub Command1_Click()
Dim R, KeyRootCont, KeySubCont
Dim KeyRootIndex As Integer, KeySubIndex As Integer
Dim hKeyRoot As Long

KeyRootCont = Array(HKEY_CURRENT_USER, HKEY_LOCAL_MACHINE)
KeySubCont = Array("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run")

For KeyRootIndex = 0 To 1
    For KeySubIndex = 0 To 1
      R = RegOpenKey(KeyRootCont(KeyRootIndex), KeySubCont(KeySubIndex), hKeyRoot)
      Debug.Print R, hKeyRoot
    Next
Next

End Sub

我看行 非常感谢秋水

没办法 只能给你50分了...

明天回家再去试了