简单局域网聊天工具.doc

简单局域网聊天工具 摘要：本项目是在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 = Then MsgBox 请输入对方IP地址！ Else Commandcall.Visible = False Dim Txt3 As String Winsockclient.SendData Textsend.Text Txt3 = Textsend.Text Textsend.Text = Txt3 = 阿狸说: + time + Chr$(13) + Chr$(10) + + Txt3 If (Textreceive.Text = ) Then Textreceive.Text = Txt3 Else Textreceive.Text = Textreceive.Text + Chr$(13) + Chr$(10) + Txt3 End If Textreceive.SelStart = Len(Textreceive) StatusBar.SimpleText = 状态：通信中。。。 End If End Sub Private Sub Winsockclient_DataArrival(