[Erlang] 纯文本查看 复制代码
.版本 2
.子程序 获取
.局部变量 源码, 文本型
.局部变量 最新网址, 文本型
.局部变量 源码2, 文本型
.局部变量 下载地址1, 文本型
.局部变量 下载地址2, 文本型
.局部变量 真实地址, 文本型
.局部变量 真实结果, 文本型
.局部变量 文本, 文本型, , "0"
.局部变量 文本2, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 结果, 文本型
.局部变量 最新网址2, 文本型, , "0"
编辑框1.内容 ＝ “”
按钮1.禁止 ＝ 真
标签1.标题 ＝ “开始获取迅雷白金会员账号和密码，请耐心等候！”
.如果真 (单选框1.选中 ＝ 真)
源码 ＝ 彗星HTTP读文本 (“http://www.xunleifxs.com/index.php/category/xunleibaijinhuiyuan”, “GET”, , , , )
最新网址 ＝ 取关键内容 (源码, “<div class=” ＋ #引号 ＋ “focus” ＋ #引号 ＋ “><a href=” ＋ #引号, #引号 ＋ “ class=” ＋ #引号 ＋ “thumbnail” ＋ #引号 ＋ “><img src=”)
源码2 ＝ 彗星HTTP读文本 (最新网址, “GET”, , , , )
下载地址1 ＝ 取关键内容 (源码2, “<p><a href=” ＋ #引号, #引号 ＋ “><img src=”)
下载地址2 ＝ 彗星HTTP读文本 (下载地址1, “GET”, , , , )
真实地址 ＝ 取关键内容 (下载地址2, “<a href=” ＋ #引号, #引号 ＋ “ target=”)
标签1.标题 ＝ 子文本替换 (取关键内容 (到文本 (UTF8转ANSI (到字节集 (源码2))), “<title>”, “</title>”), “【xunleifxs.com】”, , , , 真)
真实结果 ＝ 彗星HTTP读文本 (真实地址, “GET”, , , , )
文本 ＝ 分割文本 (真实结果, #换行符, )
.计次循环首 (取数组成员数 (文本), i)
.如果 (寻找文本 (文本 [i], “密码”, , 假) ＞ 0)
编辑框1.加入文本 (子文本替换 (文本 [i], “【迅雷分享社www.xunleifxs.com】”, “”, , , 真) ＋ #换行符)
.否则
.如果结束
.计次循环尾 ()
.如果真结束
.如果真 (单选框2.选中 ＝ 真)
源码 ＝ 彗星HTTP读文本 (“http://www.xunleihuiyuan.net/vip/”, “GET”, , , , )
最新网址 ＝ 取关键内容 (源码, #换行符 ＋ “<a href=” ＋ #引号, #引号 ＋ “ ><span id = ”)
最新网址 ＝ 子文本替换 (最新网址, “#SOHUCS”, , , , 真)
源码2 ＝ 彗星HTTP读文本 (最新网址, “GET”, , , , )
源码2 ＝ 到文本 (UTF8转ANSI (到字节集 (源码2)))
标签1.标题 ＝ 取关键内容 (源码2, “<title>”, “</title>”)
结果 ＝ 取关键内容 (源码2, “post-body formattext” ＋ #引号 ＋ “>”, “<h6 class=”)
文本 ＝ 分割文本 (结果, “<br/>”, )
.计次循环首 (取数组成员数 (文本), i)
.如果 (寻找文本 (文本 [i], “密码”, , 假) ＞ 0)
编辑框1.加入文本 (子文本替换 (文本 [i], “老冰棍”, “”, , , 真) ＋ #换行符)
.否则
.如果结束
.计次循环尾 ()
.如果真结束
.如果真 (单选框3.选中 ＝ 真)
源码 ＝ 彗星HTTP读文本 (“http://www.fenxs.com/category/gongxiang”, “GET”, , , , )
取文本中间内容 (源码, “focus” ＋ #引号 ＋ “><a href=” ＋ #引号, #引号 ＋ “ class=” ＋ #引号 ＋ “t”, 真, 最新网址2, )
源码2 ＝ 彗星HTTP读文本 (最新网址2 [2], “GET”, , , , )
源码2 ＝ 到文本 (UTF8转ANSI (到字节集 (源码2)))
标签1.标题 ＝ 子文本替换 (取关键内容 (源码2, “<title>”, “</title>”), “分享社”, , , , 真)
结果 ＝ 取关键内容 (源码2, “_blank” ＋ #引号 ＋ “>分享社</a></span>”, “<p>转载请注明：”)
文本 ＝ 分割文本 (结果, “<br />”, )
.计次循环首 (取数组成员数 (文本), i)
.如果 (寻找文本 (文本 [i], “密码”, , 假) ＞ 0)
编辑框1.加入文本 (子文本替换 (文本 [i], “分享社”, “”, , , 真) ＋ #换行符)
.否则
.如果结束
.计次循环尾 ()
.如果真结束
按钮1.禁止 ＝ 假
[复制链接]
发表于 2014-8-22 16:03
