WinSock模块应用及服务器/客户端例程源码

.子程序 取客户端口, 整数型, 公开, 取客户端口,成功返回客户端口，失败返回-1。
.参数 客户端句柄, 整数型, , 通过“监听（）”得到的客户端句柄。
.局部变量 长度, 整数型
.局部变量 对方地址信息, 套接字地址

对方地址信息.常量 ＝ #PF_INET
长度 ＝ 16
getpeername (客户端句柄, 对方地址信息, 长度)
返回 (ntohs (对方地址信息.端口))

.子程序 异步选择, 逻辑型, 公开, 本函数自动将套接口设置为非阻塞模式
.参数 窗口句柄, 整数型, , 标识一个在网络事件发生时需要接收消息的窗口句柄
.参数 消息值, 整数型, , 在网络事件发生时要接收的消息
.参数 事件, 整数型, , FD_位屏蔽码,用于指明应用程序感兴趣的网络事件集合

.如果真 (WSAAsyncSelect (服务句柄, 窗口句柄, 消息值, 事件) ＝ 0)
    返回 (真)
.如果真结束
返回 (假)