Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: TheGhost(Z) en 18 Junio 2005, 19:04 pm



Título: cambiar valor del Registro de Windows (regEdit)
Publicado por: TheGhost(Z) en 18 Junio 2005, 19:04 pm
Hola, a todos.

Me gustaría saber como desactivar el click derecho del escritorio, editando el registro de windows (regedit).

Esta es la clave: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"NoDispCPL"=dword:00000001

Quiero hacer este mismo procedimeinto, pero desde Visual Basic:  ;D

Solo, tengo problema con el tido DWORD

Miren aquí tengo un ejemplo, pero del tipo DATO, para que se ejecute un programa al iniciar windows, en este caso el Exel:

***** aquí las declaraciones generales *****
'Autor: TheGhost(Z)
'E-mail: jericangana@yahoo.es

Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001

' Permite Abrir, Ingresar y Cerrar una clave
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

******** aquí un command button *******
Private Sub Command1_Click()
Dim strString As String
 
 strString = "C:\Archivos de programa\Microsoft Office\Office\EXCEL.EXE"
 ' llamamos la funcion savestring
 SaveString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "excel", strString
 MsgBox ("Programa ingresado el registro run"), vbInformation
 End
End Sub

******** aquí la función SaveSrtring ********

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
    'Crea una nueva llave
    RegCreateKey hKey, strPath, Ret
    'salva el contenido de la llave
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
    'cierra la llave
    RegCloseKey Ret
End Sub


Porfavor. Si alguién me puede ayudar con el tipo de dato DWORD que necesito para la clave NoDispCPL que es para desactivar el click derecho y así no me esten tocando la configuracion del escritorio..  :'(

Saludos

Lima-Perú


Título: Re: cambiar valor del Registro de Windows (regEdit)
Publicado por: programatrix en 19 Junio 2005, 20:51 pm
Utiliza visual basic script.
http://foro.elhacker.net/index.php/topic,75028.0.html


Título: Re: cambiar valor del Registro de Windows (regEdit)
Publicado por: TheGhost(Z) en 20 Junio 2005, 19:14 pm
Gracias, esto de Visual Basic Scrip estuve estupendo.. lo active y funcionó correctamente..

Pero estaba interesado en hacer un progarama *.exe en Visual Basic 6.0, con unas opciones para cambair el registro del systema.. en un cierto tiempo.

Gracias..


Título: Re: cambiar valor del Registro de Windows (regEdit)
Publicado por: programatrix en 20 Junio 2005, 19:46 pm
Se puede hacer también .exe con los script, visual basic te lo lee como si fuera un script. Es como programar un script pero dentro de la función o del evento


Título: Re: cambiar valor del Registro de Windows (regEdit)
Publicado por: Ertai en 20 Junio 2005, 19:55 pm
Pero reydelmundo11, esa tecnica es detectada como virus, ya se hablo en el hilo de fulano_ sobre el troyano.

Saludos.