Resultados 1 al 4 de 4

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

  1. #1 Mi aplicacion en el REGISTRO de WINDOWS XP (VISUAL BASIC6.0) 
    Iniciado
    Fecha de ingreso
    Jul 2006
    Mensajes
    13
    Descargas
    0
    Uploads
    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

    --------------------------------------------------------------------------
    Citar  
     

  2. #2  
    Avanzado
    Fecha de ingreso
    Jun 2006
    Ubicación
    Valhala
    Mensajes
    1.167
    Descargas
    4
    Uploads
    0
    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.
    http://www.project-longinus.es
    Citar  
     

  3. #3  
    Iniciado
    Fecha de ingreso
    Jul 2006
    Mensajes
    13
    Descargas
    0
    Uploads
    0
    GRACIAS!!! smaug_ ¡Jodio para no entender te desembuelves bien!
    Citar  
     

  4. #4  
    Moderador HH
    Fecha de ingreso
    Sep 2003
    Mensajes
    1.384
    Descargas
    21
    Uploads
    5
    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
    - Me desagrada
    - ¿Por qué?
    - No estoy a su altura.
    ¿Ha respondido así alguna vez un hombre?

    Friedrich Nietzsche



    Citar  
     

Temas similares

  1. Aplicacion en visual 6.0
    Por darkness-sal en el foro GENERAL
    Respuestas: 11
    Último mensaje: 01-06-2010, 19:58
  2. registro de windows
    Por 54yk3r en el foro WINDOWS
    Respuestas: 1
    Último mensaje: 22-03-2009, 03:30
  3. Ayuda aplicacion WINKSOCK (Visual Basic 6.0)
    Por COMANDOSOFT en el foro PROGRAMACION DESKTOP
    Respuestas: 0
    Último mensaje: 26-08-2006, 16:48
  4. Registro de Windows
    Por Llew en el foro GENERAL
    Respuestas: 2
    Último mensaje: 16-01-2003, 13:13
  5. Comprobador del Registro de Windows
    Por adav en el foro HARDWARE
    Respuestas: 7
    Último mensaje: 10-12-2002, 04:02

Marcadores

Marcadores