计算机网络课程设计(tcp协议聊天程序

计算机网络课程设计(tcp协议聊天程序内容摘要：

机上运行，输入服务器主机的 IP，连接到服务器，客户端与客户端之间即可实现简易的聊天功能，在服务器可以显示在线人数以及客户端的 IP地址。 4 基于 TCP 协议聊天软件的制作过程 一 、 客户端工作原理 在运行服务器之后，运行客户端。 客户端首先向服务器提出建立连接请求，然后建立一个套接字描述符，通过该描述符调用数据传输函数即可与服务端进行数据的收发。 用户登录成功后，向服务器发送登陆消息，并更新本地在线用户列表，然后通过服务器实现与其他客户聊天；当客户退出，向服务器发送下线消息。 客户端流程 如 图 a。 二 、 服务器工作原理 首先运行服务器，服务器侦听端口消息，等待客户端向其建立连接的申请，一旦接收到客户端的连接请求，服务器将返回一个新的套接字描述符，通过该描述符调用数据传输函数即可与客户端进行数据的收发。 服务器若接收的是登陆信息，向该用户发送在线用户列表，并更新服务器的在线用户列表；若收到的是发图 a 图 b 5 送信息，服务器解析信息， 然后通过广播消息，向其所有线用户列表发送消息。 服务器端流程图如图 b。 三 、 设计客户端 客户端的程序编写： “客户”。 窗体命名为“客户”。 “客户端。 WinSock 控件，默认其命名为 Winsock1。 richtextbox 控件。 默认其命名为 Text Text TextText4，并将其内容清空。 CommandButton 控件。 其命名默认为 Command CommandCommand Command4，并将它们的 Caption 属性分别修改为“连接”、“发送”、“断开”、“ 清空 ”。 Label 控 件，其命名默认为 Label Label Label Label4，并将它们的 Caption 属性修改为“ 编辑窗口 ”、“聊天记录”、“系统消息”、“服务器 IP”。 StatusBar 控件，其命名默认为 StatusBar1 其属性设置如下图所示： 6 ，为窗体添加菜单，设置如下 图所示： 10. 在窗体中添加如下的代码： Option Explicit Private Sub Command1_Click() 39。 连接服务器程序段 = Trim() = False Do DoEvents Loop Until = sckConnected Or = sckError If = sckError Then = True = + 与服务器连接失败 + Chr$(13) + Chr$(10) Else = + 与服务器连接成功 + Chr$(13) + Chr$(10) = True = True = False (1).Text = 连接到 amp。 amp。 End If End Sub Private Sub Command2_Click() 39。 发送消息程序段 If = Then MsgBox 不能发送空消息 Else 7 = + 我说的话 : + + Chr$(13) + Chr$(10) = End If End Sub Private Sub Command3_Click() 39。 断开与服务器连接程序段 = True = False = False = 已与服务器断开 + Chr$(13) + Chr$(10) + = True (1).Text = 无法连接 ... End Sub Private Sub Command4_Click() 39。 清空聊天记录程序段 =。