Crear un programa desde un programa XD

[ranslsad]

Hola Hendrix. gracias por tus respuestas... veo que me as dicho que debo buscar en google...
pero la verda no se me ocurre que buscar :S
Si me pudieras soplar alguna frasesilla

Bueno... desde ya Gracias...

Salu2

Ranslsad

[SheKeL_C$]

Esto t puede ayudar....

Crea un nuevo exe con este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()

Dim IPt                As String * 20          'es una varible con 10 espacios
Dim Ip                 As String               'es una variable
On Local Error Resume Next
me.caption = "SERVER"

Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1 'se abre a si mismo en binario
Seek (1), LOF(1) - 19                              'se va a la parte dinal de todo su codigo,
                                                    'pero ojo no al final del todo sino exactamente 19 posiciones
                                                    'antes de tocar el final
Get #1, , IPt                                      ' y asi lee lo ultimo q tiene, q sera la ip
Close #1                                           'se cierra el archivo

Ip = Trim(IPt)                                     'lo q ahora tendremos seria la ip seguida de unos espacios,
                                                    'por ejemplo "127.0.0.1         ", lo q se acre es quitar esos espacios
                                                    'y ponerlos en la variable ip
MsgBox Ip                                          'aqui t lo muestra en pantalla
End Sub


despues aces el exe en el escritorio ( x poner un ejemplo ).

Habres otro vb para crear otro exe y en este pones en el archivo *.res, el primer ejecutable q emos exo, una imagen vale mas q mil palabras. xD



y escribes este codigo:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim Code()              As Byte                 'aqui se almacenara el codigo del otro exe, demomento esta vacio
Dim IP                  As String * 20          'aqui la ip q pasaremos al otro exe,demomento esta vacio

IP = "69.69.69.69"                              'la ip e escrito esa pero si agregas el winsock lo remmplazarias x la ip
Me.Caption = "EDITOR"                           'esto lo pongo pa q sepas q es el editor
Code = LoadResData(101, "CUSTOM")               'ahora carga del archivo de recursos, el archivo con numero
                                                '101 y q este en la categoria CUSTOM

Open "C:\Cacarutas.exe" For Binary Access Write As #1   'abre el archivo cacarutas
Put #1, , Code                                          'pone el code dentro del archivo
Put #1, , IP                                            'y luego la ip q esos escogido, 69.69....
Close #1                                                'y se cierra el archivo

End Sub

ahora solo t queda ejecutar el primer archivo

[NYlOn]

Hola, primero... gracias por tu respuesta.. y segundo..
yo preguntaba porque una vez vi un programa que creaba exe...
no me acuerdo cual era pero por ejemlo vos activavas cheks box y se agregaban cosas, le dasbas a crear y se creaba un exe con lo que habias puesto...

Bueno... de tdas formas... gracias...

Salu2

Ranslsad

Busca informacion sobre como escribir y leer en archivos de forma binaria.

[ranslsad]

Bueno... les agradezco su ayuda que me sirvio de mucho
Gracias

Salu2

Ranslsad