Temas

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

[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