用Winsock作一套聊天室和对话系统.docVIP

在一个单位内部或通过广域协议（如X.25）互联的行业内部都有几十或上万台计算机互联，用Intranet虽然可以建立聊天室，但实现点对点实时对话却比较困难。本人用Winsock和VB自制了一套聊天室和对话系统，特拿来供同行们参考。一·Winsock的主要属性、事件和方法Winsock是不可见控件，控件文件名是MSWINSCK.OCX，全称为Mcirosoftwinsockcontrol，使用时要将此控件调入工具箱。1·属性：Protocol=0//使用TCP协议；RemoteHost//准备连接远程机的IP地址RemotePort//连接远程机的IP端口号（1024—65535之间）LocalPort//本地机监听IP端口号必须与呼叫机端口号相同2·方法：connect//申请连接远程机listen//设置监听accept//建立实际连接senddata//发送数据getdata//接收数据close//关闭连接3·事件：connectionrequest//一方请求连接时另一方产生connect//一方机接受连接时另一方产生close//一方机关闭连接时另一方产生dataArrival//一方发送数据另一方产生error//请求连接失败时产生二·制作方法在一工程中添加两个表单form1（模拟客户端）、for