未注册已备案域名批量获取查询工具源码

' 许可证 ＝ 创建进入许可证 ()
.判断循环首 (超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1) ＝ “”)
.如果 (线程数量 ＜ 到整数 (编辑框_线程.内容))
超级列表框1.置标题 (ID表项记录, 1, “查询中...”)
超级列表框1.保证显示 (ID表项记录)
线程ID ＝ 创建线程 (0, 0, &查询线程, 0, 0, 线程ID)
ID表项记录 ＝ ID表项记录 ＋ 1
线程数量 ＝ 线程数量 ＋ 1
延时 (500)
.否则
延时 (1000)
.如果结束

.判断循环尾 ()
' 删除进入许可证 (许可证)
处理数记录 ＝ 0
按钮_查询停止.标题 ＝ “查询”
按钮_暂停继续.禁止 ＝ 真
信息框 (“已完成!”, 0, , )