局域网聊天传输工具（带VB源码）.docVIP

局域网聊天传输工具(带VB源码) 引言:? ? ? 以前才学VB的时候下载了一个高人写的文件传输工具，觉得很神奇。后来自己慢慢了解了一点VB，慢慢琢磨了那位高人写的程序，对程序作了大部分修改，增加了一个人性化控制和功能，使文件传输工具更加完善了。但是由于最近我们公司要对一部分人屏蔽外网而那些人又非得聊天和传文件，所以就写了这个工具。程序写的时间比较短也没有经过严格测试，肯定存在一些问题，希望大家原谅，更希望有兴趣的朋友更加完善它，由于本人时间有限也只能写到这个程度了，比如对群聊功能的增加，使用LIST来显示计算机名等等，这些本来是很简单的工作我确实是没时间了。以下是对这个程序用到的 主要控件--Winsock控件的一些说明，希望大家对它有个小的了解，这样对接触本程序也不会太陌生，因为时间关系程序没有太多的注释希望大家见谅，如果有什么疑问的可以跟帖。 对于局域网用户中的编程爱好者来说，如果能自己编一个局域网通信程序，那么这一切将是多么美妙！可是，如果要从头开始完全由自己来编写一段用于通信的程序，必须对相关的网络协议及其他的一些较底层的技术有较深入的了解，这可不是一件容易的事。而现在有了Winsock控件，一切就不同了，它已经替你封装了所有烦琐的技术细节，并提供了访问TCP和UDP网络服务的方便途径。你只需通过设置控件的属性并调用其方法就可轻易连接到一台远程计算机中，并且还可以双向交换数据，而这一切都不需你了解TCP的细节或调用低级的Winsock APIs。　　Winsock控件可以供Microsoft Acess、Visual Basic，Visual C++或Visual Foxpro的开发人员使用。本文以Visual Basic 6企业版为开发环境来向大家介绍一下Winsock控件的初步应用。TCP协议即数据传输协议，它允许创建和维护与远程计算机的连接，使其彼此可以进行数据传输。利用TCP协议通讯必须分别建立客户应用程序和服务器应用程序。　　在创建客户应用程序时，必须知道服务器计算机名或其IP地址(存于RemoteHost属性)、及服务器计算机进行侦听的端口(存于RemotePort属性），然后调用Connect方法。　　创建服务器应用程序时，就应相应设置一个侦听端口(LocalPort属性)并调用listen方法。当客户机需要连接时(connect)，就会发生ConnectionRequest事件。为了完成连接，你可以在ConnectionRequest事件中调用Accept方法。建立连接后，任何一方计算机都可以发送、接收对方数据。如果你要发送数据，需调用SendData方法。当接收到数据时，会发生DataArrival事件，调用DataArrival事件中的GetData方法就可以获得对方传送的数据。不过，不知大家注意到没有，上述程序都需要有一台计算机做为服务器，但如果我们的局域网中没有哪台计算机是可以常开的，也就是说，如果服务器端程序没有运行的话，其他客户端程序也没有办法通信。而这种情况却可能是经常出现的!至少，我所用的局域网那就是这样的。难道这样我们就无法享受局域网通信的乐趣了吗？　　不要急，记得吗，我们的Winsock控件还有另一个主角：UDP协议。　　UDP协议也称为用户数据报文协议，是一个无连接协议。何谓无连接协议？就是说利用此协议连接时，不必象TCP协议那样：需要服务器端侦听，客户机端请求连接，服务器端建立连接后双方才能通信。另外，UDP应用程序可以是客户机，也可以是服务器程序，而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。　　下面，来简述一下UDP协议通信的过程：UDP协议中，为了在甲乙两机中传输数据，必须先分别设置两机的LocalPort属性；再将甲机的RemoteHost属性设置为乙机的IP地址，RemotePort属性设置为乙机的LocalPort属性值，此时甲机调用SendData方法就可以传送数据了，乙机同样使用DataArrival事件中的GetData方法来获取甲机发送给乙机的信息。如想乙机向甲机传送数据，只需仿照上面的过程设置即可。　　用UDP协议来传输信息较TCP协议来说简单的多，它无须侦听（LISTEN），也无须请求连接（CONNECT），就象我们平时发信一样，只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序，下面来简单介绍以下程序中想实现的功能及其基本思想：　　首先，我们一定想让程序的图标显示在system tray中而不显示在任务栏中吧！这要是自己编程实现可不是太容易，幸好VB光盘中在common\tools\vb\unsupport\systemTray 中有一个现成的程序，我们只