利用VB设计聊天室

不帅气少年

不帅气少年

2016-02-19 18:10

给自己一点时间接受自己,爱自己,趁着下午茶的时间来学习图老师推荐的利用VB设计聊天室,过去的都会过去,迎接崭新的开始,释放更美好的自己。
Internet上的聊天室一向是一个吸引人的地方,但多用C语言设计,我用VB设计了一个聊天室,取名为“升达自由论坛”,实际使用证明效果良好。

----Internet上的通讯协议是TCP/IP,Internet上数据传输协议主要有TCP和UDP,TCP是有连接协议,它要求计算机进行对话时必须先建立连接,保证数据传送安全到达目的地。UDP是无连接协议,它只是将信息送到网络上,并不检查数据是否到达了目的地。要进行实时会话,则应该采用TCP协议。本程序采用的协议就是TCP协议。

----程序分服务和客户程序两部分。客户程序启动后首先与服务器连接,连接成功后,随意输入一个名字即可进入聊天室;服务程序则负责维护与每一个客户的连接和数据交换,并且记录下所有聊天内容,及人员名单。由于在会话过程中大家起的都是假名字,不可避免地要有的人讲一些不健康内容,为了保持秩序,服务器程序实现了IP地址跟踪功能。管理人员可以很容易地查找出每一个匿名的计算机名,并对之进行警告或其它处理(下面会进一步介绍)。可保证会话内容的健康。如果服务器程序关闭,则所有客户程序自动关闭。

VB5的Winsock控件

----VB5企业版提供了Winsock控件,要实现两台计算机的对话,可以通过Winsock控件进行。而不需了解更多的数据传输细节,本程序就是通过Winsock进行的。

----Winsock有多种属性、方法和事件,本文只列举出要使用的属性、方法和事件。

----......

----一个Winsock控件可以建立与一个计算机的联接,服务器程序中首先设置一个Winsock控件,将其索引值设为0,以便在运行时动态增减元素,这样可以与多个计算机进行对话。

程序介绍

----服务程序部分

----服务器程序启动时,先设置自己的本地端口,因为有些端口有其固定的作用,如80是WWW端口,故尽可能选择不可能使用的端口,这里我选择了1600。将连接状态设置为假,然后开始进行侦听。当侦听到有计算机要求与服务器进行对话,就接受,并记录下客户机的地址、端口、客户起的匿名,将连接状态设置为真,将上述内容存入一个用户自定义的数组中,进行动态维护。用户自定义数据类型如下:

PrivateTypeActiveUser
  ClientIPAsString记录客户的IP地址
  ClientNameAsString记录客户的匿名
  ClientPortAsInteger记录当前会话的端口
  ClientConnectedAsBoolean
  客户连接状态,True表示已连接,False表示没有连接
  EndType
  

----做完这些工作后,服务器再调入一个新控件,进行新的侦听,如此反复不断。如果有客户退出,则关闭相应的连接。注意不能在客户端关闭连接,否则会产生错误,只能由服务器关闭连接。服务器程序主要对象设置

.
  .
  .
  

----利用上述对象可以实现服务器的各种功能,当然,还可以再加入新控件,以使界面更美观。

----服务程序中三个关键程序段如下:

----1.处理连接请求

----sckServer_ConnectionRequest过程处理连接请求,当远程计算机要求连接时,服务器首先检查用户自定义数组中是否有空闲位置(因为在谈话中途,肯定会有人退出,所以会产生空闲位置),如果有则选择空闲位置给予要求连接的客户,否则将数组维数加一,将之给予请求连接的远程节点。错误处理主要是忽略两个或两个以上的客户同时要求连接时产生的地址冲突现象。

----......

----2.处理处于连接状态的用户发送来的信息

----sckServer_DataArrival过程处理客户端传来的数据。当有数据发送过来后,服务器首先接收数据,调用自定义过程HandleOtherMessage检查是谈话内容还是其它信息,如果是其它信息,则在HandleOtherMessage中进行处理,否则在本过程中进行处理。

----因为Winsock控件将数据首先送至缓冲区,待缓冲区满才发送信息,这显然不能保证适时对话,用Doevents语句可确保Windows将数据及时送出。其中的错误处理程序处理当远程计算机非正常关闭程序时产生的错误,因为此时服务器并不知道它已关闭,仍然向它发送信息,这样就会产生错误,导致服务程序关闭,中断整个谈话。处理方法只是简单地关闭掉该连接即可。

----......

----3.关闭客户连接

----sckServer_Close过程关闭与客户的连接,删除控件,收回系统资源,将该位置的连接状态设置为假,以便有用户请求连接时继续使用。它一般由HandleOtherMessage过程调用

----......

----如何保证聊天内容的健康是一个很重要的方面,在Internet上,我们对谈话内容不健康者,只有将之开除出聊天室。但在局域网上则可以查出是谁谈话不文明(局域网环境为WindowsNT4.0服务器,Windows95工作站)。方法如下:在95工作站上将网络中的TCP/IP协议中的IP地址选项设为动态获得IP地址,在NT服务器上用DHCP管理工具为每一个客户机进行IP地址动态分配。聊天服务程序记录下来了每一个客户的IP地址,我们就可以通过DHCP管理工具很容易地查出某IP地址对应的计算机名,并进行处理。

客户程序部分

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)----客户程序启动时首先设置服务器的地址及端口,这里我直接使用了“192.168.0.2”,这是我的服务器地址,可以在Form_load过程中设置你自己的服务器地址,也可在程序开始时让用户输入服务器地址以增加灵活性。时钟控件用以与远程节点进行自动连接。

----......

----客户程序主要对象设置

----......

----“”显示所有正在聊天室中的用户名

----显示当前的状态(用户名,IP地址及是否密谈)

----与服务器程序一样,这里列出的并非全部的控件,但是已经足以完成工作。

----客户程序中的自定义类MyMessage用来记录自己的信息,

----......

----类中的变量cmdExitClick用来记录用户是否按了退出按钮,如果是按了退出按钮则为真。当用户选择了系统的窗体关闭菜单而没有按退出按钮时将会产生错误,因此用它来记录是如何退出的,如果选择了系统的窗体关闭菜单,则执行一次cmdExit_Click()过程,以确保无误。

----客户退出时,不是简单地关闭自己的Winsock控件,而是发送一个字符串(我采用了一个大家在聊天时很难用到的字符串“=_RE”)给服务器,表明自己要退出,由服务器端关闭连接,进而关闭自身。

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)->

展开更多 50%)
分享

猜你喜欢

利用VB设计聊天室

编程语言 网络编程
利用VB设计聊天室

利用ASP规划聊天室

ASP
利用ASP规划聊天室

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

PHP聊天室技术

PHP
PHP聊天室技术

PHP设计聊天室步步通

PHP
PHP设计聊天室步步通

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

聊天室实现私聊(二)

ASP
聊天室实现私聊(二)

聊天室建设详解三

ASP
聊天室建设详解三

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

防止admin888被远程盗取的简易方法

防止admin888被远程盗取的简易方法

如何屏蔽QQ临时会话

如何屏蔽QQ临时会话
下拉加载更多内容 ↓