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! 

sisii se puede, con un joiner e.e

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

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:

 
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...

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!

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

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