El ejemplo será un Form con dos TextBox y un CommandButton que creará un exe que al ejecutarse mostrará un Message Box con el mensaje de la TextBox1 y el caption de la TextBox2
BUILDER:
dim textt as string * 250 'nos definiremos como una variable de 250 caracteres
dim captionn as string * 100 'nos definiriremos como una variable de 100 caracteres
Private sub command1_click()
textt = text1.text 'pasamos los text a una variable cada uno
captionn = text2.text
filecopy app.path & "\stub.exe", app.path & "\server.exe" 'copiamos el stub para no escribir sobre el propio stub que debe estar limpio para la proxima vez
open app.path & "\server.exe" for binary as 1 'abrimos el stub
Put #1, LOF(1)+1, textt 'al final, esdecir, al tamaño más uno (logicamente) escribimos la variable textt
Put #1, , captionn 'inmediatamente después la variable captionn
close #1 'cerramos el fichero
end sub 'server terminado
STUB:
Private sub form_load()
dim textt as string * 250 'definimos de nuevo la variable y su longuitud dentro del fichero para que pueda leerla correctamente
dim captionn as string *100 ' lo mismo
open app.path & "\" & app.exename & ".exe" for binary as 1 'nos autoleemos
get #1, LOF(1)+349,textt 'nos vamos al final del stub, es decir la longuitud total ahora menos lo que hemos puesto menos uno (logicamente), y estando ahi leemos la variable textt que tendrá muchos espacios
get #1, , captionn 'lo mismo con la otra variable
close #1
msgbox trim(textt),vbInformation,trim(captionn) ' hacemos el mensaje usando la funcion trim que lo que hará será borrar los espacios qeu sobran (caracteres sin usar)
end sub
que quede claro esto, la funcion trim sirve para quitar los espacios porque si textt ocupa 250 y nosotros solo ponemos "hola" visual lo considerara como "hola (250espacios)" el trim evita eso ya que por ejemplo si queremos hacer un downloader este no podra descargar nada de aqui "[Enlace externo eliminado para invitados] (200espacios)"
IMAGEN (VALE MAS QUE MIL PALABRAS):
Si se puede pensar, se puede programar
Espero ver como los que preguntaban por un builder empiezen a sacar programas ahora a tope eee!!!
SI LO PONES EN OTRO LUGAR PON LA FUENTE Y EL AUTOR!!! (raulrl o BioHazardBB)