简单局域网聊天工具

《简单局域网聊天工具》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、TCP/IP协议及网络编程技术设计报告简单局域网聊天工具摘要：本项目是在VisualBasic6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。具体内容是局域网内部的聊天软件，基于VB编程的基础上，利用Winsock控件，选择TCP协议提供可靠的、面向连接的传输控制，选择协议的配置，确定你的计算机名，然后进行连接。本组完成的局域网聊天工具。关键词：Winsock控件，TCP协议，局域网聊天工具随着网络技术的发展和国际互联网在全球的开通，计算机在教学领域中的应用得到了迅速地发展，多种类型的网校、教育网站、网络远程教育学院如雨后春笋般蓬勃兴起，使得网上教育成为当今教育的

2、热点。人们禁不住向往着一个全新的教育体制—基于Internet/Intranet教育网的教育体制，在这种体制下，不受时间、空间和地域的限制，不受应用软件的限制，通过计算机网络可扩展至全社会的每一个角落，甚至是全世界，这是真正意义上的开放大学。在基于Internet的教育网络环境下，方便教师对学生作业的管理，同时可以最大限度地发挥学习者的主动性、积极性、探索精神，既可以进行个性化教学，又可以通过各种协作式教学策略的运用而实现。为了提高对计算机网络知识的了解和对计算机编程的进一步熟悉，为明年的毕业设计未雨绸缪做好良好的准备和经验，以及今后工作中的实际问题的面对和解决。由实训老师给我们布

3、置的课程设计在VisualBasic6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。使我们，在实际的设计中自我提高。1设计思路1.1设计要求为了提高我们对计算机网络知识的了解，和对编程的进一步熟悉，由实训老师给我们布置的课程设计的目标为在VisualBasic6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。本项目是在VisualBasic6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。具体内容是局域网内部的聊天软件，基于VB编程的基础上，利用Winsock控件，选择TCP协议提供可靠的、面向连接的传输控制，选择协议的配置，确定你

4、的计算机名，然后进行连接，最后完成的局域网聊天工具，能很好地实现局域网内部的信息传输方面的各项功能和系统调用。1.2设想实现功能开发局域网聊天工具，设想功能如下：（1）提供基本的文本编辑功能，使用户可以方便的编辑要发送的信息。（2）能够将编辑好的文本信息，利用Winsock控件发送到局域网中指定IP地址的设备上。（3）能够显示通过Winsock控件接收到的信息，并利用IP地址（或用户名）加以区分。（4）实现点对点和广播信息的发送功能。（5）设计一个良好的人机交互环境。TCP/IP协议及网络编程技术设计报告（6）记录并显示每一条信息。（7）实现上网,听音乐,文件传输,记事本等功能（8

5、）在信息中字体颜色,修改背景色。1.3方案实现在VisualBasic6.0环境中，利用Winsock控件开发一个基于局域网的聊天工具。2设计过程2.1软件系统结构2.2具体软件功能本系统已实现的功能如下：（1）实现局域网内，用户可以进行基本的文本编辑功能。（2）可以方便的编辑要发送的信息，修改字体，表情，字体大小，贴图等。（3）在聊天室里进行聊天，为用户提供简单方便的操作界面。（4）实现了背景色修改，聊天记录功能，显示服务器IP，在线人数。（5）选择两个选项按钮，可以选择是选择键发送消息，还是回车发送。（6）可以显示局域网内在线人数，以及服务器地址。2.3服务器PrivateSu

6、bsend_Click()'发送信息IfTextaddr.Text=""ThenMsgBox"请输入对方IP地址！"ElseTCP/IP协议及网络编程技术设计报告Commandcall.Visible=FalseDimTxt3AsStringWinsockclient.SendDataTextsend.TextTxt3=Textsend.TextTextsend.Text=""Txt3="阿狸说:"+time+Chr$(13)+Chr$(10)+""+Txt3If(Textreceive.Text="")ThenTextreceive.Text=Txt3ElseTextreceiv

7、e.Text=Textreceive.Text+Chr$(13)+Chr$(10)+Txt3EndIfTextreceive.SelStart=Len(Textreceive)StatusBar.SimpleText="状态：通信中。。。"EndIfEndSubPrivateSubWinsockclient_DataArrival(ByValbytesTotalAsLong)'socket控件的信息接收DimTxt1AsStringWinsockclient.GetD