谁有关于Winsock控件的Tcp/ip协议的聊天室程序来供我研究一下！谢谢

Question

谁有关于Winsock控件的Tcp/ip协议的聊天室程序来供我研究一下！谢谢

Answer 1

在哪里面有VB网络编程从入门到精通的源程序下载
www.ourfly.com

Answer 2

'客户端代码，tcpClient为Winsock控件名
Private Sub cmdConnect_Click()
tcpClient.Connect
End SubPrivate Sub rr_Click()
Call tcpClient_DataArrival(10)
End SubPrivate Sub Form_Load()
tcpClient.RemoteHost = "192.168.0.14"
tcpClient.RemotePort = 1001
End SubPrivate Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
a.text=strdata
tcpClient.SendData strdata
End Sub
'服务器代码
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
End SubPrivate Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then
tcpServer.Close
End If
tcpServer.Accept requestID
End SubPrivate Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strdata
End SubPrivate Sub txtSendData_Change()
tcpServer.SendData txtSendData.Text
End Sub