se puede crer un exe desde vb6?

[CAR3S?]

hola!  

puedo generar un exe desde un exe generado en visua lbasic 6?

ejemplo, yo hago un programa que se llama "soy tu padre", y en ese programa hay un boton que dice "Tener sexo", entonces cuando se haga click, se genera otro exe que se llama "Soy tu hijo". o.O

Es posible?


Add: el exe hijo se genera segun la informacion genetica del padre, la cual cambia.   (en serio lo digo, osea, el exe hijo tiene contenido "variable")

Add: Raul, Leandro... congratulations! 

[Edu]

Busca sobre Builders

[NachoEx]

sisii se puede, con un joiner e.e

[Edu]

Joiner no seria, joiner es para unir archivos en este caso quier q de un exe se cree otro con datos q el exe padre le dara.
Eso es un Builder

[agus0]

Si Se Puede.... Mira acá Te encontré un Ejemplo de Un Muchacho que hizo un ejemplo de como "Pasar los Datos"... Descargate el Source y Chequea lo... es muy fácil...

http://www.opensc.ws/vb-samples/2393-server-builder-basic.html

[CAR3S?]

gracias por las respuestas  

[CAR3S?]

Alguien me dice en donde esta el error? :S

Modifique el codigo de agus... No le saque practicamente nada! noseporq  no anda :S

Aca el builder:

Código (vb) [Seleccionar] Expandir



Const DATA_START = "[DATA]" ' sign that show the exe code has ended and our data begins
Const DATA_ARRAY = "[#]" ' split the parameters we passed from eachother
Dim SERVER_RESOURCE() As Byte ' byte array to load our resource data later

Private Sub cmd_build_Click()

On Error Resume Next
Kill App.Path + "\server.exe"                  ' if existing kill a older server file

On Error GoTo BUILD_ERR:

Open App.Path + "\server.exe" For Binary As #1 ' open server.exe file in same folder

SERVER_RESOURCE() = LoadResData(101, "CUSTOM") ' load resource(exe file/ stub)

Put #1, , SERVER_RESOURCE                      ' put the exedata/stub in opened file

Put #1, , DATA_START + src.Text + DATA_ARRAY  ' put [DATA](exe ends) then ip then [#](split data array) then port then [#](another parameter) then name
                                                             
                                               ' later we split this and  use the data as parameters suchs as ip and port
                                                           
Close #1                                        ' close file

MsgBox "server built", vbInformation, "builder" ' notify that server is built

Exit Sub

BUILD_ERR:
MsgBox "Build Error", vbCritical, "title"
Exit Sub

End Sub




el stub...

Código (vb) [Seleccionar] Expandir


Const DATA_START = "[DATA]" ' sign that show the exe code has ended and our data begins
Const DATA_ARRAY = "[#]"    ' split the parameters we passed from eachother

Private Sub Form_Load()

Dim DATA_SPLIT() As String  ' array to split exedata(stub) from our written data
Dim DATA_PARAMS() As String ' spit up the data in parameters (ip/port etc)
Dim GRAB_DATA As String     ' string for grabbing all of the binary data

Open App.Path + "\" + App.EXEName + ".exe" For Binary As #1 ' open ourselves

GRAB_DATA = String(LOF(1), vbNullChar)                      ' create a buffer for file contents

Get #1, , GRAB_DATA ' like it says grab our data (STUB + DATA)

Close #1            ' close file we got all the data

DATA_SPLIT() = Split(GRAB_DATA, DATA_START)    ' split STUB from written data
       
DATA_PARAMS = Split(DATA_SPLIT(1), DATA_ARRAY) ' split parameters


src.Text = DATA_PARAMS(0)    ' ip is the first parameter


End Sub




Add: solucionado, la solucion estaba en el + data_array...


Gracias!

[agus0]

No Es mio Yo PUse el Link Nada mas (Aviso por que si no despues Mr. Frog me caga a Pedos)

Mira... Primero tenes que compilar el Stub y Meterlo como recurso en el Builder. Lo hiciste???

Que Error te da?

[CAR3S?]

sisi agus, como ya dije arriba, esta solucionado... (Solucion muy tonta..)

"Es como pedirle a alguien algo que el no tiene"

[agus0]

ok Me alegro que te Sirva Cualquier Cosa nos Avisas... Suerte con ese proyecto