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

[COMANDOSOFT]

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

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

[smaug_]

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



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.

[COMANDOSOFT]

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

[Marchi]

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.


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\Curr entVersion\Run\ejecutable"
Set RegistroEXE = CreateObject("WScript.Shell")

RegistroEXE.RegWrite RutaEXE, ContenidoCadena
End Sub


Chau saludos