Regedit con opciones desde VB.NET

Abrir Regedit en la clave superior MiPC y no en la última clave visitada con Visual Basic .NET

Resumen del ejercicio

En los sistemas operativos Windows anteriores a XP, Regedit.exe abre siempre en la clave superior del árbol del registro (MiPC). En cambio, en Windows XP y posteriores, Regedit.exe abre en la última clave visitada. Esto es muy cómodo cuando se necesita abrir con frecuencia el registro para tareas de mantenimiento o configuración. Sin embargo, algunas personas pueden preferir el comportamiento anterior. En este ejercicio se diseña una aplicación para abrir Regedit.exe en MiPC y nos sirve para mostrar cómo acceder al registro de Windows desde Visual Basic .NET

Visual Basic Script

Marcial Carlés diseñó en el año 2002 un script de Visual Basic que hace ésto precisamente: abrir Regedit.exe al estilo Windows 95-98.

'Regedit-Mi PC.vbs
'Marcial Carlés - 2002
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegWrite "HKCUSoftwareMicrosoftWindowsCurrentVersionAppletsRegeditLastKey", "", "REG_SZ"
WSHShell.Run "Regedit"
Set WSHShell = Nothing

Este script me ha sido útil durante estos años hasta que me planteé su conversión a .NET.

Espacios de nombres

Es necesario importar 2 espacios de nombres:

'Recuperar o almacenar datos del registro mediante la clase Microsoft.Win32.Registry
Imports Microsoft.Win32
'Iniciar y detener procesos del sistema local
Imports System.Diagnostics


Funcionamiento del programa

Al ejecutar el programa, sin que se muestre el formulario de la aplicación, arranca Regedit.exe:

  • La última clave visitada en el registro se guarda en
    SoftwareMicrosoftWindowsCurrentVersionAppletsRegeditLastKey.
  • Si el valor de LastKey es “” o LastKey no existe, Regedit.exe abre en MiPC.
  • Para manipular claves del registro usamos objetos RegistryKey y sus métodos GetValue y SetValue.

Para abrir una clave, usamos un objeto RegistryKey y su método OpenSubKey al que le pasamos 2 parámetros:

  • cadena con la ruta a la clave que queremos abrir:
Const cadena As String = "SoftwareMicrosoftWindowsCurrentVersionAppletsRegedit"
Dim clave As RegistryKey = Registry.CurrentUser.OpenSubKey(cadena, True)
  • variable booleana para indicar si la clave es modificable (True) o no (False).

Para asignar el valor “” a LastKey usamos el método SetValue:

valor = ""
clave.SetValue("LastKey", valor)

Para iniciar una instancia del programa Regedit.exe usamos System.Diagnostics.Process.Start pasándole una cadena con el nombre del ejecutable:

System.Diagnostics.Process.Start("Regedit.exe")


Código principal

'al cargar el formulario
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
'no hace falta mostrar el formulario
Me.Visible = False
'pulsar ESC equivale a pulsar el botón btSalir
Me.CancelButton = Me.btSalir
'constante que almacena la cadena con la entrada del registro
'en la que se guarda la última clave visitada,
'la cadena no empieza por HKEY_CURRENT_USER
'porque al asignar un valor a la variable clave (RegistryKey)
'se usa el método OpenSubKey, pasado al campo
'superior apropiado (CurrentUser en este caso)
Const cadena As String = "SoftwareMicrosoftWindowsCurrentVersionAppletsRegedit"
'objeto RegistryKey que permite manipular valores del registro
'con sus métodos GetValue y SetValue,
'el método OpenSubKey tiene 2 parámetros:
'- una cadena con la ruta a la clave
'- variable booleana para indicar si la clave es modificable (True) o no (False)
Dim clave As RegistryKey = Registry.CurrentUser.OpenSubKey(cadena, True)
Dim valor As String
'
'para recuperar el valor de la clave LastKey
'valor = clave.GetValue("LastKey", "?").ToString
'
'para asignar un valor a la clave LastKey
valor = ""
clave.SetValue("LastKey", valor)
'comenzar un programa pasando una cadena con el nombre del ejecutable
System.Diagnostics.Process.Start("Regedit.exe")
Catch pollo As Exception
'si hay errores, mostrar un aviso
MessageBox.Show("¡ERROR! No ha sido posible ejecutar el programa.", "Regedit MiPC", MessageBoxButtons.OK, MessageBoxIcon.Error)
'siempre cerrar el formulario al final
Finally
Me.Close()
End Try
End Sub

2 respuestas a “Regedit con opciones desde VB.NET”

    1. Gracias por tu comentario, Pepín 2, sigo teniendo el collar de Curri de vigilante honorario (je, je).

Comentarios cerrados.