Te voy a explicar el metodo que yo uso ,esa idea la saque del foro hackxcrack ,no pongo el link porque no lo recuerdo 
y porque creo que ya tumbaron el foro
........::::::::Editor del Server::::::...........
CLIENTE:
1 command ,2 textbox
SERVER:
2 textbox
y porque creo que ya tumbaron el foro ........::::::::Editor del Server::::::...........
CLIENTE:
1 command ,2 textbox
Código [Seleccionar]
Private Sub Command1_Click()
Dim port As String * 5 '//definimos la variable predefinida de espacios a 5 osea el numer de bytes que pensamos utilizar en la aplicacion
Dim pass As String * 20 '//igual con la variable que contendra el pass, con capacidad de 20 bytes.
port = Text1.Text 'declaracon de variables
pass = Text2.Text
Open "C:\rutadelserver.exe" For Binary As #1 'Esto nos permite abrir el archivo de forma binaria
Put #1, LOF(1) + 1, port 'LOF nos permite ubicarnos al final de un archivo ,tiene que ser al final porque si no lo dejariamos inservible,y colocamos la variable port
Put #1, LOF(1) + 1, pass 'Lo mismo que atras
Close #1 '//cerramos el archivo.
End Sub
SERVER:
2 textbox
Código [Seleccionar]
Private Sub Form_Load()
Dim port As String * 5 '//Declaramos estas variables para poder extraer los valores
Dim pass As String * 20
Open app.path & "\" & app.exename & ".exe" For Binary As #1 'Cuando se abra el programa nos abrimos a nosotros mismos osea el server en forma bnaria
Get #1, LOF(1) - 24, port 'Extraemos la variable port ,ojo es -24 porque son 25 bytes de espacio que dejamos esos son para restar los 25 bytes y empezar desde hay pero siempre se le resta 1 si por ejemplo hubieramos querido que introduciece 10 bytes en el puerto y 20 en el pass seria "-29"
Get #1, , pass 'Extraemos pass y lo alamacenamos
Close #1
Text1.Text = Trim(port) '//Quitamos espacios de las variables y las mostramos en cajas de texto.,recuerda que tenemos que quitar espacios porque pusimos 5 bytes y no estamos seguros de que se hayan ocupado todos
Text2.Text = Trim(pass)
End Sub
,ya que no es costoso y realmente vale la pena tenerlo
