Hola y gracias por prestarme atencion.
He empezado a crear un chat cliente-servidor. A la hora de comunicación entre el cliente y el servidor todo bien, excepto una cosa:
Por favor, ayudadme. Estoy desesperado D:
~Pipe01
He empezado a crear un chat cliente-servidor. A la hora de comunicación entre el cliente y el servidor todo bien, excepto una cosa:
Código:
Private Sub cli_DatosRecibidos(datos As String) Handles cli.DatosRecibidos
'Suponiendo que 'datos' = "REQUEST login"
Dim raw() As String = datos.Split(" ")
Dim comando As String = raw(0)
Dim args() As String
If raw(1).Contains(",") Then
args = raw(1).Split(",")
Else
ReDim args(0)
args(0) = raw(1)
End If
Select Case comando
Case "REQUEST"
If args(0) = "login" Then 'Hasta aquí todo bien. Pero a la hora de evaluar los argumentos, falla. args(0) es "login", pero a el if "se la suda" y dice que no.
logeando = True
cli.EnviarDatos("LOGIN " & InputBox("Introduzca su nombre de usuario"))
End If
Case "OK"
If logeando Then
MsgBox("Logeado correctamente")
logeando = False
End If
Case "NOPE"
If logeando Then
MsgBox("Logeo fallido.")
logeando = True
cli.EnviarDatos("LOGIN " & InputBox("Introduzca su nombre de usuario"))
End If
End Select
End Sub~Pipe01