elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  problemas para saber si se creo una clave...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: problemas para saber si se creo una clave...  (Leído 1,733 veces)
USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
problemas para saber si se creo una clave...
« en: 10 Diciembre 2005, 18:14 pm »

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


En línea

Syphroot

Desconectado Desconectado

Mensajes: 268


All You Need To Do Is Follow The Worms


Ver Perfil WWW
Re: problemas para saber si se creo una clave...
« Respuesta #1 en: 10 Diciembre 2005, 19:44 pm »

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...



En línea

USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
Re: problemas para saber si se creo una clave...
« Respuesta #2 en: 11 Diciembre 2005, 00:08 am »

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" ??? ??? ??? ???
En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: problemas para saber si se creo una clave...
« Respuesta #3 en: 11 Diciembre 2005, 01:22 am »

Podrias mostrar la linea donde te salta el error ??
En línea

USUARIO_DE_SOFTWARE_LIBRE

Desconectado Desconectado

Mensajes: 274


Ver Perfil WWW
Re: problemas para saber si se creo una clave...
« Respuesta #4 en: 11 Diciembre 2005, 06:04 am »

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 !
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Clave para saber AV instalado? « 1 2 »
Análisis y Diseño de Malware
x64core 19 11,954 Último mensaje 17 Febrero 2012, 19:05 pm
por Иōҳ
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines