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. :xD :xD :xD :xD :xD :xD :xD :xD (en serio lo digo, osea, el exe hijo tiene contenido "variable")
Add: Raul, Leandro... congratulations! ;-)
Busca sobre Builders
sisii se puede, con un joiner e.e
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
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 (http://www.opensc.ws/vb-samples/2393-server-builder-basic.html)
gracias por las respuestas ;-)
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!
No Es mio Yo PUse el Link Nada mas :P (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?
sisi agus, como ya dije arriba, esta solucionado... (Solucion muy tonta..)
"Es como pedirle a alguien algo que el no tiene"
ok Me alegro que te Sirva Cualquier Cosa nos Avisas... Suerte con ese proyecto
PERO QUE *****! visual basic de ***** me tildo y no guarde el proyecto.... *****!
no es la primera vez q me pasa, encima tildo cuando estaba compilando el q estaba listo! era raro q me vaya tan bien...... :-\
esta la opcion de siempre que le des a f5 te pregunte si queres guardar. Es recomendable activarlo :P
ajja gracias raul, la voy a activar ;-) ;D
Otra pregunta...
Esto ya esta solucionado, pero...
ya tengo el archivo hijo, con toda su informacion...
ese archivo es INVISIBLE y nadie deberia ver lo que tiene, pero ¿y si creo un "Sistema vip", que poniendo un pin le muestre el contenido del hijo?
Creo que eso seria logica, pero estoy dormido ;D
Add: mmm, creo que eso deberia integrarse en el hijo... creo que ya se como hacer. :xD
Listo, ya esta hecho (:
De todas formas, si tan secreto tiene que ser, deberías investigar sobre Debuggers (como SoftIce o el Olly) porque puede ser sencillísima de saltar esa seguridad que sugieres con ese "sistema vip" con un PIN.
Un saludo
Cita de: CAR3S? en 5 Febrero 2011, 13:17 PM
Otra pregunta...
"Sistema vip"
HOLA!!!
Vip significa "Very important Person" no "Very important Program" XD.
Cita de: raul338 en 5 Febrero 2011, 04:43 AM
esta la opcion de siempre que le des a f5 te pregunte si queres guardar. Es recomendable activarlo :P
Yo nunca activaria esa funcion XD, muchas veces doy vuelta los proyectos y al final no funcionan :(. y cuando no encuentro el error directamente no guardo y vuelvo a abrir el viejo XD,.
GRACIAS POR LEER!!!