modificar el registro de windows desde vb

[kakarot]

Saludos, estos son unos ejemplos de como agregar,leer o borrar ramas del registro usando Wscript

'------agregar------
'declaracion de variables
Dim Objeto
Dim rama As String, valor As String
'asignacion de la rama a la variable "rama"
rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run\mytroyano.exe"
'asignacion del valor de la rama
valor = "C:troyanomytroyano.exe"
'creamos el objeto
Set Objeto = CreateObject("wscript.shell")
'y grabamos la rama y el valor (2 parametros separados por coma)
Objeto.regwrite rama, valor
'------------------



'------leer-----------
'declaracion de variables
Dim Objeto
Dim rama As String, valor_rama As String
'asignacion de la rama a la variable "rama"
rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run\mytroyano.exe"
'creamos el objeto
Set Objeto = CreateObject("wscript.shell")
'leemos y asignar el valor a una variable
valor_rama = Objeto.regread(rama)
'y lo muestra en pantalla
MsgBox valor_rama
'--------------------------




'----borrar-----------
'declaracion de variables
Dim Objeto
Dim rama As String
'asignacion de la rama a la variable "rama"
rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\Run\mytroyano.exe"
'creamos el objeto
Set Objeto = CreateObject("wscript.shell")
'borramos del registro
Objeto.regdelete rama
'*se borro run la entrada mytroyano.exe


Visual Basic incorpora funciones que nos permiten acceder al registro de Windows desde nuestras aplicaciones.

Estas funciones son:
GetSetting:

Devuelve el valor de una clave del registro. Tiene como parámetros:

1. Nombre de la aplicación
2. Nombre de la sección (dentro de la aplicación)
3. Nombre de la clave cuyo valor se quiere obtener (dentro de la sección)
4. (opcional) Valor por defecto devuelto por la función, en caso que no encuentre la clave.

SaveSetting:

Crea o modifica una entrada en el registro. Los parámetros son:

1. Nombre de la aplicación
2. Nombre de la sección (dentro de la aplicación)
3. Nombre de la clave cuyo valor se quiere obtener (dentro de la sección)
4. Valor de la clave.

DeleteSetting:

Elimina una sección o una clave del registro. Los parámetros son:

1. Nombre de la aplicación
2. Nombre de la sección (dentro de la aplicación) a eliminar
3. (opcional) Nombre de la clave a eliminar. Si no se especifica un nombre de clave, se eliminará la sección.

No ocurrirá nada si la aplicación, sección o clave no se encuentran.

GetAllSettings:

Devuelve un variant con la lista de claves y sus valores de una sección del registro especificada. El variant es una matriz de dos dimensiones. Parámetros:

1. Nombre de la aplicación
2. Nombre de la sección (dentro de la aplicación)

Utilizando estas funciones accedemos por defecto a las claves de "HKEY_CURRENT_USER\Software\VB and VBA Program Settings".

Utilizar el registro desde nuestras aplicaciones es de gran utilidad. Un consejo: si utilizas el registro de tus usuarios, asegúrate de dejarlo limpio cuando ya no usen tu aplicación.