 Autor
|
Tema: Problema con editor de server (Leído 1,351 veces)
|
Billiejoe
 Desconectado
Mensajes: 4
|
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: ServidorPrivate 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
|
|
|
|
|
En línea
|
|
|
|
|
~~
|
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  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  ). 1S4ludo
|
|
|
|
|
En línea
|
|
|
|
Billiejoe
Desconectado
Mensajes: 4
|
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 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 |
|
|
|
|
En línea
|
|
|
|
|
~~
|
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. |
|
|
|
|
En línea
|
|
|
|
Billiejoe
Desconectado
Mensajes: 4
|
Nop, si las declaro pero aún así me tira error  |
|
|
|
|
En línea
|
|
|
|
vivachapas
Desconectado
Mensajes: 612
|
en q linea te salta el error...¿?
|
|
|
|
|
En línea
|
|
|
|
|
 |
