Ayuda creando minichat

[*Ghost*]

Hola gente de el hacker.net, necesito ayuda con un minichat que estoy desarrollando, com soy novato au, pues uso el control winsock y ya llevo esta parte del code programada, pero me saca error.... entocnes n ose que modificarle para que los datos de lo que yo escriban lleguen al serrvidor y viceversa.

Code del cliente

Código [Seleccionar] Expandir

Private Sub cmdConnect_Click()
   
    With Wsk
         .Close
         .RemoteHost = TxIP
         .RemotePort = TxPort
         .Connect
    End With

End Sub

Private Sub cmdSend_Click()
    Wsk.SendData TxSend
End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
End Sub

Y aqui tengo el del server

Código [Seleccionar] Expandir

Private Sub cmdClose_Click()
Wsk.Close
End Sub

Private Sub cmdListen_Click()
    With Wsk
         .Close
         .LocalPort = TxPort
         .Listen
    End With
   
End Sub

Private Sub cmdSend_Click()
   
    Wsk.SendData TxSend
   TxLog = TxLog & "Servidor : " & TxSend & vbCrLf
   TxSend = ""
   
End Sub

Private Sub Wsk_ConnectionRequest(ByVal requestID As Long)
Wsk.Close
Wsk.Accept requestID
End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
    TxLog = TxLog & "Client : " & dat & vbCrLf

End Sub

Espero que me puedan ayudar !

[aaronduran2]

Hola. Para que llegue el mensaje del servidor al cliente, tienes que poner, por ejemplo:

Código (vb) [Seleccionar] Expandir


MsgBox dat

Esto iría debajo de:

Código (vb) [Seleccionar] Expandir


Wsk.GetData dat, vbString

Saludos.

[*Ghost*]

Mmm, no creo la idea es que llegue a un textbox, llamado TxLog , y ya tengo en una parte del code esto:

Código [Seleccionar] Expandir

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
End Sub


que se supone que es lo quer ecibe los datos

[aaronduran2]

Pero aunque lleguen los datos, debes poder mostrarlos. Puedes utilizar el mismo código que pusiste en en el servidor:

Código (vb) [Seleccionar] Expandir


TxLog = TxLog & "Client : " & dat & vbCrLf


EDITADO: después de TxLog pon .Text

Saludos.

[BlackZeroX]

Aca te dejo un Ejemplo: es lo mas sencillo que pude hacerlo ok...

Descargar Micro Chat

aa cuando lo ejecutes solo debes estabecer primeramente el servidor y el cliente primero enciendes el servidor y despues conectas el cliente y veras que pasa saludos...