.版本 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) 返回 ()