VB语言对UDP聊天系统设计

1、综合课程设计报告基于UDP协议的聊天系统设计学生姓名：扌旨导教师：所在系：电子系所学专业：电子信息工程年 级：20xx年x月x日基于 UDP 协议的聊天系统设计目录摘 要 第一章 引言 1.1 课题研究的目的 . 1.2 课题研究的意义 第二章 系统分析与总体设计 2 1 系统分析 . 2.2 系统总体设计 第三章 实验实验原理和主要是想 3.1 数据库模块设计 3.2 UDP模块设计第四章 实验模块设计及功能 4.1 数据库的使用 4.2 UDP模块设计总 结 参考文献 致 谢 附 录第一章引言摘要网络设计与实践旨在普及本专业学生网络基础知识与网络应用、管理、维护与开发等基本技能，加 强网络

2、教学的实践环节，培养学生对网络的实际应用能力。经过实训，掌握网络的基本连接方法、In ternet 基本服务配置、Intranet技术、交换机与路由器等网络设备的使用与基本操作及Visual Basic的应用等。1.1实验目的掌握UDP协议，理解协议的深意，学习 VB的编程方法及数据库的一些应用1.2实验原理不论您使用UDP协议或是TCP协议，Win sock控件都可以允许与远程的设备连接，并且在相互之间交换 数据。因此，依据上面的面熟而言，不论您使用的是哪一种协议都可以扮演主机端和客户端的角色。Win sock控件是在同时，当您在使用 Win sock控件的过程中，这个控件不会显示在正在执行

3、的窗体之中。换句话说, 后台运行的一种控件。在执行过程之中，不会具有任何选用、可见的控件。第二章系统分析与总体设计2.1使用VB控件的介绍1.w in sock 2.1 abel ma ndbutt on 4.textbox 5win dowsmediaplayer mon dialog2.2 win sock控件的介绍1.Winsck控件的主要属性属性名说明BytesReceived返回接收的数据，可以用GetData方法来获取它LocalHostName返回本机名LocalIP返回本机IPLocalPort返回或设置本机所用的端口，如果为 0则为随机产生Protocol返回通信所用的协议R

4、emoteHostNamie返回通信对方的计算机名RemoteHostIP返回通信对方的IP? sckClosed （常量为0）：关闭状态? sckOpen （常量为1）：打开状态? sckListening（常量为2）：侦听状态? sckCo nn ectio nPen di ng （常量为 3）：连接状态? sckResolvingHost （常量为4）：解析主机中? sckHostResolved （常量为5）：已解析主机? sckConnecting （常量为6）:正在连接? sckConnected （常量为7）：已经连接? sckClosing （常量为8）：客户端正在关闭? sc

5、kError （常量为9）：连接发生错误2.Wi nsock的主要方法:方法名liste nconnectAcceptsen dDatagetDataClose作用使服务器程序处于侦听状态，等待客户端的连接请求用于客户端向远程发送一个连接请求，语法：Win sock.co nnectIP,Port用于服务器接收一个远程客户端的连接请求，语法：Win sock.Accept requestID用于向远程发送数据，语法：Winsock.sendData数据用于接收远程发送来的数据，语法：Win sock.getData变量关闭通信3.Wi nsock的主要事件：事件名Conn ectDataArr

6、ival说明Connection RequestSen dProgressSen dCompleteErrorClose当服务器接收客户端请求时，服务端发生的事件有数据到达时发生的事件，可以在这个事件中来getData发送 来的数据客户端用Connect方法时服务器发生的事件，可以在这个事件 中来Accept 一个连接请求发送数据中发生的事件，可以在这个事件中来标示当前已经发 送多少数据发送数据完成发生的事件通信发生错误时发生的事件关闭通信时发生的事件第三章 实验实验步骤和主要是想3.1 实验步骤如何选用适用的协议当您准备开始使用 Winsock 控件之前，首要的工作是如何选择适用的协议类型。

7、如同先前所述的， 您可以选择 TCP 协 议或是 UDP 协议中的一种。 但是这两种协议的差异点在哪里呢？虽然， 它们同样可以使用在 Internet 或是 Internet 环境 之中，但是主要的差异在于连接的状态。以下是这两种协议的特点说明：TCP协议是属于面向连接的协议。所谓的面向连接协议是指一一“在您可以交换数据之前，在两个终端 设备之间必须连接成功”。同时，在网络的基础理论之中，都会特别强调TCP具有错误核对的功能。也就是说，在数据的传送过程中，如果发生错误或是数据无法传达对方时，TCP协议将会重复尝试着重新传送数据。因此，核对以及重新传送的能力，因此起传输效率会比 Internet

8、 协议或是巨域网络协议差 一些（ netBIEUI 、IPX、AppleTalk ）。UDP协议是属于无面向连接协议。这种协议为适用在两个设备之间，适用于信息传送以及数据的传输方 面。但是在使用时，必须注意当你将信息送出时，对方可能已经离线，因而无法接收到数据，而您也无 法实时察觉到对方已经离线。此外，使用UDP协议的最大数据传送量，完全取决于网络的传输量。因此, 此种协议较为适用于局域网络。因此，当您在建立应用程序并且选用适当的协议之前，务必先依据应用程序使用的环境来选择适用的协 议。UDP连接的基础在 建立UDP勺应用程序时，其过程会比TCP协议简单许多。这是由于 UDP协议在数据传送之前

9、，可以 不需要特别明确的连接方式。但是，在上述的 TCP连接方式之中，Win socke控件必须设置在“监听 （Linsten ）”状态之下，同时在客户端准备与主机进行连接时，主机端也必须要使用Accept 方法来允许客户端所要求的连接。反观在UDF协、议方面，双方仅仅需要使用 Bind方法，即可与对方连接并且传输数九，因此，UDF协、议连接过程的处理方式确实比TCP简单许多。下面介绍使用UDP协议来传送信息的过程。Winsock 控件的作用简单说就是可以用于两台或多台机器间通信，这里不多说这个控件的作用了，因为 在以后的介绍中我们会了解到这个控件的强大功能的，如可以用来做聊天软件等废话不多说

10、，来看看他有些什么重要的属性、方法和事件吧！在VB6.0中的工具箱里默认情况下是没有这个控件的，添加方法如下：在工具箱上右击，选择部件，然后在部件对话框中选择 Microsoft Winsock Control 6.0 ，后确定即可。如果没有这个复选框的话， 请点击浏览按钮后在打开的添加ActiveX控件对话框选择MSWINSCK.oc后选择打开，再点确定即 可。第四章 实验模块设计及功能4.1数据库的使用数据库的还原及备份：1.新建数据库:Vb _ _Fri SQL Server Ent erprd ne lanAiER-r且匚其立泮砂鶴惟庄團単 a-AlJ去口址Jq.匡s LB陵囹函杂於山

11、E唱云；m KMfsWil 2a I i：rijMji-f 1 SMJ.-粧I用囂强Ml沖L耳(J S_ Swrirtv 乞 旳 UJCMJ tf andiwE. JHJ ZiJPJfiJTKJ立勢厢另-_| HwLa 二巳2 Fat号jcu.回国挪專力S!JtrEi+0V34L Smfvtii MA(D&CAL) (VindikLi Uu ufl iia*rjnbdrlJhrtb 祁询11t pfij- hid TJJT8新建数据库：命名为“ yonghu”敘抿库鳥竹一 yqn-ghu常规徽据文件爭务日志IJ_J 称四：帕 hd数据库挨倉c未知所面若t sfeftn创煙曰期：CD)大小；匚未

12、知）可用空间u)用尸数：耒知）戢上茯数据库备恃，无上孜爭馥日志备特：雅护计划：无排序规则名称：|（服簧器戢认设直）礪定 I 取消帮打开数据库的表:旷| H l ewdce tt sqk. 5MI-VW-F KSQL 5*vtv:e旳尸社！:l叩ii耿gC, JUPt :f*lE闿户Q.IK屈歹 Q仝立目i&ft-三| d.tpr d. yxLl.xla*an 1 a jxar *3 rnic-vsrsd.bo1 ,1嵌曲 1电 AJ 4JW二 Bycflkl 1 t TtEX-iht LA 1 EyE3 3U.*XEd：tiA2J lrC1也曲m sj sabjc-cl 5&4I1 3j &p

13、u r 3 si :na血汕j 3iprAptt liftit Sillm sy ipr: ts4io3 5j*sfelerejiices起帘即ri3 临1电忙Ao列 WfcJhld2u -pin hiu出fwni序蜒 尹蛹.*5.环鱼堆mc-L-1-二L砂4日-4 1洛3 133oa(-0-6 ea：i2妝im 曲吃SOatNhfl 3 却脾200(1-0-6 S3 12accp-n-c j ra. zaXIITB-fl EB 32roo-Q-Q ：n：is用戶D0?-9-q 5 心 刁,十u+ J ff*l-I鱼主吐+ _j支凤at君! 2j fSl 亀 DMm 9知 *2“新建表命名为“

14、 yonghu”fl ft-J I WIJ IH 泸 QU 如比 T龙近耳豺 yqlEIih Util Jk yihrMh K W *刑呼加广 F. a 4 K： A I. JH-ii rUj坛It曰1吕:KHVOL 日rwwr筑if mtzwcri-e-i m：E Ls:厂宵* IL1厶1 IGof! paIfr 序 W4i4E*”f jJ3 斛 y * I LjflEcalmDi!.I im -nrnTH如图：写入一行内容方便写程序G.j J I + . 屮峡殴-Crtfw-ii.Si.Earr uli ii I !Hf 二 r UFE.nL】Jh” *Ft 4 i 1-hCJ-ST -F

15、nncrI口 S.WO riIJV 1 帆 HhMi n ann-r I-Uuf 二 H 亠.* w H4.2 UDP模块设计421实验设计主要是想当本机登录聊天模块时，怎么知道远程计算机是否在线！（1）、应用端口号来判断就是win sock绑定端口，然后发送信息给对方，对方通过发过来的信息的远程端口号，判断该执行那些 命令，然后让软件自动的发送文件给对方！比如登录界面绑定个win sock端口，登录时像整个局域网发送信息，对方接受登录发来的信息，告诉自己上线机子，同时判断发送过来的远程端口，如果端口是登 录发来信息的端口，那么就自动回馈个信息各对方告诉他我也在线！（2）、应用数据库来判断:在

16、数据库中建立表格两行，第一列为默认用户名“ xxx” ,第二列为“ ip地址”。当自己上线时，向 局域网广播自己的ip地址及用户名，本机将在数据库中添加本机ip地址，默认用户名“ xxx”，当登录之后会定时向局域网广播自己的ip地址（时间为1mS。远程计算机进行判断，第一次广播在线后， 远程计算机将在数据库中添加本机的ip地址，本机第二次广播后，远程计算机将收到的ip地址与数据 库中的内容进行比较，存在跳出sub，不再多次显示在线，不存在显示一次并保持与存入数据库。到本 机下线时，远程计算机将删除数据库中的本机ip地址，而本机将删除所有ip地址。4.2.2实验方案一模块设计图1.实验方案一（应

17、用端口号的模块）（1）、登录模块图（2）、发送接受模块图(3)、提示模块图2.实验方案二(应用数据库的模块)(1)、登录模块图右图为该核块扈性圍(2)、登录后的窗体(3)、发送接受模块图i p接燮内冀返回发送内容发送总结经过几天的学习，研究和开发，我们小组选择的课题基本完成。其功能基本符合网络实训的要求，能够查询课 程，添加课程，修改课程等。虽然由于自己知识上的不足，有些地方有少许错误和容错性能比较低，功能还不够完善， 但是还是可以基本完成课程开设系统应有的功能。在实训过程我会到了许多知识，这也是在大学里第一次比较完整的完成一个小项目，虽然过程中遇到了许多困 难，在同学和老师的帮助下一一克服了

18、。通过不断的发现问题，总结问题和解决问题的过程，使我在此次实训设计活 动中不断的提咼，和得到了宝贵的经验。参考文献1、刘兵计算机网络概论中国水利水电出版社2、何玉洁麦中凡.数据库原理及应用.人民邮电出版社3、龚沛曾杨志强陆慰民.Visual Basic程序设计教程.高等教育出版社4、明日科技 高春艳 李俊民 刘斌斌. Visual Basic程序开发范例宝典. 人民邮电出版社致谢这是我们的第最后一次参加实训了，但这门课程实训给我们提供了许多在今后的工作，提供了很好的基础。所以 我很感谢学校对我们的重视，给我了这次实训的机会和良好的实训环境。在这次实训中，我们小组在组长的带领下， 积极工作，各尽

19、所能，顺利的完成了实训任务。在这里，对其他同学的努力，也是不得不提的，大家都是在自己负责 的部分，兢兢业业，非常认真。所以，我们才能得到最后的成功。一个星期的时间很快过去了，虽然董老师为了我们能够更充分的准备给了我们一个月的时间去准备，但是我们一 直都是看资料准备，真正动手去做是在这短短的一个星期的时间。在这次实训的整个完成过程中，我们过的非常充实 和有收获，组长带着我们从看教学视频了解UDP和数据库到看例子了解实践去做，虽然系统并不是非常的完满，但是让我们了解了的知识是丰富的。在此一定要感谢董老师，是他对我们的严格要求锻炼了我们自己去动手去尝试，解决问题的能力，让我们获益匪 浅。只有自己动手

20、试出来的，才真正是自己的。我们的组员也非常团结，认真对待组长分给我们的任务，我们也从中 懂得了团队精神的重要性。很快我们就要大四了，这个学期的实训可能将是我们大学四年的最后一次实训，我们相当重视、珍惜这次机会，而这 次实训的结果将是我们今后我们工作、学习中遇到新的、不会的问题可以从容不迫的面对的一个重要基石，促进我们 不断前进。附录 方案一代码 (应用端口号)(1)、登录模块代码Private Sub Command1_Click()Dim data As StringDim s As Stringdata = 用户: + Text1.Text + IP: + Me.Winsock1.Loca

21、lIPMe.Winsock1.RemoteHost = 55Me.Winsock1.RemotePort = 4601Me.Winsock1.SendData dataMe.Winsock1.RemoteHost = 55Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData datas = Text1.TextMe.Winsock1.RemoteHost = Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData sMe.HideForm1

22、.ShowEnd SubPrivate Sub Command2_Click()Dim data1 As StringDim d As Stringd = Text1data1 = 用户: + Text1 + IP: + Me.Winsock1.LocalIP + 我下线了！IIMe.Winsock1.RemoteHost = 55Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData data1Me.Winsock1.RemoteHost = Me.Winsock1.RemotePort = 4700Me.

23、Winsock1.SendData dUnload Form1Unload Form2Unload Form4End SubPrivate Sub Form_Load()Me.Winsock1.Protocol = sckUDPProtocolMe.Winsock1.Bind 4601Form1.ShowEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim x As StringDim data3 As StringDim data4 As StringMe.Winsock1.GetData xText2 =

24、Me.Winsock1.RemotePortText3 = xIf Text2 = 4601 ThenIf Me.Winsock1.LocalIP = Me.Winsock1.RemoteHostIP Then c = Me.Winsock1.RemoteHostIP data4 = Me.Winsock1.RemoteHost = + c +Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData data3End IfIf Me.Winsock1.RemoteHostIP Me.Winsock1.LocalIP Then c = Me.Winsoc

25、k1.RemoteHostIPdata3 = 用户: + Text1.Text + IP: + Me.Winsock1.LocalIP Me.Winsock1.RemoteHost = + c + Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData data3End IfEnd IfEnd Sub(2)、发送接受模块Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Dim data As StringDim data2 As Str

26、ingDim b As StringDim e As StringIf Text3 = ThenForm1.HideForm4.ShowEnd IfIf Text3 Thene = Text3.Textdata2 = Text2.Textdata = data2 + : + vbCrLf + Text1.TextMe.Winsock1.RemoteHost = + e + Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData dataText4 = Text4 + Text2 + : + vbCrLf + Text1 + vbCrLf + CStr

27、(Now() + vbCrLfText4.SelStart = Len(Text4.Text)Text1.Text = clrEnd IfEnd SubPrivate Sub Command3_Click()If Text7 = ThenCommonDialog1.Action = 3Text4.ForeColor = CommonDialog1.ColorElseIf Text7 = 1 ThenCommonDialog1.Action = 3Text2.ForeColor = CommonDialog1.ColorElseIf Text7 = 2 ThenCommonDialog1.Act

28、ion = 3Text3.ForeColor = CommonDialog1.ColorElseIf Text7 = 3 ThenCommonDialog1.Action = 3ElseIf Text7 = 4 ThenCommonDialog1.Action = 3Text1.ForeColor = CommonDialog1.ColorElseIf Text7 = 5 ThenCommonDialog1.Action = 3Text6.ForeColor = CommonDialog1.ColorEnd IfEnd SubPrivate Sub Command4_Click()If Tex

29、t8 = ThenCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text4.FontSize = CommonDialog1.FontSizeText4.FontBold = CommonDialog1.FontBoldText4.FontItalic = CommonDialog1.FontItalicText4.FontStrikethru = CommonDialog1.FontStrikethruText4.FontUnderline = CommonDialog1.FontUnderlin

30、eText4.ForeColor = CommonDialog1.ColorElseIf Text8 = 1 ThenCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text2.FontSize = CommonDialog1.FontSizeText2.FontBold = CommonDialog1.FontBoldText2.FontItalic = CommonDialog1.FontItalicText2.FontStrikethru = CommonDialog1.FontStriketh

31、ruText2.ForeColor = CommonDialog1.ColorElseIf Text8 = 2 ThenCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text3.FontSize = CommonDialog1.FontSizeText3.FontBold = CommonDialog1.FontBoldText3.FontItalic = CommonDialog1.FontItalicText3.FontStrikethru = CommonDialog1.FontStriket

32、hruText3.FontUnderline = CommonDialog1.FontUnderlineText3.ForeColor = CommonDialog1.ColorElseIf Text8 = 3 ThenCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text4.FontSize = CommonDialog1.FontSizeText4.FontBold = CommonDialog1.FontBoldText4.FontItalic = CommonDialog1.FontItal

33、icText4.FontStrikethru = CommonDialog1.FontStrikethruText4.FontUnderline = CommonDialog1.FontUnderlineText4.ForeColor = CommonDialog1.ColorElseIf Text8 = 4 ThenCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text1.FontSize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1

34、.FontBoldText1.FontItalic = CommonDialog1.FontItalicText1.FontStrikethru = CommonDialog1.FontStrikethruText1.FontUnderline = CommonDialog1.FontUnderlineText1.ForeColor = CommonDialog1.ColorElseIf Text8 = 5 ThenCommonDialog1.Flags = cdlCFBoth Or cdlCFEffectsCommonDialog1.Action = 4Text6.FontSize = Co

35、mmonDialog1.FontSizeText6.FontBold = CommonDialog1.FontBoldText6.FontItalic = CommonDialog1.FontItalicText6.FontStrikethru = CommonDialog1.FontStrikethruText6.FontUnderline = CommonDialog1.FontUnderlineText6.ForeColor = CommonDialog1.ColorEnd IfEnd SubPrivate Sub Form_Load()Me.Winsock1.Protocol = sc

36、kUDPProtocolMe.Winsock1.Bind 4700Text4.Locked = TrueText6.Locked = TrueEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim x As StringDim d As StringDim c As Stringc = Me.Winsock1.LocalIPMe.Winsock1.GetData xText5 = Me.Winsock1.RemotePortIf Text5 = 4601 ThenIf Me.Winsock1.LocalIP =

37、Me.Winsock1.RemoteHostIP ThenText6 = End IfIf Me.Winsock1.LocalIP Me.Winsock1.RemoteHostIP ThenWindowsMediaPlayer1.Controls.playIf Me.Winsock1.RemoteHostIP ThenText6 = Text6 + x + vbCrLf + + CStr(Now() + vbCrLfText6.SelStart = Len(Text6.Text)End IfIf = Me.Winsock1.RemoteHostIP Th

38、enText2 = xEnd IfEnd IfEnd IfIf Text5 = 4700 ThenWindowsMediaPlayer2.Controls.playText4 = Text4 + x + vbCrLf + CStr(Now() + vbCrLfText4.SelStart = Len(Text4.Text)End IfIf Text5 = 4605 ThenText3 = xEnd IfEnd Sub3）、提示模块Private Sub Command1_Click()Me.HideForm1.ShowDim c As Stringc = Text1.TextMe.Winsoc

39、k1.RemoteHost = Me.Winsock1.RemotePort = 4700Me.Winsock1.SendData cEnd SubPrivate Sub Form_Load()Me.Winsock1.Protocol = sckUDPProtocolMe.Winsock1.Bind 4605End Sub 附录 2 方案二代码( 应用数据库)(1) 、登录模块图Public y As StringPrivate Sub Command1_Click()Dim data As String上线了！data = 用户名 : + Text1.Text + vbCr

40、Lf + IP: + Me.Winsock1.LocalIP + Me.Winsock1.RemoteHost = 55Me.Winsock1.RemotePort = 4900Me.Winsock1.SendData datay = Text1.TextUnload MeForm3.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Me.Winsock1.Protocol = sckUDPProtocolText1.Text = End Sub(2) 、登录后的窗

41、体Public con As New ADODB.ConnectionDim str As StringPublic rs As ADODB.RecordsetDim sql As StringPrivate Sub Command1_Click()Form1.ShowEnd SubPrivate Sub Command2_Click()Set rs = New ADODB.Recordsetrs.Open yonghu, con, adOpenKeyset, adLockPessimisticDim data1 As String + vbCrLfdata1 = 用户名 : + Form2.

42、y + vbCrLf + ip: + Me.Winsock2.LocalIP + 下线了！Me.Winsock2.RemoteHost = 55Me.Winsock2.RemotePort = 4300 rs.MoveFirstDo Until rs.EOFIf rs.Fields(1) 1 Thenrs.Delete adAffectCurrentEnd Ifrs.MoveNextLoopUnload MeForm2.ShowEnd SubPrivate Sub Command3_Click()If Text3.Text = 4600 Thenc = Text2.Te

43、xt + vbCrLfdata = 用户名 : + Form2.y + vbCrLf + ip: + Me.Winsock1.LocalIP + 在线！Me.Winsock1.RemoteHost = + c + Me.Winsock1.RemotePort = 4900Me.Winsock1.SendData dataEnd IfEnd SubPrivate Sub Form_Load()Me.Winsock1.Protocol = sckUDPProtocolMe.Winsock1.Bind 4900Me.Winsock2.Protocol = sckUDPProtocol Me.Wins

44、ock2.Bind 4300Text4.Locked = Truecon.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False; _& Initial Catalog=yonghu;Data Source=(local)con.OpenSet rs = New ADODB.Recordsetrs.ActiveConnection = conrs.CursorLocation = adUseClientrs.CursorType = adOpenDynamicrs.L

45、ockType = adLockBatchOptimisticrs.Source = yonghurs.Open , , , , adCmdTableEnd SubPrivate Sub Timer1_Timer()Timer1.Interval = 1000Dim data As Stringdata = 用户: + Form2.y + vbCrLf + IP: + Me.Winsock1.LocalIP + 在线！Me.Winsock1.RemoteHost = 55Me.Winsock1.RemotePort = 4900Me.Winsock1.SendData dataEnd SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)Dim x As StringDim data As StringDim c As Strin