简易的网站扫目录工具

设置在窗口载入事件里。

数据.域名 ＝ 网页_取域名 (链接, , , )
数据.详细域名 ＝ 取http头 (链接) ＋ “://” ＋ 数据.域名 ＋ “/”
加入成员 (程_数据, 数据)
索引 ＝ 取数组成员数 (程_数据)
程_数据 [索引].树形框父项 ＝ 树型框1.加入项目 (, 数据.域名, , , 索引, , )
重定义数组 (程_数据 [索引].链接, 假, 0)
提取有用链接_递归 (索引, 链接)
' 调试输出 (程_数据 [索引].链接)
树型框1.重画 ()
树型框1.扩展 (程_数据 [索引].树形框父项)
状态条1.置文本 (0, “[” ＋ 时间_到文本 (, 1, 3) ＋ “] 扫描完成，共扫描得 ” ＋ 到文本 (取数组成员数 (程_数据 [索引].链接)) ＋ “ 文件，耗时 ” ＋ 到文本 (四舍五入 (取启动时间 () － t, 2)) ＋ “ 秒。”)