Porque no me function este codigo?

[magTpeak]

Hola, tengo este codigo visual basic: ( que lo consegui de aqui: http://www.monografias.com/trabajos3...al-basic.shtml)

Código:

   
 
Private Sub Command2_Click()
    Winsock1.Close
    Winsock1.LocalPort = 9900
    Winsock1.Listen
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "*** Servidor encendido." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Command3_Click()
    Winsock1.Close
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "*** Servidor Cerrado." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Winsock1_Close()
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "*** Client BYEBYE." & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    
    'cerramos previamente el socket
    Winsock1.Close
    
    'aceptamos la conexion
    Winsock1.Accept requestID
    
    'desplegamos un mensaje en la ventana
    Text1.SelStart = Len(Text1.Text)
    Text1.Text = Text1.Text & "*** Cliente enter, welcome!" & vbCrLf
    Winsock1.SendData "Welcome" & vbCrLf
    Text1.SelStart = Len(Text1.Text)
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String '
    
    Winsock1.GetData Buffer
If Buffer = "110" Then
Winsock1.SendData "Usuario:" & vbCrLf
End If

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    'cerramos la conexion
    Winsock1.Close
    
    'mostramos informacion sobre el error
    MsgBox "Error numero " & Number & ": " & Description, vbCritical
End Sub

El problema esta aqui:

Código:

If Buffer = "110" Then
Winsock1.SendData "Usuario:" & vbCrLf
End If

No se envia ningun dato al cliente
La variable buffer este definida, porque si pongo esto:

Código:

msgbox buffer, vbcritical

si que me pone el mensaje que envia el cliente
El problema pampoco este en

Código:

Winsock1.SendData "Usuario:" & vbCrLf

Porque si lo pongo por separado envia los datos al cliente perfectamente.
Entonces, cual es el problema?
Gracias y un saludo

[David]

No entiendo, al colocar MsgBox qué te pone en el mensaje, ya que lo que estás haciendo en ese código es comprobar si el dato recibido es "110" y en ese caso enviar "Usuario:".
No entiendo qué es lo que no funciona.

[magTpeak]

no functiona el if :)

[Kruzado]

buffer como esta definido? como string?, poke lo comparas con un string, que pasa si lo comparas con val(buffer)?

[Kruzado]

al reves.... o comparas con 110, como numero?

[magTpeak]

miralo tu mismo: (yo no entiendo grand cosa )

Código:

    Dim Buffer As String '
    
    Winsock1.GetData Buffer

[magTpeak]

Iniciado por Kruzado

poke lo comparas con un string, que pasa si lo comparas con val(buffer)?

Gracias, lo puse asi y me functiona:

Código:

If Val(Buffer) = "110" Then
Winsock1.SendData "Usuario:" & vbCrLf
End If

[magTpeak]

pero me funciona solo si buffer es un numero :(
si cambio 110 por una cadena que no es decimal, no me funciona.
Saludos!

[David]

Iniciado por magTpeak

pero me funciona solo si buffer es un numero :(
si cambio 110 por una cadena que no es decimal, no me funciona.
Saludos!

Si quieres comparar cadenas que no sean numéricas debes quitar el Val (que lo convierte a número, en caso de cadenas no numéricas devuelve 0).

[magTpeak]

lo he quitado y tampoco me funciona
Perdon las molestias
Saludos!

[David]

Iniciado por magTpeak

lo he quitado y tampoco me funciona
Perdon las molestias
Saludos!

¿Cuál es la cadena que quieres comparar?

[magTpeak]

If Buffer = "contrasena" Then
Winsock1.SendData "Bienvenido" & vbCrLf
End If

[David]

Iniciado por magTpeak

If Buffer = "contrasena" Then
Winsock1.SendData "Bienvenido" & vbCrLf
End If

Coloca un punto de interrupción en la línea del If para ver qué valor te está devolviendo en Buffer.

[magTpeak]

como se coloca eso?

[David]

Iniciado por magTpeak

como se coloca eso?

Ve a la línea del If, y apreta F9 o ve a Menú->Depuración->Alternar punto de interrupción. Cuando coloques eso la ejecución se detendrá en la línea indicada, allí pasa el mouse sobre la variable Buffer, te mostrará cuál es su valor.

[magTpeak]

me mostro:

http://img131.imageshack.us/img131/9064/evsyb4.png
Creo que el cuadradito es cambio de linea!
Habra que utilizar la function strstr!

[David]

Iniciado por magTpeak

me mostro:

http://img131.imageshack.us/img131/9064/evsyb4.png
Creo que el cuadradito es cambio de linea!
Habra que utilizar la function strstr!

Bueno, es exactamente por ese 'cuadradito' que no te funcionaba, intenta poniendo esto:

Código:

 
'Quitamos el último caracter antes de comparar
If Left(Buffer, Len(Buffer) - 1) = "login" Then

[magTpeak]

gracias David, me funciona a la perfeccion. Si el foro tendria sistema de karmas te daria una. Mil gracias!

[David]

Iniciado por magTpeak

gracias David, me funciona a la perfeccion. Si el foro tendria sistema de karmas te daria una. Mil gracias!

De nada. Saludos

P.S.: El foro la tiene (http://www.forosdelweb.com/f74/karma...el-web-526095/)

[magTpeak]

Ahora queda un pequeño problemita: No se puede conectar mas de un cliente! Y eso porque?

[David]

Iniciado por magTpeak

Ahora queda un pequeño problemita: No se puede conectar mas de un cliente! Y eso porque?

Para conectar más de un cliente, debes indexar el control Winsock y cada vez que se acepte una conexión cargar uno nuevo con Load...

[magTpeak]

y como se hace eso?

[David]

Iniciado por magTpeak

y como se hace eso?

Ese problema se ha tratado en este tema:
http://www.forosdelweb.com/f69/contr...ientes-518635/
(Solución por Laforge)