Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: bautistasbr en 25 Junio 2006, 22:07 PM

Título: problema con regdelete
Publicado por: bautistasbr en 25 Junio 2006, 22:07 PM
Ola amigos,tengo problemas con el regdelete.Mi codigo es este

RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion \Run\ley", "C:\WINDOWS\system32\ley.exe"

no se porque,pero da error.

Algun consejo?
Título: Re: problema con regdelete
Publicado por: Robokop en 26 Junio 2006, 00:38 AM

    Set variable = CreateObject("WScript.Shell")
variable.RegDelete "HKEY_LOCAL_MACHINE\Software\Blabla\blalblabla\"

No te funciona porque en primera necesitas un objeto para poderlo utilizar y en segunda porque hay un espacio entre currentversion y el "\"

saludos
Título: Re: problema con regdelete
Publicado por: bautistasbr en 26 Junio 2006, 11:23 AM
sigue sin funcionarme,e correjido lo del espacio y sigue =
Título: Re: problema con regdelete
Publicado por: SheKeL_C$ en 26 Junio 2006, 11:32 AM
Kizas t da error xq esa clave no existe..primero compruebala, yo utilizo este modulo t pongo aqui el enlace, dentro ay un ejemplo

http://www.elguille.info/vb/utilidades/ExeEnCurrentVersionRun.htm





Título: Re: problema con regdelete
Publicado por: Robokop en 26 Junio 2006, 19:36 PM
como que no te funciona ....
si haces un copy&paste del codigo solamente cambias los valores de las claves te tiene que funcionar.

Aqui hay otro metodo con apis
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long

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

If OSRegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE", hKey) =
ERROR_SUCCESS Then
If OSRegDeleteKey(hKey, "MiClave") = ERROR_SUCCESS then
             MsgBox "Clave borrada"
End If
End If