Esto t puede ayudar....
Crea un nuevo exe con este codigo:
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:
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
Autor
En línea
