Hacer una ventana de chat

MrAnderson
07 de Agosto del 2004
Me gustaría que alguien me explicara cómo puedo hacer una ventana de chat a travez del objeto winsock, o también si me pueden mandar un manual de cómo utilizar tal control. Se los agradecería mucho.

¶mmm
07 de Agosto del 2004
NECESITARAS 2 FORM

Form1 Server
1 Winsock, 2 Text, 2 Command
Load()
Wsk.LocalPort = puerto utilizado
Txt1.Text=""
Txt2.Text=""
Cmd1.Caption="Listen"
Cmd2.Caption="Send"

Private Sub Cmd1_Click()
Wsk.Listen
End Sub
Private Sub Wsk_DataArrival (ByVal bytesTotal As Long)
Dim Data As String
Wsk.GetData Data
Txt1.Text = Txt1.Text + Data
End Sub
Private Sub Wsk_ConnectionRequest (ByVal requestID As Long)
Wsk.Close
Wsk.Accept requestID
End Sub
Private Sub Cmd1_Click()
Dim Send As String
Send = Txt2.Text
Wsk.SendData Send
End Sub

Form2 Client
1 Winsock, 3 Text, 2 Command
Load()
Wsk.LocalPort = puerto utilizado
Txt1.Text=""
Txt2.Text=""
Txt3.Text=""
Cmd1.Caption="Connect"
Cmd2.Caption="Send"

Private Sub Cmd1_Click()
Wsk.RemoteHost = Txt3.Text
Wsk.Connect
End Sub
Private Sub Wsk_DataArrival (ByVal bytesTotal As Long)
Dim Data As String
Wsk.GetData Data
Txt1.Text = Txt1.Text + Data
End Sub

Private Sub Cmd1_Click()
Dim Send As String
Send = Txt2.Text
Wsk.SendData Send
End Sub