Manejo basico del registro.

Iniciado por byebye, 1 Noviembre 2003, 01:32 AM

0 Miembros y 2 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1 2 3
Acciones del Usuario

byebye

1 Noviembre 2003, 01:32 AM
Manejo basico del registro

Como muchas veces se preguntan como leer/borrar/crear valores del registro voy a explicar lo basico con pequeños ejemplos para que se entienda mejor.Antes de escribir/leer cualquier dato se tiene que conseguir un manejador (handle), RegOpenKey nos da este manejador.

LONG RegOpenKey(
   HKEY hKey,   
   LPCTSTR lpSubKey,   
   PHKEY phkResult );

hKey: identifica que sección queremos abrir, estos valores son:
HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS

lpSubKey: sub clave. es decir si queremos abrir  HKEY_LOCAL_MACHINE/SOFTWARE/prueba, lpSubKey seria  SOFTWARE/Prueba.

phkResult: aqui se nos da el manejador para hacer referencia siempre a la clave abierta, hasta que la cerremos.

si la clave no existe se tiene que crear (como es logico jeje) con RegCreateKey, los parametros son igual que en la funcion anterior. un ejemplo podria ser esto:
Código [Seleccionar]

Function crear() As Long
'si existe devuleve 1 de lo contrario 0
RegOpenKey HKEY_LOCAL_MACHINE, prueba, h
If h Then
crear = 1
Else
RegCreateKey HKEY_LOCAL_MACHINE, prueba, h
crear = 0
End If
End Function


como ya dice el comentario si existe devuleve 1 si no existe devuelve 0, que en este caso da lo mismo pq si no existe la crea y si existe la abre, no se toma el valor de la funcion para si existe hacer una cosa u otra pero bueno creo que se entiende. HKEY_LOCAL_MACHINE es una constante y prueba otra para hacer los ejemplos mas sencillos. en h tendremos el manejador.

Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const prueba = "SOFTWARE\Pruebas"      'esta es la clave sobre la que se escribira etc

Escribir un valor alfanumerico con RegSetValueEx:

LONG RegSetValueEx(
   HKEY hKey,   
   LPCTSTR lpValueName,   
   DWORD Reserved,   
   DWORD dwType,   
   CONST BYTE *lpData,   
   DWORD cbData  );

hKey: sera el manejador, en este caso el que tenemos en h
lpValueName: es el nombre del valor
Reserved: a 0
dwType: tipo de dato que se escribe/lee, para ver los diferentes tipos de datos darle un ojo a la ayuda.
lpData: los datos que queremos escribir.
cbData: el tamaño de los datos

una vez claros los parametros el ejemplo quedaria de esta forma:
Código [Seleccionar]

Function valorS(nombre As String, valor As String) As Long
valorS = RegSetValueEx(h, nombre, 0, REG_SZ, ByVal valor, Len(valor))
End Function


nombre sera el nombre que contendra el valor, es decir si tenemos abierto HKEY_LOCAL_MACHINE/SOFTWARE/prueba y queremos escribir el valor "saludo" y que este contenga "hola", llamaremos a la funcion de esta forma. valorS("saludo","hola"). si la funcion devuleve 0 es que no hay ningun error, si no es 0 esta claro lo que pasa.

Los otros tipos de datos no voy a explicarlos, ya que es mas de lo mismo. con dar un ojo a la ayuda se aclaran las dudas y si no se preguntan en el foro.


Leer un dato alfanumerico con RegQueryValueEx:

LONG RegQueryValueEx(
   HKEY hKey,   
   LPTSTR lpValueName,   
   LPDWORD lpReserved,   
   LPDWORD lpType,   
   LPBYTE lpData,   
   LPDWORD lpcbData);

creo que no hace falta explicar los parametros, es lo msimo que la funcion anterior. el unico cambio es que antes lpData era lo que queriamos escribir y ahora sera el valor leido. ejemplo:

Código [Seleccionar]

Function leerS(nombre As String) As Long
buffer = String(256, 0)
leerS = RegQueryValueEx(h, nombre, 0, REG_SZ, ByVal buffer, Len(buffer))
End Function


pues ya tenemos en buffer el contenido de la clave que queremos leer, el retorno es lo mismo que antes 0 si no hay error.

Borrar un valor con RegDeleteValue:

LONG RegDeleteValue(
   HKEY hKey,   
   LPCTSTR lpValueName);

Los parametros creo que estan claros, hKey ya esta mas que explicado y lpValueName sera el nombre del valor a borrar

Código [Seleccionar]

Function borrarV(nombre As String) As Integer
borrarV = RegDeleteValue(h, nombre)
End Function


si queremos borrar el valor "saludo" que contenia "hola" usaremos la funcion de esta forma. borrarV("saludo").

Borrar la clave completamente con RegDeleteKey:

LONG RegDeleteKey(
   HKEY hKey,
   LPCTSTR lpSubKey);

Aqui no hay mucho mas que explicar, igual que al crearla nos pedia una sub clave ahora nos la pide para borrarla, siendo en este caso "prueba". ejemplo:

Código [Seleccionar]

Function borrarC(nombre As String) As Long
RegOpenKey HKEY_LOCAL_MACHINE, "SOFTWARE", h
borrarC = RegDeleteKey(h, nombre)
End Function


ahora se abre simplemente "SOFTWARE" sin "prueba" pq va a ser esta la que borremos y tendremos que pasarla como sub clave.

despues de leer/escribir o lo que sea se cierra el manejador con RegCloseKey:

LONG RegCloseKey(
   HKEY hKey);

  y los paremtros no hace falta explicarlos. esta todo separado en pequeñas funciones para que se entienda bien y no hacer una solo funcion y marear la perdiz. todas las funciones estan probadas ya que antes de ponerme a escribir esto las he tenido que hacer y funcionan bien. si hay algun error duda o lo que sea pues para eso esta el foro.

constantes y demas usadas en los ejemplos:

Código [Seleccionar]

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public 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         ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const prueba = "SOFTWARE\Pruebas"
Public Const REG_SZ = 1

ø:|The_hacker|:ø

#1
3 Diciembre 2003, 15:23 PM
 ;D Cuando reproduzco los ejemplos con HKEY_LOCAL_MACHINE sirve perfectamente pero cuando quiero cambiar de clave por ejemplo por HKEY_CURRENT_USER no hace nada en el registro,

¿HKEY_CURRENT_USER tambien es una constante?

De ser así como quedaría?

Public Const HKEY_CURRENT_USER = ?

... HKEY_CLASSES_ROOT = ?

... HKEY_USERS = ?

No se como ya le busqué en la yuda y no encuentro como.... ;D Saludos
..Empieza por hacer lo necesario, luego lo que es posible, y de pronto te encontrarás haciendo lo imposible..|:ø:|The_hacker|:ø:|

byebye

#2
3 Diciembre 2003, 15:32 PM
HKEY_CURRENT_USER = 80000001h, las constantes puedes verlas desde el propio vb.

ø:|The_hacker|:ø

#3
3 Diciembre 2003, 15:47 PM
OK ;D Mientras tanto ya puedo trabajar con HKEY_CURRENT_USER Gracias..
..Empieza por hacer lo necesario, luego lo que es posible, y de pronto te encontrarás haciendo lo imposible..|:ø:|The_hacker|:ø:|

Ruiz

#4
3 Diciembre 2003, 15:55 PM
Inportante informacion del registro,  ;D Salu2 al informante
Atte
Ruiz  8)
male sit tibi tenebrarum rex, ab initio ad fidem sacra ultio cruenta pugna et epicus furor contra mali discipulos. ad perpetuam gloriam lucis furor ira tenax contra iniuriam et ruinam rabies ira tenax Male sit tibi tenebrarum rex cruentus rex

ø:|The_hacker|:ø

#5
5 Diciembre 2003, 16:41 PM
Citar... nombre sera el nombre que contendra el valor, es decir si tenemos abierto HKEY_LOCAL_MACHINE/SOFTWARE/prueba y queremos escribir el valor "saludo" y que este contenga "hola", llamaremos a la funcion de esta forma. valorS("saludo","hola"). si la funcion devuleve 0 es que no hay ningun error, si no es 0 esta claro lo que pasa.

Yo he intentado llamar a la función así:

Private Sub Command1_Click()
      valorS("saludo","hola")
End Sub

Pero me marca error de compilación.

Entonces lo he puesto así:

Private Sub Command1_Click()
      valorS("saludo","hola") As Long
End Sub

Ya no me marca error de compilación; Pero ahora me marca que no se puede ejecutar esa instrucción fuera del bloque type....

No se a que se deba pero no he podido llamar a la función "valorS" con los datos ("saludo","hola") ...

A ver si me pueden ayudar..gracias. ;D


..Empieza por hacer lo necesario, luego lo que es posible, y de pronto te encontrarás haciendo lo imposible..|:ø:|The_hacker|:ø:|

byebye

#6
5 Diciembre 2003, 20:41 PM
lo primero. no puedes llamar a una funcion y definirle un valor pq ya esta definido. esa chapuza de llamar funcion(parametros) as dato vamos no se donde lo has leido pero que se te quite de la cabeza. por otro lado si te marca error es pq si estas usando tal cual esto: funcion(parametro) seria para recojer su valor por si ocurriesen errores. es decir variable=funcion(parametro) if varibale=todo_correcto then xaxi piruli ¿oki?. si no es asi llamala funcion parametro o call funcion(parametros).

Ferchu

#7
21 Diciembre 2003, 16:33 PM
Y el codigo para autocopiar un program a una direccion especifica?

byebye

#8
22 Diciembre 2003, 14:50 PM
¿a que huelen las nubes?. no le veo relacion con este tema, si tienes alguna duda abre un nuevo tema.

4lpha

#9
27 Enero 2004, 15:44 PM
Ola, ia q veo q ablais del registro, pa no abrir otro tema continuo en este  :D

Yo quiero cambiar el valor de un valor dword del registro, lo quiero cambiar de 0 a 1, como lo ago en visual basic (es del lenguaje q ablais no)?
es cambiar como e dixo, el valor dword hexadecimal de 1 a 0.

Salu2 y gracias
;)
Imprimir
Ir Arriba Páginas1 2 3
Acciones del Usuario