文档详情

简单局域网聊天工具.doc

发布:2017-11-30约3.93千字共9页下载文档
文本预览下载声明
简单局域网聊天工具 摘要:本项目是在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(
显示全部
相似文档