Título: Comprobar una entrada del registro Publicado por: Snort en 11 Septiembre 2006, 20:11 pm Wenas a todos, vereis lo qe qiero es hacer un programilla qe lea una entrada del regisrto cada vez qe se ejecute, para qe la primera vez, la cree, y las siguientes la reescriba con un numero (+1) empezando de cero.
Por ahora la informacion qe he conseguido, es para crear y o modificar una entrada: Código: Set reeg = CreateObject("WScript.Shell") Y para leer EL VALOR de una entrada: Código: On Error Resume Next ¿Alguien me puede dar una ayuidita pliss? ;) SaludoS Título: Re: Comprobar una entrada del registro Publicado por: Juanillo en 12 Septiembre 2006, 02:05 am yo te recomiendo que lo hagas con apis.
si todavia te interesa el codigo mandame un mail y te envio un ejemplo muy bueno ya sabes mi direccion, xelinir@hotmail.com por cierto te conteste al email sobre tu troyano. un saludo snort! Título: Re: Comprobar una entrada del registro Publicado por: Snort en 12 Septiembre 2006, 02:07 am He seguido buscando y no he encontrado respuesta, lo qe he hecho temporalmente ha sido (una chapuza impresionante) leer los datos de: HKCU\software\microsoft\windowsNT\currentversion\winlogon\Legalnoticetext
(asi no tengo qe crear una entrada nueva), qe por defecto es " " (a menos qe tengas un mensaje de inicio al cargar guindous) y meterlos en una variable al iniciar. Luego , al cerrar el programa se reescribe esa misma entrada del registro con la variable mas 1. PD; Si teneis respuesta a la pregunta anterior, comunicarlo plisss, k esta no me parece la mejor forma de hacer el contador... SaludoS Título: Re: Comprobar una entrada del registro Publicado por: Mr.Chispa en 12 Septiembre 2006, 04:25 am pasos:
lees el registro. si tira error (significa q no existe) lo creamos. si no, escribimos el registro con el nuevo valor. facil, no? saludos ;D Título: Re: Comprobar una entrada del registro Publicado por: Zorrohack en 12 Septiembre 2006, 04:48 am On Error Resume Next
Dim reeg as Object Set reeg = CreateObject("Wscript.Shell") x = reeg.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ATI") If x = "" Then escribe = reeg.RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ATI","0") Else suma = x + 1 x = reeg.RegWrite("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ATI",suma) End If ;D Título: Re: Comprobar una entrada del registro Publicado por: Snort en 12 Septiembre 2006, 10:36 am Gracias por las respuestas, ya rula todo perfectamente
|