Test Foro de elhacker.net SMF 2.1

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

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

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 :) !

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

MsgBox dat

Esto iría debajo de:

Wsk.GetData dat, vbString

Saludos.

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

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

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

Citar

Código (vb) [Seleccionar] Expandir


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


EDITADO: después de TxLog pon .Text

Saludos.

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

Descargar Micro Chat (http://infra.110mb.com/VB/6/winsock/ejemplochat.zip)

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...