Mi aplicacion en el REGISTRO de WINDOWS XP (VISUAL BASIC6.0)

HOLA? He creado una aplicacion con VISUAL BASIC 6.0 lo que hace es meterte una clave nueva en el REGISTRO DE WINDOWS XP y cadea vez que arranca el PC se le abre automaticamente una pagina WEB.

MI PREGUNTA ES: Puedo hacer que en vez de ejecutar la pagina WEB me ejecute una aplicacion .EXE.......

Alojada en C:\MIS ARCHIVOS RECIBIDOS>

ACONTINUACION OS PONGO EL CODIGO:

--------------------------------------------------------------------------

Private Sub Command1_Click()
Dim RegistroWEB As Object
Dim RutaWEB As String
Dim CadenaNueva As String
Dim ContenidoCadena As String

ContenidoCadena = "http://www.mi_pagina_web.com"
CadenaNueva = "\WEB"
RutaWEB = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows " & _"\CurrentVersion\Run" & CadenaNueva

Set RegistroWEB = CreateObject("WScript.Shell")

RegistroWEB.RegWrite RutaWEB, ContenidoCadena
End Sub

--------------------------------------------------------------------------

Sis, simplemente añadiendo la ruta de la direccion del fichero a ejecutar. Supongo que seria asi:

Código:

---

Private Sub Command1_Click()
Dim RegistroEXE As Object
Dim RutaEXE As String
Dim CadenaNueva As String
Dim ContenidoCadena As String

ContenidoCadena = "c:\mi carpeta\mi.exe"
CadenaNueva = "\unEjecutable"
RutaWEB = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows" & _"\CurrentVersion\Run" & CadenaNueva

Set RegistroEXE = CreateObject("WScript.Shell")

RegistroEXE.RegWrite RutaEXE, ContenidoCadena
End Sub

---

Asi de simple, presupongo que mi codigo esta bien, es copy&paste del tuyo, ya que yo no tengo mucha idea de VB. Pero basicamente seria esto. Yo he metido ejecutables justo en ese registro pero a mano.

GRACIAS!!! smaug_ ¡Jodio para no entender te desembuelves bien!

Esto es lo mismo pero usando solo dos variables, una para la ruta del registro y otra para la ruta del archivo.
Es igual que como lo habias hecho pero cambiando la ruta.
Tambien lo podes hacer con apis.

Código:

---

Private Sub Command1_Click()
Dim RegistroEXE As Object
Dim ContenidoCadena As String, RutaWeb as string

ContenidoCadena = "c:\mi carpeta\mi.exe"
RutaWeb = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ejecutable"
Set RegistroEXE = CreateObject("WScript.Shell")

RegistroEXE.RegWrite RutaEXE, ContenidoCadena
End Sub

---

Chau saludos