套接字类搭建Socket5简易服务器源码

.如果真 (cData ＝ { 5, 2, 0, 2 } 或 cData ＝ { 5, 1, 0 }) ' 验证socket5
网络套接字.发送 (参_服务句柄, { 5, 0 })
.如果真结束
.如果真 (取字节集左边 (cData, 4) ＝ { 5, 3, 0, 1 }) ' 测试s5
网络套接字.发送 (参_服务句柄, { 5, 0, 0, 1, 0, 0, 0, 0, 255, 255 })
.如果真结束
.如果真 (取字节集左边 (cData, 4) ＝ { 5, 1, 0, 1 })
_端口 ＝ ntohs_ (指针到短整数 (取变量数据地址 (cData) ＋ 8))
_地址 ＝ inet_ntoa_ (指针到整数 (取变量数据地址 (cData) ＋ 4))
调试输出 (“链接到目标WEB服务器:”, _地址, _端口)
局_代理句柄 ＝ 网络套接字.创建 ()
.如果真 (网络套接字.连接 (局_代理句柄, _地址, _端口)) ' 完成于WEBSERVER服务器之间的链接
.如果真 (网络套接字.发送 (参_服务句柄, { 5, 0, 0, 1 })) ' 通知对方客户端，我已经连接成功，可以与我进行数据交流！
局_数据指针 ＝ 申请内存 (8, )
写到内存 (局_代理句柄, 局_数据指针, ) ' 与WEB服务器的通信
写到内存 (参_服务句柄, 加 (局_数据指针, 4), ) ' 与代理者通信
.如果真 (启动线程 (&线程_启动转发数据, 局_数据指针, )) ' 接下来的数据接收和发送，都由该线程负责
S5_转发数据 (参_服务句柄, 局_代理句柄)