局域网之间文件互相传输软件

文件号 ＝ 打开文件 (编辑框1.内容, #读入, )
临时 ＝ 分割文本 (编辑框1.内容, “\”, )
文件名 ＝ 临时 [取数组成员数 (临时)]
文件名长 ＝ 取字节集长度 (到字节集 (文件名))
文件大小 ＝ 取文件长度 (文件号)
移到文件首 (文件号)
头 ＝ 到字节集 (“^&*”)
输出调试文本 (到文本 (取读写位置 (文件号)))
.判断开始 (取文件长度 (文件号) ≤ 1000)
服务器1.发送数据 (客户, 头 ＋ 到字节集 (取文件长度 (文件号)) ＋ 头 ＋ 到字节集 (文件名长) ＋ 头 ＋ 到字节集 (文件名) ＋ 头 ＋ 读入字节集 (文件号, 取文件长度 (文件号)), )

.判断 (取文件长度 (文件号) － 取读写位置 (文件号) ≥ 1000)
服务器1.发送数据 (客户, 头 ＋ 到字节集 (取文件长度 (文件号)) ＋ 头 ＋ 到字节集 (文件名长) ＋ 头 ＋ 到字节集 (文件名) ＋ 头 ＋ 读入字节集 (文件号, 1000), )

.默认
服务器1.发送数据 (客户, 头 ＋ 到字节集 (取文件长度 (文件号)) ＋ 头 ＋ 到字节集 (文件名长) ＋ 头 ＋ 到字节集 (文件名) ＋ 头 ＋ 读入字节集 (文件号, 取文件长度 (文件号) － 取读写位置 (文件号)), )
.判断结束
输出调试文本 (到文本 (取读写位置 (文件号)))
进度条1.位置 ＝ 取读写位置 (文件号) ÷ 文件大小 × 100