利用Winsock控件实现局域网通信(二)

UDP协议也称为用户数据报文协议，是一个无连接协议。何谓无连接协议?就是说利用此协议连接时，不必象TCP协议那样：需要服务器端侦听，客户机端请求连接，服务器端建立连接后双方才能通信。另外，UDP应用程序可以是客户机，也可以是服务器程序，而不必向TCP应用程序那样必须分别建立客户机程序和服务器程序。

　　用UDP协议来传输信息较TCP协议来说简单的多，它无须侦听(LISTEN)，也无须请求连接(CONNECT)，就象我们平时发信一样，只要写好地址及收信人姓名并发送出去即可。我们可以借此来编写一个局域网中的信息传送程序，下面来简单介绍以下程序中想实现的功能及其基本思想：

　　首先，我们一定想让程序的图标显示在system tray中而不显示在任务栏中吧!这要是自己编程实现可不是太容易，幸好VB光盘中在common/tools/vb/unsupport/systemTray 中有一个现成的程序，我们只要把它编译成systray.ocx 控件，然后在编写自己的程序时添加此控件即可。其使用方法十分简单，它已经定义好了鼠标单击、双击等事件，你只需编写相应的鼠标事件即可，这里不再多说。

　　程序的关键是：UDP协议在通讯时要知道对方的IP和Port，这要如何实现呢?最简单的方法是建立一个配置文件，里面放置了局域网上每台计算机的名字、IP和Port，在程序初始化时读出所有信息，在程序中只要知道向谁通信，读出其对应的IP和Port即可。

　　我们知道了每台计算机的IP和Port，但我们怎样才能知道其它计算机是否在线呢，否则发出信息别人收不到怎么办?我们可以把此程序放在启动菜单中，让其一开机就自动启动，并最小化，放于窗口右下角的system tray中。在程序刚开始运行时，它会自动向它从配置文件中所知道的所有IP发一条信息：“我来了!”，如果有计算机在线，它会自动返回一条信息：“欢迎！”，如此则两机通信成功，它们会分别把对方的名字加入到自己的可通信人名单中去；如果有计算机关机，程序在退出之前会自动向所有人告别：“再见!”，接收到此信息的计算机会自动把发送信息的计算机的名称从自己的可通信人名单中去除。这样，如果某人不在线，你将无法发送信息给它；如果除了你以外，其他人都没有开机，那你的可发送人名单中将没有任何人。而其它人只要一上线，会自动去你那里“登记”，其他人只要一离线，会自动去你那里“告别”，你可以据此知道他人是否正在使用计算机，你甚至可以以此程序来统计他人的每天上机时间，不错吧!

　　好了，一个局域网通信的程序的基本模型已经有了，并不复杂吧!大家赶快动手吧，来享受用自己的程序来聊天的乐趣!

　　不过，要想编写一个出色的程序，不光是要有良好的创意与功能，更重要的是程序的兼容性与容错性。本例中，对错误处理没有做详细的解释，关于这一点，大家可以在Winsock控件的error事件及其帮助中找到满意的答案。

　　另外，还可以从以下几方面来考虑功能的扩充：如传送图形、声音等多媒体信息、局域网互传文件(主动传送)、历史通话记录、系统日志、个人上机时间统计等等，而所有的这一切仅仅取决于你的想象力与你的聪明才智!下面，笔者以传送文件为例来讲一讲其功能实现的代码。

　　你可以把本地的文件(图形、声音等可以先存成临时文件)以二进制文件的方式来打开它，将其内容全部读入一个byte类型的数组中，本地机代码如下：
　　dim myfile () as byte

　　dim position as long

　　open "filename" for binary as #1

　　position=0

　　do while not eof(1)

　　position=positon+1

　　redim preserve myfile (1 to position)

　　get #1,,myfile(position)

　　loop

　　close #1

　　再向远程机传送这个字节数组

　　sckserver.SendData myfile
　　远程机收到这个数组之后，再以二进制文件的方式打开一个新目标文件，将数组内容写入这个新打开的文件，如果是bmp图片就将其放入picture图片框中，如果是wav文件，就播放。这样，局域网中的两个人就可以通过语言、图片、文字来交流了。 　　远程机代码如下：

　　Private sub sckconnect_DataArrival(byval bytestotal as long)

　　dim receivefile(1 to bytestotal)as byte

　　sckconnect.GetData receivefile,vbarray+vbbyte

　　'告诉Winsock控件收到的是字节数组类型的数据

　　open "c:/temp/文件名" for binary as #1

　　for I=1 to bytestotal

　　put #1,,remotearray(I)

　　next I

　　clost #1

　　end sub