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
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:
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
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:
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 :xD
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)
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:
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 :P).
1S4ludo
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:
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:
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:
dim puerto as string *5
puerto = txtpuerto.Text
Asi deberia funcionar.
Nop, si las declaro pero aún así me tira error :-(
en q linea te salta el error...¿?