文件定时备份/传输TCP协议

易语言 2021-08-02 13:12:53

文件定时备份/传输TCP协议

.如果真 (取数组成员数 (客户表) = 0)
编辑框1.加入文本 (“没有客户连接” + #换行符)
返回 ()
.如果真结束
.计次循环首 (到整数 (编辑框3.内容), 计次1)
数据 = 到字节集 (到整数 (计次1)) + 取重复字节集 (到整数 (编辑框2.内容) - 4, 到字节集 (到字节 (取随机数 (0, 9))))
编辑框1.加入文本 (“发送数据;长度:” + 到文本 (取字节集长度 (数据)) + “ MD5:” + 到大写 (取MD5 (数据)) + “ 次数:” + 到文本 (计次1) + #换行符)
.计次循环首 (取数组成员数 (客户表), 计次2)
发送数据 (客户表 [计次2], 数据)
处理事件 ()
.计次循环尾 ()
.计次循环尾 ()