Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

16 - Registrar el ejecutable para que inicie con Windows mediante Windows Scripting Host

Este simple ejemplo muestra como podemos poner el ejecutable, es decir la ruta, en el registro de windows para que inicie conjuntamente cuando arranque el sistema.

Si bien el acceso al registro es mas eficiente mediante las funciones Api relacionadas al registro, con Windows Scripting host podemos hacerlo con pocas líneas de código

El método para grabar la entrada en la rama:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\

..se llama RegWrite .

Este método tiene 3 parámetros, el primero es un String con el nombre de la rama del registro, el segundo es el valor a grabar, en este caso la ruta del ejecutable de nuestro proyecto, y el tercero es un parámetro que indica el tipo de dato, es decir un String, un Entero Dword, un dato binario.

En este caso es opcional porque grabamos un String, pero si intentamos grabar un dato que no coincide, se producirá un error de tipo MistMatch, es decir que no coinciden los tipos.

Colocar 2 Commandbutton. El Command1 graba la entrada en el registro y el Command2 la elimina

Nota: Agregar la referencia a Windows Script Host ObjectModel desde el menú referencias de visual basic:

vista de la ventana de referencias de visual basic para poder incluir al proyecto WSH

Código fuente en un formulario

Option Explicit '*************************************************************************** '* Controles : Agregar un Commnad1 ( graba ) y un Command2 ( Elimina ) '* Referencias : Windows Scripting Host Object Model '*************************************************************************** 'Constante de la rama del registro donde están los paths de las aplicaciones _ que inician con el sistema operativo Const RAMA_WINDOWS_RUN As String = "HKEY_LOCAL_MACHINE\SOFTWARE\" & _ "Microsoft\Windows\CurrentVersion\Run\" 'Variable de objeto para poder usar Windows Scripting Host Dim o_Registro As WshShell Private Sub Command1_Click() ' Grabamos la clave con el método RegWrite Call o_Registro.RegWrite(RAMA_WINDOWS_RUN & App.EXEName, _ App.Path & "\" & App.EXEName & ".exe") Call Habilitar_Botones End Sub Private Sub Command2_Click() 'Borramos la clave con el método RegDelete o_Registro.RegDelete (RAMA_WINDOWS_RUN & App.EXEName) Habilitar_Botones End Sub Private Sub Form_Load() 'Creamos e instanciamos una variable para poder usar _ las funciones de windows SH Set o_Registro = New WshShell Command1.Caption = " Grabar ruta " Command2.Caption = " Eliminar Ruta " Command2.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) 'Eliminamos la referencia creada If Not o_Registro Is Nothing Then Set o_Registro = Nothing End If End Sub Private Sub Habilitar_Botones() Command2.Enabled = Not Command2.Enabled Command1.Enabled = Not Command1.Enabled End Sub

Recursos VB 6.0 - Enlaces relacionados

Ejemplo similar a este pero usando el Api

Recursos VB.NET - enlaces relacionados

Clase Registry de .NET para establecer el programa al iniciar el sistema

Buscar en Recursos vb