Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Scratz en 28 Febrero 2007, 17:34 pm



Título: \"Clonar\" la aplicación.
Publicado por: Scratz en 28 Febrero 2007, 17:34 pm
Seguro que sólo leer el título ya me han entendido.
Hace un tiempo tenía un ejemplo de añadir un programa al startup (inicio de windows). Lo que hacía era guardar la aplicación (la abras desde donde la abras) a una carpeta (system32). Pues no se como se le llama a esto de \\\"clonar\\\" la aplicación, necesito que me lo digan para poder buscarlo en Google. O, si puede ser, poned un ejemplo ;-P
Gracias de antemano.
Salu2.


Título: Re: \\\"Clonar\\\" la aplicación.
Publicado por: Scratz en 28 Febrero 2007, 17:37 pm
Las barras al lado de las comillas son un error del foro, no las he puesto yo.


Título: Re: \"Clonar\" la aplicación.
Publicado por: <--v1c1ous--> en 1 Marzo 2007, 02:01 am
Citar
Open App.Path & \"\\\" & App.ExeName & \".exe\" For Binary Access Read As #1
Buffer = Space(LOF(1))
Get #1, , Buffer
Close #1

Open NewFile For Binary Access Write As #2
Put #2, , Buffer
Close #2

Citar
FileCopy Original, NuevoDestino

Las barras salen solas por poner comillas gracias al webproxy.



Título: Re: \\\\\\\"Clonar\\\\\\\" la aplicación.
Publicado por: Sancho.Mazorka en 1 Marzo 2007, 02:05 am
ehh creo que vos keres copiarlo...

Código:
Private Declare Function CopyFile Lib \\\"kernel32\\\" Alias \\\"CopyFileA\\\" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

CopyFile app.path & \\\"\\\\\\\" app.name & \\\".exe\\\", \\\"C:\\\\Windows\\\\\\\" & app.name & \\\".exe\\\", 0

eso lo copia a windows a tu programa


Sancho.Mazorka    :P


Título: Re: \\\\\\\\\\\\\\\"Clonar\\\\\\\\\\\\\\\" la aplicación.
Publicado por: Scratz en 1 Marzo 2007, 19:55 pm
ehh creo que vos keres copiarlo...

Código:
Private Declare Function CopyFile Lib \\\\\\\"kernel32\\\\\\\" Alias \\\\\\\"CopyFileA\\\\\\\" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

CopyFile app.path & \\\\\\\"\\\\\\\\\\\\\\\" app.name & \\\\\\\".exe\\\\\\\", \\\\\\\"C:\\\\\\\\Windows\\\\\\\\\\\\\\\" & app.name & \\\\\\\".exe\\\\\\\", 0

eso lo copia a windows a tu programa


Sancho.Mazorka    :P


Gracias a los dos. El código de Sancho fue el que me funcionó. Sólo que donde pone app.name tiene que ser app.EXEname y falta un & entre el primer \"\\\" y app.EXEname.
Gracias de nuevo, saludos.


Título: Re: \\\"Clonar\\\" la aplicación.
Publicado por: Sancho.Mazorka en 4 Marzo 2007, 10:32 am
Disculpa Scratz, es que hice el code aca y hace mucho que no toco VB porque me estoy dedicando a C/C++   :D
La API la copie, es medio dificil saberse una de memoria  :o


Sancho.Mazorka    :P