Foro de elhacker.net

Veran, necesito leer los valores de este lugar

hkcu\software\microsoft\windows\currentversion\run

beno, de este y de otros mas, la cosa que cuando quiero leer todos los valores que contiene tira este error

No se pudo abrir la clave de registro ..... para leerla

a que se debera? que hago mal vamos

Private Function registro()
    Dim regedit As Object
    Dim claves As String
 
    Set regedit = CreateObject("Wscript.Shell")
 
    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")
 
    MsgBox claves
 
    Set regedit = Nothing
 
End Function
 

saludos

tenes que enumerarlas, podes con el metodo EnumKey de StdRegProv, eso es WMI, creo que con WSH no se puede enumerar...¿ igualmente porque no usas api's ? es lo mejor..

ok entonces uso apis, muchas gracias ^^

Yo personalmente lo hice con WMI. De todas formas:

Private Function registro()
    Dim regedit As Object
    Dim claves As String
 
    Set regedit = CreateObject("Wscript.Shell")
 
    claves = regedit.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run")
 
    MsgBox claves
 
    Set regedit = Nothing
 
End Function

Deberías crear un array, para poder leer cada una de los valores y controlarlo con un FOR. Piensa que dentro la clave HCU.../Run exísten varias valores y tu idea no era mala pero solo serviria si existíera un solo valor.