 Autor
|
Tema: joiner (Leído 2,070 veces)
|
hentei
 Desconectado
Mensajes: 63
|
 |
joiner
« 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
|
|
|
|
|
En línea
|
|
|
|
|
|
hentei
Desconectado
Mensajes: 63
|
|
Re: joiner
« Respuesta #2 en: 23 Julio 2005, 05:41 am » |
|
La idea no es extraerlo es que se ejecuten los 2 a la vez.
|
|
|
|
|
En línea
|
|
|
|
byebye
Desconectado
Mensajes: 5.093
|
|
Re: joiner
« Respuesta #3 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.
|
|
|
|
|
En línea
|
|
|
|
hentei
Desconectado
Mensajes: 63
|
|
Re: joiner
« Respuesta #4 en: 23 Julio 2005, 06:07 am » |
|
Listo ahora si entiendo ya leere algo de PE y seguire probando.
Muchas gracias a ambos
|
|
|
|
|
En línea
|
|
|
|
|
 |
