易语言Winsock实现网络聊天室源码

程序结合易语言扩展界面支持库和网络通讯支持库，实现网络聊天室功能。

@易语言论坛

.版本 2
.支持库 spec

.子程序 OnClientMessage
.参数 wparam, 整数型
.参数 lparam, 整数型
.局部变量 len, 整数型
.局部变量 s, 字节集

.判断开始 (lparam ＝ #FD_CONNECT)
    len ＝ GetLastError ()
    .判断开始 (len ≠ 0)
        信息框 (“Error in Connecting”, 0, )
    .默认
        m_bInit ＝ 真
        m_bClient ＝ 真
        m_sShowText.加入文本 (“Having connected to server” ＋ #换行符)
        ' 三叶资源网(www.sanye.cx)
    .判断结束
    返回 ()
.判断 (lparam ＝ #FD_READ)
    s ＝ 取空白字节集 (1024)
    len ＝ recv (m_hSocket, 取变量数据地址 (s), 1024, 0)
    m_sShowText.加入文本 (到文本 (s) ＋ #换行符)
    返回 ()
.判断 (lparam ＝ #FD_WRITE)
    返回 ()
.判断 (lparam ＝ #FD_CLOSE)
    返回 ()