网站无限分页生成xml吸引蜘蛛来抓取工具源码

.如果真 (到文本 (小时) ＋ 到文本 (分钟) ＝ “00”)
是否 ＝ 假
.如果真结束
.如果真 (小时 ＝ 到整数 (编辑框3.内容) 且 是否 ＝ 假)
文件号 ＝ 打开文件 (取运行目录 () ＋ “/目录.txt”, , )
目录列表 ＝ 分割文本 (读入文本 (文件号, ), #换行符, )
关闭文件 (文件号)
现在年月日 ＝ 取现在时间 (假)
.计次循环首 (取数组成员数 (目录列表), e) ' 目录个数循环
标签2.标题 ＝ “当前正在生成” ＋ 到文本 (e) ＋ “/” ＋ 到文本 (取数组成员数 (目录列表))
ROBOTS ＝ “”
.计次循环首 (到整数 (编辑框4.内容), b) ' 生成xml的个数循环
内容 ＝ “”
.计次循环首 (到整数 (编辑框5.内容), c) ' url条数循环
内容 ＝ 内容 ＋ “” ＋ #换行符 ＋ “http://” ＋ 文本_取右边 (目录列表 [e], “\”) ＋ “/” ＋ 编辑框6.内容 ＋ 到文本 (月) ＋ 到文本 (日子) ＋ 干扰字符 () ＋ 编辑框7.内容 ＋ “” ＋ #换行符 ＋ “” ＋ 现在年月日 ＋ “” ＋ #换行符 ＋ “daily” ＋ #换行符 ＋ “0.8” ＋ #换行符 ＋ “” ＋ #换行符
.计次循环尾 ()
写到文件 (目录列表 [e] ＋ “/” ＋ 名字 [b], 到字节集 (xml头 ＋ 内容 ＋ xml尾))
ROBOTS ＝ ROBOTS ＋ “Sitemap:http://” ＋ 文本_取右边 (目录列表 [e], “\”) ＋ “/” ＋ 名字 [b] ＋ #换行符
.计次循环尾 ()
写到文件 (目录列表 [e] ＋ “/robots.txt”, 到字节集 (“User-agent: *” ＋ #换行符 ＋ “Allow: /” ＋ #换行符 ＋ ROBOTS))
程序_延时 (1)
处理事件 ()
.计次循环尾 ()
标签2.标题 ＝ 到文本 (日子) ＋ “号生成完毕！”
是否 ＝ 真
.如果真结束
程序_延时 (50000)