让自己的电脑变成服务器，易语言远程文件传输器

原理是设置通讯，服务器需要设定端口，客户端需要连接对象，得到文件信息，之后通过分割发送，加上些判断，能实时显示进度条等。

.判断开始 (服务器1.取回数据 () ＝ 头)
按钮1.禁止 ＝ 真
.判断开始 (是否在文件尾 (文件号, ) ＝ 假)
.判断开始 (取文件长度 (文件号) － 取读写位置 (文件号) ＜ 1000)
服务器1.发送数据 (客户, 头 ＋ 读入字节集 (文件号, 取文件长度 (文件号) － 取读写位置 (文件号)), )
.判断 (取文件长度 (文件号) － 取读写位置 (文件号) ≥ 1000)
服务器1.发送数据 (客户, 头 ＋ 读入字节集 (文件号, 1000), )
.默认

.判断结束
进度条1.位置 ＝ 取读写位置 (文件号) ÷ 文件大小 × 100
输出调试文本 (到文本 (取读写位置 (文件号)))
.默认
关闭文件 (文件号)
.判断结束

.判断 (服务器1.取回数据 () ＝ 头 ＋ 头)
按钮1.禁止 ＝ 假
信息框 (“发送完成”, 0, )