Foro de elhacker.net

hola, lo qe yo quero hacer es esto:
si existe una clave llamada "a"
msgbox "la clave existe "
si no existe
crearla

asi de simple, entonces el codigo que lke pongo e este:

On Error Resume Next
dim zonavirus
dim x
Set a = CreateObject("WScript.Shell")
X = a.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\funka")
If X = "c:\funka" Then
MsgBox "en esta pece ya se ejecuto el programa"
Else
crearclave
End If

private sub crearclave ()
Dim regedit As Object
Set regedit = CreateObject("Wscript.Shell")
regedit.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\funka", "c:\funka", "REG_SZ"
end sub

¿Qué es lo que tengo mal en el código?
lo ejecuto y me dice que no se puede leer la primera clave que puse...
gracias de antemano

La primer clave:

X = a.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\funka")

La segunda:

regedit.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\funka", "c:\funka", "REG_SZ"

Como vez no lees en el mismo lugar en el que escribes la clave, por eso te da errores...

ya lo arregle, y le puse la variable "a" que no habia declarado y me pasa lo mismo !!
pero me di cuenta que si le agrego un magico "on error resume next" me pasa a la otra linea  :o !! y me crea la clave !
pero me pregunto yo, no hay otra forma sin poner "on error resume next" ??? ??? ??? ???

Podrias mostrar la linea donde te salta el error ??

si le saco el on error resume next me salta en:
X = a.regRead
("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\funka")
me dice que no se puede abrir esa clave...oviamente, no se puede abrir ! entonces créala maldito windows !