查询域名的小工具源码

.计次循环首 (取数组成员数 (数组), i)
局部_文件 ＝ 到文本 (文件是否存在 (取运行目录 () ＋ “\” ＋ 现在时间 ＋ “---” ＋ 编辑框_ip.内容 ＋ “--” ＋ 到文本 (d) ＋ “.txt”))
.如果真 (局部_文件 ＝ “假”)
写到文件 (取运行目录 () ＋ “\” ＋ 现在时间 ＋ “---” ＋ 编辑框_ip.内容 ＋ “--” ＋ 到文本 (d) ＋ “.txt”, 到字节集 (“”))
程序_延时 (10, )
.如果真结束
局部_内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\” ＋ 现在时间 ＋ “---” ＋ 编辑框_ip.内容 ＋ “--” ＋ 到文本 (d) ＋ “.txt”))
程序_延时 (10, )
写到文件 (取运行目录 () ＋ “\” ＋ 现在时间 ＋ “---” ＋ 编辑框_ip.内容 ＋ “--” ＋ 到文本 (d) ＋ “.txt”, 到字节集 (局部_内容 ＋ 数组 [i] ＋ #换行符))
程序_延时 (10, )
处理事件 ()
.计次循环尾 ()
清除数组 (数组)
信息提示 (“显示文本的数量” ＋ 到文本 (s))