简单的TCP通讯相关例程开源

完成TCP服务器

修改[客户进入.客户离开.数据到达]函数。修改TCP服务器窗口消息为类调用

完成TCP客户端

加载套接字库 版本2
WSAStartup (合并整数 (2, 2), 局部_套接字)

全局_TCP服务器回调 ＝ 到整数 (参_网络事件回调事件)
全局_TCP服务器窗口句柄 ＝ 参_窗口句柄
' 设置窗口信息
全局_TCP服务器窗口函数 ＝ SetWindowLong (全局_TCP服务器窗口句柄, #GWL_WNDPROC, 到整数 (&Tcp服务器窗口消息处理))
.如果真 (全局_服务句柄 ＞ 0)
closesocket (全局_服务句柄)
.如果真结束
' 创建套接字
全局_服务句柄 ＝ socket (#PF_INET, #SOCK_STREAM, #IPPROTO_TCP)
.如果真 (全局_服务句柄 ≤ 0)
返回 (假)
.如果真结束
局部_套接字地址.sin_family ＝ #PF_INET
局部_套接字地址.sin_port ＝ htons (参_端口号)
' 绑定所有IP
局部_套接字地址.sin_addr ＝ inet_addr (“0.0.0.0”)
.如果真 (bind (全局_服务句柄, 局部_套接字地址, 16) ＝ -1)
返回 (假)