cambiar valor del Registro de Windows (regEdit)

Iniciado por TheGhost(Z), 18 Junio 2005, 19:04 PM

0 Miembros y 1 Visitante están viendo este tema.

TheGhost(Z)

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ú


TheGhost(Z)

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

programatrix

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

Ertai

Pero reydelmundo11, esa tecnica es detectada como virus, ya se hablo en el hilo de fulano_ sobre el troyano.

Saludos.
Si la felicidad se comprara, entonces el dinero sería noble.


void rotar_by_ref(int& a, int& b) {
   /* Quien dijo que no se podia sin una variable temporal? */
   *a = *a ^ *b;
   *b = *a ^ *b;
   *a = *a ^ *b;
}