简单VB聊天程序代码与截图

本次实验是采用TCP协议，服务器程序设置本Scoket的监听端口（LocalPort），然后调用Listen方法；当客户要求建立一个连接时，服务器方产生ConnectionRequest事件，如果服务器想完成连接，则调用Accept方法认可。一旦连接建立成功，双方计算机都能利用SendData方法发送。当接收到数据时，发生DataArrival事件，我们可以在此事件中调用GetData方法接收数据。