本文主要为广大网友提供“VB网上聊天系统的设计”，希望对需要VB网上聊天系统的设计网友有所帮助，学习一下!
第3章 网上聊天系统分析 3.1 系统概论 3.1.1 系统目标 网上聊天系统是为人们之间进行交流和联系提供的一个平台。通过提供完善的网上聊天系统服务，可以达到增进彼此之间的了解，增进人与人之间的感情交流。 3.1.2 系统功能简介 此系统是以用户为中心的人性化设计，总体来看，系统可以看作是服务器端和客户端两大模块的协调运作。 3.1.3 用户登陆功能 用户通过提交服务器端的IP进行登陆，系统便会根据服务器端的IP，辨别出客户端是否存在。 3.1.4 聊天系统功能 聊天系统中将显示用户留的信息。
4.3 服务器端发送聊天数据和接收数据 Private Sub cmdSendData_Click() Dim ArrayIndex As Integer Dim sendtext As String If UBound(gActiveSockets) = 0 Then MsgBox "没有客户与服务器建立连接 " Else For ArrayIndex = 1 To UBound(gActiveSockets) If gActiveSockets(ArrayIndex).Connected Then sktTCPChatServer(ArrayIndex).SendData sktTCPChatServer(ArrayIndex).LocalIP & _ "(主机:" & sktTCPChatServer(ArrayIndex).LocalHostName & " 端口：" & sktTCPChatServer(ArrayIndex).LocalPort & ")发送：" & txtDataToSend.Text DoEvents End If Next ArrayIndex txtDataReceived.SelText = sktTCPChatServer(0).LocalIP & _ "(主机:" & sktTCPChatServer(0).LocalHostName & " 端口:" & sktTCPChatServer(0).LocalPort & ")发送：" & txtDataToSend.Text & vbCrLf txtDataToSend.Text = "" End If End Sub |
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
