Título: joiner Publicado por: hentei en 23 Julio 2005, 03:26 am Estoy tratando de hacer un joiner, pero tengo un problema con el codigo. Me une los dos archivos, se nota el cambio de tamaño en el archivo, pero solo se ejecuta uno el primero, en este caso pj64. Alguien puede ayudarme para que se ejecuten los 2.
Aca esta el codigo: Dim Buffer As String Dim Buffer2 As String Dim buffspace As Long Open "C:\pj64.exe" For Binary As #1 buffspace = LOF(1) Buffer = Space$(buffspace) Get #1, , Buffer Close #1 Open "C:\vb.exe" For Binary As #1 buffspace = LOF(1) Buffer2 = Space$(buffspace) Get #1, , Buffer2 Close #1 Open "C:\out.exe" For Binary As #1 Put #1, , Buffer & Buffer2 Close #1 Título: Re: joiner Publicado por: Slasher-K en 23 Julio 2005, 03:40 am Podrias escribir en el primer archivo el offset del comienzo del otro (que seria el tamaño del primero) y el tamaño para asi poder extraerlo.
Saludos. Título: Re: joiner Publicado por: hentei en 23 Julio 2005, 05:41 am La idea no es extraerlo es que se ejecuten los 2 a la vez.
Título: Re: joiner Publicado por: byebye en 23 Julio 2005, 05:46 am eso no es posible, basicamente digamos que un joiner hace algo asi:
joiner - programa extractor - programa1 - programa2 bien, programa extractor es el encargado de extraer esos dos programas y ejecutarlos, que tu los pongas juntos en un archivo no quiere dec ir que los 2 van a ser ejecutados. los ejecutables se rigen por unas normas. lee sobre los archivos PE y entenderas que te digo. Título: Re: joiner Publicado por: hentei en 23 Julio 2005, 06:07 am Listo ahora si entiendo ya leere algo de PE y seguire probando.
Muchas gracias a ambos |