快递单号多线程批量查询

.如果真 (线程数量 ＜ 到数值 (编辑框_线程.内容))
查询序号 ＝ 查询序号 ＋ 1
ID表项记录 ＝ ID表项记录 ＋ 1
线程ID ＝ 线程_启动 (&查询, ID表项记录 － 1, )
超级列表框1.置标题 (ID表项记录 － 1, 2, “正在查询”)
程序_延时 (5, )
线程数量 ＝ 线程数量 ＋ 1