Autor
|
Tema: joiner (Leído 2,068 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
|
|
|
|
|
|