本例程采用VB编写，使用winsock控件，实现服务器与客户端通信。