Crear un Editor de Servers en VB (By Me)

[Punk-Rock]

Weno, este texto lo escribo principalmente para explicar komo hacer un "Edit-Server", esto permite "comunicarnos" kon otro programa previamente creado en VB.

Lo intentare explikar lo mejor ke pueda (kon ejemplos, para ke sea mas facil).

1    º Trabajaremos kon 3 comandos basicos, el PUT, GET y SEEK.

Empezamos, creamos dos archivos, uno sera el EditServer, y el otro el Server.

Primero creamos el form y todos los Text box ke keramos (voy a hacer el ejemplo kon 3 text box).
Creamos 3 variebles y le ponemos la longitud ke keramos (pondre 25 en este ejemplo) declaramos:

Dim a As String * 25
Dim b As String *25
Dim c As String * 25

(De este modo, las variables solo podran contener un numero maximo de informacion (en este kasi letras) ke sera 25)

Bien, ahora kolokamos lo del textbox dentro de las variables (OJO!! el kontedido del textbox no podra superar la lonjitud de la variable, en mi kaso 25, kontanto letras y espacios.), lo kolokamos así:

a = Text1.Text
b = Text2.Text
c = Text3.Text

Ahora es kuando llega lo "mas komplikado", tenemos ke abrir el Server (Para esto tenemos ke saber komo se llamara el server), lo abrimos en modo BINARIO (para poder escribir en el). Para abrirlo, suponiendo ke el server se llama PRUEBA lo haremos así:

Open "C:\prueba.exe" For Binary As #1

Ok, hasta aki facil, ahora procediremos a ponerle los datos en el server. Al poner los datos es MUY IMPORTANTE ponerlos AL FINAL de archivo, ya ke todos los datos ke pongamos al final del archivo no interfieren en su desarrollo, da igual la cantidad de informacion ke le agreguemos, lo uniko ke variara sera su tamaño. Si ponemos los datos al principio del archivo logikamente no funcionara. Para ello empleamos la instruccion SEEK de esta forma: Seek (1), LOF(1) + 1. Lo ke hace esto es ir al final del archivo. En el Open, si emos puesto: For Binary As  #2 el seek iria así: Seek (2), LOF(2) + 1.

Ahora, para agregarle los datos se hace mediante el comando PUT y se hace de esta forma:

Put #1, ,a
Put #1, ,b
Put #1, ,c

Luego cerramos el archivo con el comando Close #1

Wenoo, eso editaria el Server (OJO!!! el server tiene ke estar kreado previamente)

Ahora pasamos al server.

Nesecitamos ke el server lea los komandos ke le emos introducido y a partir de ellos ke aga lo ke nosotros ayamos programado.

Para ke el server lea las variables las tenemos ke volver a declarar (es = si no es el mismo nombre ke le pusimos en el EditServer, en lugar de poner Dim a podemos poner Dim var, eso no afecta.) Declaramos las variables (con el mismo n    º de espacios ke tenia en el editServer, en mi kaso era 25). A parte de estas variables tenemos ke declarar otras 3 ke serviran para kitarle los espacios a las variables, a estas variables NO le declaramos la longitud, kedaria así:

Dim a As String * 25
Dim b As String * 25
Dim c As String * 25
Dim d As String * 25
Dim ap As String
Dim bp As String
Dim cp As String

Ahora, en el form_load, ponemos ke se habra el archivo a si mismo para extraerse los archivos ke le emos kolokado kon el edit server. Una truco para ke se abra este en el directorio ke este es este:

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1

Explikacion: Si por ejemplo tenemos un Archivo ke se ejekuta en: C:\Archivos de Programa\Prueba.exe

App.Path ekivaldria a: C:\Archivos de Programa

Luego esto: & "\" sirve para agregarle una barra al final de Archivos de programa (kedaria así: C:\Archivos de Programa\ )

App.EXEName ekivale a Prueba

& ".exe" Esto es para ponerle la extension del programa.

En el edit server, en lugar de poner:

Open "C:\prueba.exe" conviene poner:

Open App.Path & "\" & "Prueba.exe"

Esto abrira el server, un inkonveniente es ke el EditServer y el Server tienen ke estar en la misma karpeta.

Weno, seguimos.

Para extraer los datos ke le emos REPLACEado iremos otra vez al final del archivo kon el komando Seek. Pero esta vez kon una pekeña modificacion.

Seek (1), LOF(1) - 74

El -74 viene de la suma de las variables ke le emos introducido y le restamos uno. Ejemplo: 25+25+25 = 75 // 75-1 = 74

Es importante hacer este proceso correctamente, de lo kontrario no se extraeria los datos korrectamente. Importante poner delante del 74 el signo -

Ahora continuamos, hacemos lo mismo ke hicimos kon el comando PUT, pero esta vez con el comando GET:

Get #1,  , a
Get #1,  , b
Get #1,  , c
Close #1

Weno, ahora ya tenemos los datos, solo nos keda extraer los espacion (si no los sacaramos nos kedadaria mal. Por ejemplo: si emos introducido "Hendrix" y lo sacaramos sin kitar los espacion nos kedaria: "Hendrix                  " )
Para kitar espacion utilizamos el komando Tirm de esta manera:

ap = Trim(a)
bp = Trim(b)
cp = Trim(c)

Ahora el trabajo restante ya es kosa vuestra, por ejemplo, si kereis poner los resultados en un msgbox teneis ke hacer:

msgbox ap & " " & bp & " " & cp",,"Codigo by Hendrix"

Weno, fin del manual.

Estero ke esta informacion os ayude en la creacion de vuestros propios EditServers.

Si kereis krear el Server en vez d substituirlo teneis ke kopiar todo el archivo dentro de una variable.

Hendrix