自带循环下载文件消耗服务器流量

.如果真 (到整数 (线程.内容) ＜ 1300)
.如果真 (信息框 (“是否启动”, #确认取消钮, “启动后将占用大量网络和内存”, ) ＝ #确认钮)
按钮1.禁止 ＝ 真
重定义数组 (as, 假, 到整数 (线程.内容))
.计次循环首 (到整数 (线程.内容), i)
.如果真 (启动线程 (&循环下载, , as [i]))
编辑框1.内容 ＝ “启动线程：” ＋ 到文本 (i)
.如果真结束
延迟 (1)
.计次循环尾 ()
按钮2.禁止 ＝ 假
编辑框2.内容 ＝ “”
.如果真结束
返回 ()
.如果真结束
信息框2 (“请勿超过1400线程”)