周末福利 沐恩迅雷白金会员免费用 v1.5 + 迅雷VIP快搜 2015 （多渠道获取迅雷会员）

benladen

受论坛作者启发，半天时间做了个3渠道简单版迅雷白金会员获取软件，俗名“沐恩迅雷白金会员免费用”
易语言编译，软件简陋请轻拍，不做成列表式的，防止原地址更改源码。
周末没有上线，谢谢大家支持了。

1.5继续修复获取结果。http://pan.baidu.com/share/home?uk=319082174&view=share


沐恩迅雷VIP快搜 2015 下载：http://pan.baidu.com/s/1jNrLc

1.4 沐恩迅雷白金会员免费用 v1.4.rar (582.2 KB, 下载次数: 260)

2015-1-19 09:38 上传

点击文件名下载附件
2015.1更新

1.3 修正下获取结果。
资源来源于网络，不保证每个账号可用和长期使用，而且使用人多可能被踢，所以建议配合防踢补丁。
迅雷白金或vip资源互联网获取：

下面老版本，不推荐 使用
沐恩迅雷白金会员免费用 v1.3.rar (464.38 KB, 下载次数: 1233)

2014-10-10 08:38 上传

点击文件名下载附件
旧版，不要使用

沐恩迅雷白金会员免费用 v1.0.rar (465.83 KB, 下载次数: 1553)

2014-8-22 16:03 上传

点击文件名下载附件
旧版，不要使用

沐恩迅雷白金会员免费用 v1.1.rar (451.26 KB, 下载次数: 845)

2014-8-25 15:34 上传

点击文件名下载附件
旧版，不要使用

沐恩迅雷白金会员免费用 v1.2.rar (495.8 KB, 下载次数: 607)

2014-9-1 10:16 上传

点击文件名下载附件
旧版，不要使用

有朋友需要源码，我提供核心部分吧，因为我用的模块，网络挺好找的。

[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-29 00:14
请问一下楼主，这个东西拿到后是不是必须要改密，否则就会被别人改密。。。

改不了的，应该都是子帐号。

1774603134

一直能用吗？

1013356744

谢谢LZ......

zzm0709

这么牛，谢谢了

liuyang68

还可以的

92pojie

谢谢楼主分享

趁机爱你的歌

我很赞同！