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
!
Mostrar Mensajes
