简单局域网聊天工具.doc

TCP/IP协议及网络编程技术设计报告简单局域网聊天工具摘要：本项目是在Visual Basic 6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。具体内容是局域网内部的聊天软件，基于VB编程的基础上，利用Winsock控件，选择TCP协议提供可靠的、面向连接的传输控制，选择协议的配置，确定你的计算机名 ，然后进行连接。本组完成的局域网聊天工具。关键词： Winsock控件， TCP协议，局域网聊天工具随着网络技术的发展和国际互联网在全球的开通，计算机在教学领域中的应用得到了迅速地发展，多种类型的网校、教育网站、网络远程教育学院如雨后春笋般蓬勃兴起，使得网上教育成为当今教育的热点。人们禁不住向往着一个全新的教育体制基于Internet/Intranet教育网的教育体制，在这种体制下，不受时间、空间和地域的限制，不受应用软件的限制，通过计算机网络可扩展至全社会的每一个角落，甚至是全世界，这是真正意义上的开放大学。在基于Internet的教育网络环境下，方便教师对学生作业的管理，同时可以最大限度地发挥学习者的主动性、积极性、探索精神，既可以进行个性化教学，又可以通过各种协作式教学策略的运用而实现。为了提高对计算机网络知识的了解和对计算机编程的进一步熟悉，为明年的毕业设计未雨绸缪做好良好的准备和经验，以及今后工作中的实际问题的面对和解决。由实训老师给我们布置的课程设计在Visual Basic 6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。使我们，在实际的设计中自我提高。1 设计思路1.1设计要求为了提高我们对计算机网络知识的了解，和对编程的进一步熟悉，由实训老师给我们布置的课程设计的目标为在Visual Basic 6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。 本项目是在Visual Basic 6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。具体内容是局域网内部的聊天软件，基于VB编程的基础上，利用Winsock控件，选择TCP协议提供可靠的、面向连接的传输控制，选择协议的配置，确定你的计算机名 ，然后进行连接，最后完成的局域网聊天工具，能很好地实现局域网内部的信息传输方面的各项功能和系统调用。1.2设想实现功能开发局域网聊天工具，设想功能如下：（1）提供基本的文本编辑功能，使用户可以方便的编辑要发送的信息。（2）能够将编辑好的文本信息，利用 Winsock 控件发送到局域网中指定 IP 地址的 设备上。（3）能够显示通过 Winsock 控件接收到的信息，并利用 IP 地址（或用户名）加以区分。（4）实现点对点和广播信息的发送功能。（5）设计一个良好的人机交互环境。（6）记录并显示每一条信息。（7）实现上网,听音乐,文件传输,记事本等功能（8）在信息中字体颜色,修改背景色。1.3方案实现在Visual Basic 6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。2 设计过程2.1软件系统结构2.2具体软件功能本系统已实现的功能如下：（1）实现局域网内，用户可以进行基本的文本编辑功能。（2）可以方便的编辑要发送的信息，修改字体，表情，字体大小，贴图等。（3）在聊天室里进行聊天 ，为用户提供简单方便的操作界面。（4）实现了背景色修改，聊天记录功能，显示服务器IP，在线人数。（5）选择两个选项按钮，可以选择是选择键发送消息，还是回车发送。（6）可以显示局域网内在线人数，以及服务器地址。2.3服务器Private Sub send_Click() 发送信息If Textaddr.Text = ThenMsgBox 请输入对方IP地址！ElseCommandcall.Visible = FalseDim Txt3 As StringWinsockclient.SendData Textsend.TextTxt3 = Textsend.TextTextsend.Text = Txt3 = 阿狸说: + time + Chr$(13) + Chr$(10) + + Txt3If (Textreceive.Text = ) ThenTextreceive.Text = Txt3ElseTextreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt3End IfTextreceive.SelStart = Len(Textreceive)StatusBar.SimpleText = 状态：通信中。End IfEnd SubPrivate Sub Winsockclient_DataArrival(ByVal bytesTotal As Long) socket控件的信息接收Dim Txt1 As StringWinsockclient.GetData Txt1, vbStringTxt1 = 对方IP： + Textaddr.Text + 说: + time + Chr$(13) + Chr$(10) + + Txt1If (Textreceive.Text = ) ThenTextreceive.Text = Txt1ElseTextreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt1End IfTextreceive.SelStart = Len(Textreceive)StatusBar.SimpleText = 状态：通信中。End Sub2.4 客户端发送数据Private Sub CmdSend_Click()Dim Txt4 As StringDim Index As IntegerSock(Index).SendData Textsend.TextTxt4 = Textsend.TextTextsend.Text = Txt4 = 我说： + time + Chr$(13) + Chr$(10) + + Txt4If (Textreceive.Text = ) ThenTextreceive.Text = Txt4ElseTextreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt4End IfTextreceive.SelStart = Len(Textreceive)StatusBar.SimpleText = 状态：通信中。End Sub 接收数据 Private Sub Sock_DataArrival(Index As Integer, ByVal bytesTotal As Long) Dim Txt2 As String Labelstatus.Caption = 数据来自 & Index Sock(Index).GetData Txt2, vbString Txt2 = 对方IP： + Textaddr.Text + 说: + time + Chr$(13) + Chr$(10) + + Txt2 If (Textreceive.Text = ) Then Textreceive.Text = Txt2 Else Textreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt2 End If Textreceive.SelStart = Len(Textreceive) StatusBar.SimpleText = 状态：通信中。 End Sub4 功能实现4.1 服务器4.2 客户端5 心得体会通过这次实验，让我把vb编程的方法又有了新的认识。在刚开始学的vb，涉世未深，没有过多的研究，只是能完成一些本地的界面设计编辑之类的功能，而对于网络这方面，完全没有涉及到。这次通过看书和网上搜索，学会了winsock这个控件，实现了网络的连接和局域网的聊天。这次实验，给我感受最深的就是我们分组完成一个局域网聊天室的应用程序，包括项目的需求分析，制作编程以及报告的撰写。在这些过程中，我不仅知道了整个项目的开发的流程，而且让我深深的体会到一个团队中的各成员合作的重要性，要善于团队合作，善于利用别人的智慧，这才是大智慧。靠单一的力量是很难完成一个大项目的，在进行团队合作的时候，还要考虑技术上的规范性和统一性，这样才可能在进行组合的时候能得到更完美的组合。6 参考文献1 明日科技 高春艳