用VB创建自己的通信程序

Winsock控件是基于TCP和UDP协议来完成计算机网络之间的通信。下面将详细介绍具体的程序创建过程，让大家更好的了解程序的源代码。

服务器端程序的运行过程是:

(1)服务器端要设置监听端口，即LocalPort属性，作为监听端口的值必须是整数(必须是没有被其他TCP/IP应用使用过的值，不能和系统默认端口冲突)。

(2)使用Listen方法进入监听状态，等待客户端的连接请求。

(3)当客户端发送ConnectionRequest时，服务器产生连接请求事件，事件得到参数equestID。

(4)服务器程序通过accept方法接受客户机requestID请求。这样，服务器程序可以使用SendData方法发送数据。但是，Accept方法必须使用上一步中获得的requestID作为其参数。

(5)当服务器程序接收到数据时，会产生一个DataArrial事件，参数BytesTotal包含接收到的数据字节数。在这种情况下，可以使用GetData方法接收数据。

(6)如果收到Close事件，用Close方法关闭TCP/IP连接。

客户端程序的运行过程是:

(1)在客户端程序中设置Remmotehost属性，以指定服务器程序的主机名。该字符串可以在服务器的“控制面板网络识别计算机”中找到。

(2)设置RemotePort属性，指定服务器程序的监听端口(其设置方法与服务器端类似)。

(3)使用Connect方法向服务器发出连接请求。

(4)当服务器程序接收到客户端程序的请求时，客户端程序生成Connect事件，然后可以通过SendData方法发送数据。

(5)客户端程序接收数据时，会产生DataArrival事件，参数BytesTotal包含接收数据的字节数。同样，您也可以使用GetData方法在此事件中接收数据。

(6)如果客户端程序收到Close，用Close方法关闭连接。

使用说明:

这个程序实现了两台计算机之间的自由通信。先将编译好的程序放入两台联网电脑的启动中，这样每次启动时程序都会自动运行，程序会以最小化的形式出现在任务栏中。当用户使用它时，他们可以通过单击任务栏上的程序图标来激活该程序。一方激活程序后，在“请输入要连接的主机名:”右侧的编辑框中输入要连接的电脑名称，点击“连接”键连接成功。此时，在“接收窗口:”下的编辑框中会出现“连接成功”的提示。然后，您可以在“发送窗口:”下的编辑框中输入您的文字。输入完毕后，按“发送”键，让对方收到你的话。如果对方程序还没有正常化，对方程序会发出提示音，并使任务栏中程序的图标闪烁，直到对方激活程序正常化并与你通话。如果您暂时停止对话，您可以单击程序的最小化按钮来最小化程序。一旦需要再次通话，可以直接激活程序发送。如果对方程序还没有正常化，程序还是会发出提示音，并使启动栏中程序的小图标闪烁，直到对方正常化程序并与你通话。所以，无论什么时候想和对方通话，只要对方开机就可以。需要断开连接时，请按“关闭”键，程序可以自动发送结束消息，让对方知道你已经断开连接，从而结束程序。