Mensajes

Hi, yo aquí molestando otra vez jeje. Ya busque en google y nada quiero comprimir una aplicación con upx en visual basic pero nada alguien tiene una idea?

Salu2

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

[Cliente:]

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

[Servidor]

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