Cierto jaja! Me olvidaba de un pequeño detalla
.
CODIGO DE CLIENTE:
Public Client As TcpClient
Public DataStream As StreamWriter
Public Sub Send(Data As String)
DataStream.Write(Data & vbCrLf)
DataStream.Flush()
End Sub
BOTON QUE MANDA AL SERVIDOR:
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
If Client.Client.Connected = True Then
Client.Send("2")
End If
End Sub
------------------------------------------------------------------------------------------------
CODIGO DE SERVIDOR: (CUANDO YA ESTA ESCUCHANDO)
Private Server As TCPControl
Public Event MessageReceived(sender As TCPControl, Data As String)
' COMUNICA CON EL FORM
Private Delegate Sub UpdateTextDelegate(TB As TextBox, txt As String)
' ACTUALIZA EL TEXTO
Private Sub UpdateText(TB As TextBox, txt As String)
If TB.InvokeRequired Then
TB.Invoke(New UpdateTextDelegate(AddressOf UpdateText), New Object() {TB, txt})
Else
TB.Text = txt
End If
End Sub
' ACTUALIZA TEXTO CUANDO RECIBE
Private Sub OnLineReceived(sender As TCPControl, Data As String)
UpdateText(txtChat, Data)
End Sub
Private Sub Listening()
' LOOP QUE ESCUCHA
Do Until IsListening = False
' ACEPTA CONEXIONES
If Server.Pending = True Then
Client = Server.AcceptTcpClient
ClientData = New StreamReader(Client.GetStream)
End If
' CUANDO LLEGA UN MENSAGE
Try
RaiseEvent MessageReceived(Me, ClientData.ReadLine)
Catch ex As Exception
End Try
Loop
End Sub
CLIENTE:1 SERVIDOR
1 1) QUE CAMBIE DE 0 A 1 CUANDO TOCO EL BOTON 1
2 2) QUE CAMBIE DE 0 A 2 CUANDO TOCO EL BOTON 2
3 3) QUE CAMBIE DE 0 A 3 CUANDO TOCO EL BOTON 3
Lo que tendria que hacer es que el cliente al apretar 1, el servidor reconozca que salio de ese boton y vaya a 1).
No puedo crear un identificador de texto porque el texto de 1 del cliente despues va a ir cambiando. Si no con 2 if lo solucionaria.
Muchas gracias MCKSys Argentina por preocuparte.
Mostrar Mensajes
