基于VB Winsock 控件的聊天程序

                 

            今天充分利用网络资源,实现了局域网内的聊天程序.其实就是VB中的一个小控件-Winsock控件，Winsock使用了TCP协议和UDP协议,让本地计算机连接到远程的计算机上,在连接结束之前实时地进行数据交换.使用TCP协议时,需要创建一个客户端应用程序,就必须识别服务器的名称或IP地址.应用程序的通信端口随时都将仔细监测对方发出的消息,这是系统进行可靠的连接保证.一旦连接发生,任何一方都可以通过senddata发送和接收数据，并借助getdata把自己的数据分离出来。

      这里我们需要创建两个应用程序,服务器应用程序和客户端应用程序.服务器首先创建一个服务端口号(最好大于2000),并且服务器的应用程序处于工作状态，确保进入监听状态，客户端的应用程序才能开始建立连接，进入正常的通信状态。
     下面的程序主要实现了实时聊天的功能：
1.下图为制作的服务端和客户端的界面。