华南农业大学计算机网络课程设计报告(2021整理).pdf

《华南农业大学计算机网络课程设计报告(2021整理).pdf》由会员分享，可在线阅读，更多相关《华南农业大学计算机网络课程设计报告(2021整理).pdf（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、本文为网上收集整理，如需要该文档得朋友，欢迎下载使用华南农业大学理学院华南农业大学理学院专业年级：学生学号：学生学号：学生姓名：学生姓名：实验题目：指导老师：实验时间：课程实验设计报告课程实验设计报告11 信息与计算科学202130760202130760Socket 应用程序设计2021 年 11 月 1 日-2021 年 11 月 29 日精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用目录1 实验内容和要求.1.1.1.12 实验过程.2.2.2.2.3.4.4.4.6.8.9.10.

2、12.13.202.3.2.1 登录、注册验证功能.20.22.233 实验结果.244 讨论与总结.255 参考文献.256 小组分工.26精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用1 1 实验内容和要求实验内容和要求在学习完 TCP/IP 协议组后，要求掌握基于此协议实现网络通信，理解 TCP与 UDP 的不同特征以及实现方式。基于 Windows 平台建立一个基于 TCP/IP 协议的网络通讯小应用，实验可采用 UDP 或 TCP 实现。1能够进行用户管理，所有用户必须登录到效劳

3、器，有效劳器维护在线信息；2IM 功能：用户登录后能够进行实时多方点到点短信息通信，如聊天；3能够选择要求效劳器进行转发效劳；4能够保存通信记录到数据库SQL Server 或者其他桌面型数据库或数据文件；5能进行双方文件传输，能够显示进度；*6支持断点重传，检查时需有功能随时中断传送，并在下次启动时能显示重传状态；*7数据包加密；*8实时语音双向传送功能；*9多方通话功能；10界面设计要求布局合理，信息清晰。11自加功能。*为选做内容1效劳器能够进行用户管理，所有用户必须登录到效劳器，有效劳器维护在线信息；2IM 功能：用户登录后能够进行实时多方点到点短信息通信，如聊天；3效劳器离线转发功能

4、；4客户端保存群聊天记录；5能进行双方文件传输，能够显示进度；10界面设计要求布局合理，信息清晰。精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用2 2 实验过程实验过程1登陆功能：在用户填写相关的账户和密码时，客户端能够发送连接客户端要求，当，连上客户端的时候，客户端能够将账号和密码信息发送到效劳器进行核对，并返回信心2聊天功能：在客户端中，用户有权选择群聊还是与某在线用户私聊3离线聊天功能：在线的用户可能通过效劳器将信息发给离线的用户4接受离线信息共能：当用户上线时，接收其他用户的离线信息5聊天记录功能：客户端能自动将群聊的信息保存在相应的数据库当中6显示用户状

5、态功能：对于在线的用户和离线的用户能够及时显示在表格当中1维护用户功能：添加新用户，修改用户密码，删除用户2更新用户状态功能：通知客户端更新成员状态和相应的列表3离线功能：为离线用户保存离线信息，并且在用户上线的时发送相应的离线信息4检验用户信息功能：验证用户的账号和密码的正确性，并禁止用户异地同时登陆5显示群聊记录：在效劳器中几时显示群聊的信息精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用1在按下登陆按钮的时候，程序获取界面中的效劳器中IP 地址和端口号，同精品文档，word 文档本文为

6、网上收集整理，如需要该文档得朋友，欢迎下载使用时检验账号和密码是否有误。假设账号和密码填写上没有错误，进行连接效劳器。代码如下：Private Sub Command1_Click()点击登陆按钮Form2.login=False设置能否登陆标志为“不能If Form1.Username.Text=Or Form1.Usercode.Text=Then检查账号和密码填写是否有空MsgBox 请输入账号和密码ElseCall tcpClient_Connect连接效劳器DoEventsIf Form2.tcpClient.State=7 Then假设连接上效劳器那么发送账号和密码Form2.tc

7、pClient.SendData|&*&Form1.Username.Text&*&#&Form1.Usercode.Text&#&|*账号*#密码#DoEventsElseMsgBox 没有效劳器End IfTimer1.Enabled=TrueEnd IfEnd SubPublic Sub tcpClient_Connect()If Form2.tcpClient.State 7 ThenDoEventsEnd IfEnd Sub2当连接成功后，发送账号和密码，用相关的已经定义好协议进行封装发送给效劳器。协议是*账号*#密码#代码如下：If Form2.tcpClient.State=7

8、Then假设连接上效劳器那么发送账号和密码Form2.tcpClient.SendData|&*&Form1.Username.Text&*&#&Form1.Usercode.Text&#&|*账号*#密码#3当客户端收到的效劳器的协议信息是密码和账号是正确的时候才能进行真正的登录。协议是：当收到*#时，代表登录成功。当收到*ERROR 时，代表没有这账号。当收到#ERROR 时，代表密码错误。当收到*ONLINE 时，代表账号已经登录。精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用代码如下：If InStr(sData,*#)0 Thenlogin=TrueEl

9、seIf InStr(sData,*ERROR)0 ThenMsgBox 没有这账号ElseIf InStr(sData,#ERROR)0 ThenMsgBox 密码错误ElseIf InStr(sData,*ONLINE)0 ThenMsgBox 账号已经登录End If1群聊天。在图 2.2 的文本框中输入字符，便可以发送信息。发送的协议：$群聊天信息$，通过进行过协议封装的聊天信息，能够让效劳器进行识别，别且转发给在线用户。精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用Private Sub cmdSend_Click()If txtOut.Text=The

10、nMsgBox 发送内容不能为空Exit SubEnd IftcpClient.SendData$+Form1.Username.Text+:&txtOut.Text+$=插入聊天记录a=CStr(Now()+Chr(10)+Form1.Username.Text+:+txtOut.Text+Chr(10)Set rs=cn.Execute(insert into data(tcp_data)values(&a&)tcp_data 是表的列名=插入聊天记录rtbIn.Text=rtbIn.Text&Chr(10)+CStr(Now()+Chr(10)+Form1.Username.Text+:

11、+txtOut.Text+Chr(10)txtOut.Text=rtbIn.SelStart=Len(rtbIn.Text)End Sub2发送私聊信息。在 listviews 中点击相应的用户名字就可以进行私聊，在登陆的时候已经设置好 TCP 控件的端口号。代码如下：Public Sub set_privatechat()For i=Private_Chat(i).ClientSer.LocalPort=8080+iNextEnd Sub3接收在线私聊信息。Private Sub ClientCli_DataArrival(ByVal bytesTotal As Long)ClientCli

12、.GetData str,vbStringText1.Text=Text1.Text&strText1.SelStart=Len(Text1.Text)If Me.WindowState=1 ThenTimer2.Enabled=TrueEnd IfEnd SubPrivate Sub ClientSer_DataArrival(ByVal bytesTotal As Long)ClientSer.GetData str,vbStringText1.Text=Text1.Text&str精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用Text1.SelStart=L

13、en(Text1.Text)If Me.WindowState=1 ThenTimer2.Enabled=TrueEnd IfEnd Sub在输入框中输入私聊信息时，先判断是否在线，假设是在线的话直接利用已经和对方连接的 TCP 控件进行发送信息。假设是离线用户的话，利用协议将封装好的离线信息发送给效劳器，在通过效劳器发送给离线的用户。离线信息协议：%*1 发送者账号*1*2 接收者账号*2*$离线的信息*$%代码如下：Private Sub Command1_Click()Dim str As StringIf Len(Text2.Text)=0 ThenMsgBox(发送内容不能为空！)E

14、xit SubEnd Ifstr=str&Chr(13)&Chr(10)&Chr(13)&Chr(10)If ClientSer.State=7 ThenClientSer.SendData strMsgBox 已连接上对方ElseIf ClientCli.State=7 ThenClientCli.SendData strEnd IfIf ClientCli.State 7 And ClientSer.State 7 Then离线信息设置Form2.tcpClient.SendData%+*1+Label2.Caption+*1+*2+Label3.Caption+*2+*$+str+*$+

15、%DoEventsEnd IfText1.Text=Text1.Text&strText1.SelStart=Len(Text1.Text)Text2.Text=End Sub精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用接收离线私聊信息。当收到效劳器的离线信息时，对发送过来的字符串进行信息提取，提取出发送者、接收者和信息。Function check_outlinemessage(message As String)sender_where1=0reciever_where1=0outmessage_where1=0sender_where2=0reciever

16、_where2=0outmessage_where2=0If InStr(message,*2)0 ThenDosender_where1=InStr(sender_where2+1,message,*1)sender_where2=InStr(sender_where1+1,message,*1)sender=Mid(message,sender_where1+3,sender_where2-sender_where1-3)outmessage_where1=InStr(outmessage_where2+1,message,*$)outmessage_where2=InStr(outmes

17、sage_where1+1,message,*$)outmessage=Mid(message,outmessage_where1+4,outmessage_where2-精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用outmessage_where1-4)If Form2.ListView1.ListItems(n).Text=sender ThenPrivate_Chat(n).Text1.Text=Private_Chat(n).Text1.Text&outmessagePrivate_Chat(n).Text1.SelStart=Len(Private_C

18、hat(n).Text1.Text)Form2.ListView1.ListItems(n).ForeColor=vbRedForm2.ListView1.ListItems(n).ListSubItems.Item(1).ForeColor=vbRedForm2.ListView1.ListItems(n).ListSubItems.Item(2).ForeColor=vbRedEnd IfNextLoop Until InStr(sender_where2+1,message,*1)=0End IfEnd Function1读取数据库中的聊天信息。添加 VB 的控件 ADO，ADO 控件建

19、立起读取聊天记录的桌面型数据库 access，读取数据库中信息，如图 2.4。代码如下：Sub adddata()oncn.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&App.Path&data.mdb;Persist Security Info=FalseSet rs=cn.Execute(select*from data)End Sub精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用当按下群聊天记录的时候弹出对应的 RichTextBox控件如下列图2将群聊天信息参加到数据库。提取$

20、与$之间的群聊天信息If InStr(sData,$)0 Thengroup_chat1=InStr(sData,$)group_chat2=InStr(group_chat1+1,sData,$)ssData=Mid(sData,group_chat1+3,group_chat2-group_chat1-3)=插入聊天记录a=CStr(Now()+Chr(10)+ssData+Chr(10)精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用Set rs=cn.Execute(insert into data(tcp_data)values(&a&)tcp_data

21、是表的列名=插入聊天记录rtbIn.Text=rtbIn.Text+Chr(10)+CStr(Now()+Chr(10)+ssData+Chr(10)rtbIn.SelStart=Len(rtbIn.Text)End IfCall check_useronline(sData)Call set_privatechat1当用户登录的时候，效劳器会发送当前用户列表的信息给客户端，协议为*用户名*IP 地址，当 IP 地址为 NULL 时，客户端识别为没有上线，只有不是NULL 的时候才是真正有上线，对于上线的用户，在listview 中的状态会由 0 变为 1，表示已经上线。同时会清空 listv

22、iew，将所以的用户进行重新的加载。如图 2.6.代码如下：Public Sub check_useronline(gData As String)account_where1=0IP_where1=0account_where2=0IP_where2=0If InStr(gData,*)=1 ThenForm2.ListView1.ListItems.Clear清空列表Doaccount_where1=InStr(account_where2+1,gData,*)account_where2=InStr(account_where1+1,gData,*)Username=Mid(gData,

23、account_where1+3,account_where2-account_where1-3)IP_where1=InStr(IP_where2+1,gData,)IP_where2=InStr(IP_where1+1,gData,)UserIP=Mid(gData,IP_where1+3,IP_where2-IP_where1-3)Set itmx=Form2.ListView1.ListItems.Add(1,Username)itmx.SubItems(2)=UserIPIf UserIP NULL Then精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用

24、itmx.SubItems(1)=1Elseitmx.SubItems(1)=0End IfLoop Until InStr(account_where2+1,gData,*)=0End IfEnd Sub2当用户退出的时候，会发送Q 的字符串给效劳器，告诉效劳器退出，并且让效劳器发送用户状态信息给各个在线用户，再次刷新用户。代码如下：Private Sub Form_QueryUnload(Cancel As Integer,UnloadMode As Integer)tcpClient.SendData Q&CStr(Now()DoEventsUnload Form3Unload Form

25、2End Sub基于 TCP/IP 协议的通信，需要分别建立客户端应用程序和效劳器段应用程序，大致流程如图 4-1精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用实现原理：发送方先获取待传输文件的根本信息，主要是文件名及文件长度用于创立数据缓冲区；然后，将其发送给接收方；接着，建立和文件一样大小的数据缓冲区，并将文件读入；最后，将数据缓冲区中的数据发送给接收方。与此同时，当接收方接收到文件名和文件长度之后，就为其创立新的文件和数据缓冲区；然后，接收传输的文件数据，并将其放在数据缓冲区中；最后，依次将数据缓冲区的数据写入新创立的文件中。这样便完成了不同计算机之间的文件

26、传输。在本次实验中，于私人聊天模式里，当勾上“翻开文件传输通道后，右边 button将变为可用，如下列图：，此时点击“发送文件按钮，便会弹出窗体精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用这时窗体里的 winsock 控件数组将处于监听状态，执行代码如下For j=1 To Form2.ListView1.ListItems.CountPrivate_send(j).wskServer.LocalPort=8000+jNext j并且假设此时点击“浏览时，将会调用系统里的控件“Comdlg，执行下段代码Private Sub Command1_Click()Wi

27、th Comdlg.CancelError=TrueOn Error GoTo OpenErr.DialogTitle=“翻开一个测试文件.Filter=“所有文件(*.*)|*.*.Flags=&H4.ShowOpenText3.Text=.FileNameEnd WithOpenErr:End Sub假设此时选择的文件正确路径，文件存在，将可以点击“发送按钮，已精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用连接的对方的 winsock 将会发生请求事件，接受“请求的话，将发生“数据到达，相关代码如下所示：Private Sub wskServer_Connec

28、tionRequest(ByVal equested As Long)Private_send(SelectNo).wskServer.Accept equestedList1.AddItem“已连接Command2.Enabled=TrueEnd SubPrivate Sub wskServer_DataArrival(ByVal bytesTotal As Long)Dim WskChat As StringPrivate_send(SelectNo).wskServer.GetData WskChatIf WskChat=“NoThanks ThenMsgBox“对方拒收你发送的文件.,

29、vbExclamation,“ServerElseIf WskChat=“OkSend ThenMsgBox“对方接受了你的文件.&vbCrLf&vbCrLf&“单击“确定开始传送,vbInformation,“ServerGetFileNum=FreeFileLenFile=FileLen(Text3.Text)-ProBarLen=LenFileVarPlus=0-Open Text3.Text For Binary As#GetFileNumOnSend=TrueCommand2.Enabled=FalseCallTCPSendFile(Private_send(SelectNo).ws

30、kServer,GetFileNum,SplitFile)End IfEnd Sub假设没有连接上，我们添加了 Timer 控件，来监控状态，假设处于“连接关闭状态，将重置 winsock，并显示相应信息给用户例如“传送按钮不可用等，如下列图：精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用相关代码如下：Private Sub Timer1_Timer()If Private_send(SelectNo).wskServer.State=sckClosing ThenList1.AddItem 对方的连接已关闭.Private_send(SelectNo).wskS

31、erver.LocalPort=8000+SelectNoCommand2.Enabled=FalseEnd IfEnd Sub根据上面所述的原理，是使用内存来存储数据，然而，当需要传送的数据比拟大时，就不能像以上介绍的那样，直接将整个文件放入数据缓冲区中了，我们的内存是无法忍受用一个几百MB甚至上GB的空间去存储那些临时数据的。显然，这种做法已远不能满足我们的需求，这时可以将文件按照一定的大小，分成假设干个数据包远小于内存的容量。首先，设置数据包的大小如64K，根据文件的根本信息主要文件的长度，计算出总共需要的数据包数；然后，依次读取同数据包一样大小的数据到数据缓冲区中；接着，将数据缓冲区中

32、的数据，发送到指定的计算机上；同时在另一端，建立一个数据缓冲区，缓冲区的大小要根据接收到的数据来确定，依次接收客户端传输过来的数据包，并将数据缓冲区的数据写入相应的文件中，这样就很容易实现大文件的传输了，这是一种较为常用的方法较为容易实现断点续传，不过本次采用的是一种“迭代递归的思想，使用自己编写的函数 SplitFile()来稍微简单实现传输大文件，但断点重传功能将受到限制，相关代码如下：Private Function SplitFile()As LongDim GetCount As LongIf LenFile=8192 ThenGetCount=8192LenFile=LenFile

33、-GetCount精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用ElseGetCount=LenFileLenFile=LenFile-GetCountEnd IfVarPlus=VarPlus+GetCountProBar.Value=(VarPlus/ProBarLen)*100SplitFile=GetCountEnd FunctionPrivate Sub TCPSendFile(objWinSock As Winsock,FileNumber As Integer,SendLenAs Long)Dim FileByte()As Byte,i As Lon

34、gReDim FileByte(SendLen-1)Get#FileNumber,FileByteobjWinSock.SendData FileByteEnd Sub至于显示进度，在私聊和传送文件窗体里，我们添加了 VB 自带的控件progressbar，进度也根据以传送文件的大小和总大小作简单除法：ProBar.Value=(VarPlus/ProBarLen)*100 来显示，图示效果如下:精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用2.3.2.1 登录、注册验证功能双击效劳器.e

35、xe，进入初始界面，这里 winsock 将初始化，得到 IP 地址并且设置端口等，并对客户端管理界面进行初始化此时该界面不显示但却已执行相关操作，点击“客户端界面时显现：精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用当有客户端请求连接效劳器时，同意的话，发生事件到达，效劳器采取机制：判断数据种类，并采取相关操作。代码如下：Dim sData As StringDim sName As StringtcpServer(Index).GetData sDatartbSave.SelStart=Len(rtbSave.Text)客户端向效劳器发送已经登录和退出信息=s

36、Name=Left(sData,1)If sName=C ThentcpServer(Index).SendData C_OKDoEventsElseIf sName=Q ThentcpServer(Index).SendData Q_OK.DoEventsCall del_IP(tcpServer(Index).RemoteHostIP)在客服端管理中删除已退出客户端的 IP 地址和上线记录tcpServer(Index).CloseNumOnline=NumOnline-1End If精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用=客户端向效劳器发送账号和密码

37、，效劳器提取账号和密码=If InStr(sData,|)Thenaccount_where1=InStr(sData,*)account_where2=InStr(account_where1+1,sData,*)user(0).uName=Mid(sData,account_where1+3,account_where2-account_where1-3)*用户名*password_where1=InStr(sData,#)password_where2=InStr(password_where1+1,sData,#)user(0).uPWD=Mid(sData,password_wher

38、e1+3,password_where2-password_where1-3)#密码*Callcheck_account_pwd(Trim(user(0).uName),Trim(user(0).uPWD),Index)校对数据库中的密码和账号是否符合End If=因为 winsock“数据到达处理，他需要判断到达的是“登陆和退出信息还是“已登陆用户间的群聊天记录，这里我们做了个简单的协议“InStr(sData,$)，相关代码如下：If InStr(sData,$)0 ThenFor n=1 To NumIf tcpServer(n).State=7 And n Index ThentcpS

39、erver(n).SendData sDataDoEventsEnd IfNextgroup_chat1=InStr(sData,$)group_chat2=InStr(group_chat1+1,sData,$)sData=Mid(sData,group_chat1+3,group_chat2-group_chat1-3)rtbSave.SelStart=Len(rtbSave.Text)rtbSave.Text=rtbSave.Text+Chr(10)+CStr(Now()+Chr(10)+sData+Chr(10)rtbSave.SelStart=Len(rtbSave.Text)End

40、 If精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用这里我们采用单项选择按钮添加和修改来实现客户端管理和维护，选择注册或者删除，点击“确定后将显示相应功能，相关代码如下：Private Sub command1_Click()Dim i,j,k As IntegerIf Len(Text1.Text)=0 Thenk=MsgBox(账户不能为空！,64,提示)Exit SubEnd IfIf Option1.Value=True ThenIf ListView1.ListItems(i).Text=Text1.Text Thenk=MsgBox(此账户已经存在，不

41、能添加！,64,提示)Exit SubEnd IfNext iSet itmx=ListView1.ListItems.Add(1,Text1.Text)itmx.SubItems(2)=0ListView_Change1=ListView_Change1+1Call Data_Add(Text1.Text,Text2.Text)Call Con_Closek=MsgBox(已经添加成功！,64,提示)ElseForm2.ListView1.ListItems(j).SubItems(2)=0Form2.ListView1.ListItems(j).SubItems(3)=ListView_C

42、hange1=ListView_Change1+1Call Data_Mod(Text1.Text,Text2.Text)Call Con_Closek=MsgBox(修改成功！,64,提示)Text3.Text=0End IfEnd Sub然而在删除层面上，效劳器不能删除全部人员信息至少得保存管理员，精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用基于这种机制，在“删除按钮上，我们添加如下代码：Private Sub command2_Click()If Option2.Value=True ThenIf ListView1.ListItems(ListView1

43、.SelectedItem.Index).Text=管理员Theni=MsgBox(不能删除“管理员账号！,64,提示)Exit SubEnd IfListView_Change1=ListView_Change1+1Call Data_Del(Text1.Text)Call Con_Closek=MsgBox(已经删除成功！,64,提示)Text1.Text=Text2.Text=Option1.Value=TrueElsek=MsgBox(请选择数据！,64,提示)End IfEnd Sub3 3 实验结果实验结果在本次的实验中成功实现客户端和效劳器各种基于 TCP 通信的功能，客户精品文

44、档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用端1登陆功能2聊天功能3离线聊天功能4接受离线信息功能5聊天记录功能6显示用户状态功能 效劳器1维护用户功能2更新用户状态功能3离线功能4检验用户信息功能5显示群聊记录。具体的功能图详见与实现板块和软件的具体成品。4 4 讨论与总结讨论与总结在接到课题后，一段时间内没有丝毫头绪，2 人去了一趟图书馆，找了一下午相应的 VB 编程参考书尤其涉及网络编程，回来当天便初步确定分工并于网上找到高手关于 winsock 通信的相关介绍，便开始了我们的课程设计，由于我们并未系统学习过 VB，根本上是现学现用，即时时间看上去蛮长的，编写过

45、程及相应的调试搞到我们焦头烂额，尤其是调试 bug，现在真正体会到“测试才是一个程序里的最艰难时段这句话的含义。此外，我们还和班上另外一个小组 他们也是用 VB 完成此课程设计深度讨论过相关问题和 bug 解决方法，最终经过我们的不懈努力，也算是拿出了根本符合课题要求的程序。关于程序，只能说匆匆刚学 VB 刚用做出来的作品确实存在许多缺乏的地方，首先界面上还不够美观，不过也算差强人意；功能上，客户端登陆界面上忘记添加注册功能该功能已在效劳器上实现，这点疏忽了，也没完成额外要求，例如文件的断点重传和语音聊天等，在实际测试里，现在程序还存在一点小bug如三方同时互相传递大文件，只能说这版本是 v0

46、.9 吧，根本功能实现上，整体效果还算差强人意，如果时间允许的话，我们会在后续尝试修正一些 BUG。总而言之，此次课程设计的收获还是蛮大的，让我们体会到一种喜悦作品从无到有的诞生。“万事开头难，一开始感觉无从入手到现在提交完成品也算是一种体验，此外，这次选修计算机网络，知识丰富了不少，实践局部，就是此次课程设计，这次课程设计也是上大学以来相对较难的课题，也因此让我们懂得了软件制作过程中团队合作和沟通交流的重要性 或许这也是老师不允许单独完成的原因之一吧。5 5 参考文献参考文献1?Visual Basic 网络程序设计?人民出版社出版卞志强编著精品文档，word 文档本文为网上收集整理，如需要

47、该文档得朋友，欢迎下载使用2?Visual Basic 程序开发范例宝典?人民邮电出版社 高春燕，李俊民编著3?计算机网络第 5 版?谢希仁编著4?Visual Basic 网络通信协议分析与应用实现?人民邮电出版社,2003/汪晓平,钟军等编著5?电子工业出版社,2021 郭圣路,张荣圣编著、6 6 小组分工小组分工成员邓智勇:负责效劳器端管理，客户端登陆，群聊天聊天记录链接数据库，及私聊模块和相应测试。成员叶俊杰：负责界面美化，效劳器端维护，客户端文件传输，及相应测试和相关文档编写精品文档，word 文档本文为网上收集整理，如需要该文档得朋友，欢迎下载使用评语及评分评语及评分评阅人签名：精品文档，word 文档