用云外归鸟的套接字这段代码该怎么写呢？

yhy

用云外归鸟的套接字实现这段代码的功能该怎么写呢？（现在用ewinsock这个不支持静态编译）
自己老写不对！求高手指教下！

.版本 2
.支持库 eWinSock
.支持库 spec

.程序集 窗口程序集1
.程序集变量 a, 文本型

.子程序 __启动窗口_创建完毕



.子程序 _按钮1_被单击

服务器1.绑定 (6001, “127.0.0.1”)
服务器1.开始监听 ()
运行 (取运行目录 () ＋ “\china_login.mpr -127.0.0.1”, 假, )
延时 (1000)
客户1.连接 (“192.168.1.100”, 6003)
延时 (1000)


.子程序 _服务器1_请求连接
.参数 连接编号, 整数型

服务器1.接受请求 (连接编号)
a ＝ 到文本 (连接编号)
调试输出 (a)


.子程序 _服务器1_数据到达

客户1.发送数据 (服务器1.取回数据 ())
a ＝ “客户端已连接”
调试输出 (a)


.子程序 _服务器1_连接断开

客户1.断开连接 ()
a ＝ “服务器断开连接了”
调试输出 (a)


.子程序 _客户1_数据到达

服务器1.发送数据 (客户1.取回数据 ())
调试输出 (客户1.取回数据 ())