vb 聊天源代码基于winsock

本方首先假设服务器端的Winsock控件已被关闭，然后给控件LocalPort分配一个端口。注意的是，不能分配系统服务文件中的友元名称。一旦分配了端口号，将唤醒WinsockDEListen方法。如果连接成功，控件状态是sckListening，如果连接过程中发生了错误，将在txtErr文本框中显示错误信息，检查控件是否处于已被关闭了状态，如果不是，则在接受新的连接，建立了连接，设置isConnectedFlag表示。程序会认为以后的输入数据为聊天内容，如果文本框txtReceive中有数据（不是第一行），此时，需要在各行之间插入VBcrlf换行符。