异步I/O模型下的WebSocket Client

.判断开始 (uMsg ＝ #WM_SOCKET)
l_Event ＝ WSAGETSELECTEVENT (lParam)
l_Error ＝ WSAGETSELECTERROR (lParam)
.判断开始 (l_Event ＝ #FD_CONNECT) ' 连接事件
输出调试文本 (“Event：FD_CONNECT”)
.如果真 (l_Error ＝ 0)
输出调试文本 (“ErrorCode：Success”)
.如果真结束

.判断 (l_Event ＝ #FD_WRITE) ' 欲接收写准备好的通知
输出调试文本 (“Event：FD_WRITE”)
.如果真 (l_Error ＝ 0)
输出调试文本 (“ErrorCode：Success”)
.如果真结束

.判断 (l_Event ＝ #FD_READ 或 l_Event ＝ #FD_OOB) ' 收到数据
输出调试文本 (“Event：recv”)
.如果真 (Recv (l_frame))
输出调试文本 (“RECV ：” ＋ 编码_Utf8到Ansi (l_frame.payload_data))
.如果真结束

.判断 (l_Event ＝ #FD_CLOSE)
输出调试文本 (“Event：FD_CLOSE”)
.默认

.判断结束
返回 (-1)
.默认

.判断结束
返回 (CallWindowProcA (m_pRevFunc, hWnd, uMsg, wParam, lParam))