joiner

[hentei]

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

[Slasher-K]

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.

[hentei]

La idea no es extraerlo es que se ejecuten los 2 a la vez.

[byebye]

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.

[hentei]

Listo ahora si entiendo ya leere algo de PE y seguire probando.
Muchas gracias a ambos