多线程TCP通讯测试工具

.判断循环首 (s_退出 ＝ 假)
j_字节 ＝ s_TCP [1].接收 (0, j_验证)
.如果真 (j_验证)
.计次循环首 (取文本长度 (到文本 (j_字节)), j_jc_1)
列表框1.加入项目 (取文本中间 (到文本 (j_字节), j_jc_1, 1), )
列表框1.置顶端可见项目 (列表框1.取项目数 () － 1)
列表框1.置焦点项目 (列表框1.取项目数 () － 1)
编辑框2.内容 ＝ 到文本 (列表框1.取项目数 ())
.计次循环尾 ()
.如果真结束

.判断循环尾 ()

.计次循环首 (2, j_jc_1)
s_数据队列处理UDP [j_jc_1].配置 (0)
s_对方信息 [j_jc_1].对方IP ＝ 取IP地址 ()
s_对方信息 [j_jc_1].对方端口 ＝ s_数据队列处理UDP [j_jc_1].取本机端口 ()
.计次循环尾 ()
启动线程 (&队列数据处理, , )
s_TCP服务端.启动 (12345)
' 每个程序最大可以使用的线程数才2048、所以不是越多越好!
s_线程数 ＝ 200
' 监听连接线程
.计次循环首 (s_线程数 ÷ 2, )
启动线程 (&连接线程, , )
.计次循环尾 ()
' 接收线程
.计次循环首 (s_线程数 ÷ 2, j_jc_1)
启动线程 (&数据接收, j_jc_1, )
.计次循环尾 ()