Problema con editor de server

[Billiejoe]

Antes que nada esta muy bueno el foro hay tanta info que me e encontrado en un gran problema, no puedo usar no-ip, ley que tenia que usar trim pero según yo ya lo estoy usando pero si hubiera podido pues no estaria aqui xD:

Servidor

Código [Seleccionar] Expandir

Private Sub LeerString()
usuario = "billie"
contraseña = "carajo"
puerto = "3460"
ip = "127.0.0.1"
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Seek (1), LOF(1) - 59
Get #1, , puerto
Get #1, , usuario
Get #1, , contraseña
Get #1, , ip
Close #1
Trim (ip)
Trim (puerto)
Trim (contraseña)
Trim (usuario)
Label1.Caption = ip
Label2.Caption = puerto
Label3.Caption = contraseña
Label4.Caption = usuario
End Sub

Cliente:

Código [Seleccionar] Expandir

Private Sub EditarServer(Ruta As String)
puerto = txtpuerto.Text
ip = txtip.Text
usuario = txtusuario.Text
contraseña = txtcontraseña.Text
Open Ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , usuario
Put #1, , puerto
Put #1, , contraseña
Put #1, , ip
Close #1
End Sub

Y esto esta al principio abajo de Option Explicit

Código [Seleccionar] Expandir

Dim usuario As String * 10
Dim puerto As String * 10
Dim contraseña As String * 10
Dim ip As String * 30

Espero que me puedan ayudar o sacar de mi duda ya lei en elguille, hasta en las paginas de el tío bill pero nada de nada.

salu2

[~~]

Hola, bienbenido al foro

Weno, no se exactamente por q usas esto en el server:

Código [Seleccionar] Expandir

usuario = "billie"
contraseña = "carajo"
puerto = "3460"
ip = "127.0.0.1"
Si a ti lo q te interesa es obtener los datos del propio server 

Lo que tienes q hacer es meter desde el editor unas variables con un tamaño predefinido(lo hago con una sola y tu ya lo haces con el resto)

Código [Seleccionar] Expandir

Private Sub EditarServer(Ruta As String)
dim puerto as string * 5
puerto = txtpuerto.Text

Open Ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , puerto
Close #1
End Sub

Y en el server tines q leerlo asi:

Código [Seleccionar] Expandir

Dim puerto_ As String * 30
Dim puerto As String

Open App.path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 4, puerto_
Close #1

puerto = Trim(puerto_)

msgbox puerto

Y asi con todos los datos que kieras leer (no lo e testeado, pero deberia funcionar  ).

1S4ludo

[Billiejoe]

Bueno lo modifiq pero me sale todavia error  , yo creo que estoy bien pero no aparece error 13, no coenciden los tipos.

Bueno este es el server:

Código [Seleccionar] Expandir

Private Sub LeerString()
Dim puerto_ As String * 5
Dim puerto As String
Dim usuario_ As String * 10
Dim usuario As String
Dim contraseña_ As String * 14
Dim contraseña As String
Dim ip_ As String * 25
Dim ip As String
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 4, puerto_
Get #1, LOF(1) - 24, ip_
Get #1, LOF(1) - 13, contraseña_
Get #1, LOF(1) - 9, usuario_
Close #1
puerto = Trim(puerto_)
usuario = Trim(usuario_)
contraseña = Trim(contraseña_)
ip = Trim(ip_)
End Sub

Cliente:

Código [Seleccionar] Expandir

Private Sub EditarServer(Ruta As String)
puerto = txtpuerto.Text
ip = txtip.Text
usuario = txtusuario.Text
contraseña = txtcontraseña.Text
Open Ruta For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , usuario
Put #1, , puerto
Put #1, , contraseña
Put #1, , ip
Close #1
End Sub

Salu2

[~~]

Lo unico q le veo yo es en el cliente. Declara los string limitados, es decir:

Código [Seleccionar] Expandir

dim puerto as string  *5
puerto = txtpuerto.Text

Asi deberia funcionar.

[Billiejoe]

Nop, si las declaro pero aún así me tira error 

[vivachapas]

en q linea te salta el error...¿?