用VB设计小型网络管理系统

来源：论坛作者：petery 出处：巧巧读书 2005-11-29 进入讨论组

　　摘要：本文主要讨论基于Internet上的小型网络信息管理系统的基本功能，并提供了其基于WinSock控件的构造方法。

　　　用户登录认证，电子邮件系统，文件传送，消息通知

　　2 Winsock控件介绍

　　Winsock 控件对用户来说是不可见的，它提供了访问 TCP 和 UDP 网络服务的方便途径。Microsoft Access、Visual Basic、Visual C++ 或 Visual FoxPro 的开发人员都可使用它。为编写客户或服务器应用程序，不必了解 TCP 的细节或调用低级的 Winsock APIs。通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去，并且还可双向交换数据。

　　如果创建客户应用程序，就必须知道服务器计算机名或者 IP 地址（RemoteHost 属性），还要知道进行“侦听”的端口（RemotePort 属性），然后调用 Connect 方法。如果创建服务器应用程序，就应设置一个收听端口（LocalPort 属性）并调用 Listen 方法。当客户计算机需要连接时就会发生 ConnectionRequest 事件。为了完成连接，可调用 ConnectionRequest 事件内的 Accept 方法。

　　建立连接后，任何一方计算机都可以收发数据。为了发送数据，可调用 SendData 方法。当接收数据时会发生 DataArrival 事件。调用 DataArrival 事件内的 GetData 方法就可获取数据。

　　为实现Internet上两个远程计算机之间的数据传送，Winsock编程是一个十分便捷、快速的选择。显然，Winsock通信是基于Client/Server模式的，即服务器的Winsock在某端口进行“侦听”服务，等待客户机的申请；那么如何实现两台计算机之间对等数据交换？实现中，可以把生成两个Winsock对象，其中一个作为服务器对象在端口1“侦听”，另外一个作为客户机对象在端口2连接另一台计算机——即每台计算机可以作为服务器，也可以是客户端。

　　VB6.0中，Winsock有两种数据传送格式：字符串型和字节流型；平时的信息交互可以使用字符串型，但由于文件的传送要顾及各种格式的文件，因此文件不能以字符串进行传送，此时以字节流型数据传送可以保证数据完整。

　　方法如下：

　　⑴如果是传送字符串型，发送：Winsock1.SendData strData；接收：Winsock1.GetData strData（strData是字符串String型变量）。

　　⑵如果是传送字节流型，发送：Winsock1.SendData strData()；接收：Winsock1.GetData strData()（strData()是字节数组Dim strData() As BYTE）。

转载保留：http://www.qqread.com/vb/d302107100.html