.版本 2 .支持库 iext .程序集 窗口程序集_启动窗口 .程序集变量 正则, 正则表达式类 .程序集变量 许可证, 线程许可证 .程序集变量 采集句柄, 整数型 .程序集变量 检测句柄, 整数型 .程序集变量 n, 整数型 .程序集变量 线程数, 整数型 .程序集变量 国内, 逻辑型 .子程序 _按钮_提取_被单击 ' ============ www.sanye.cx =============-- ’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx ’三叶资源网官方④群：72857039 ' 投稿邮箱：[email protected] ' ============ =====================-- ’专注易语言，按键精灵等编程源码分享的网站 ’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐， ’版权归原作者所有，仅供学习和研究使用。 ’转载本站提供的资源请勿删除本说明文件。 ' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。 ' ============ www.sanye.cx =============-- ' 本源码来自三叶资源网(www.sanye.cx) 线程_销毁 (检测句柄) 许可证 ＝ 线程_创建许可证 () 超级列表框1.全部删除 () .判断开始 (组合框_代理类型.现行选中项 ＝ 0) 采集句柄 ＝ 线程_启动 (&国内高匿代理, ) .判断 (组合框_代理类型.现行选中项 ＝ 1) 采集句柄 ＝ 线程_启动 (&国内普通代理, ) .判断 (组合框_代理类型.现行选中项 ＝ 2) 采集句柄 ＝ 线程_启动 (&国外高匿代理, ) .判断 (组合框_代理类型.现行选中项 ＝ 3) 采集句柄 ＝ 线程_启动 (&国外普通代理, ) .默认 .判断结束 n ＝ 0 .子程序 国内高匿代理 .局部变量 i, 整数型 .局部变量 url, 文本型 url ＝ “//www.xicidaili.com/nn/” 国内 ＝ 真 .计次循环首 (到整数 (编辑框_页数.内容), i) 线程_启动多参_文本型 (&提取代理, i, url) .计次循环尾 () .子程序 国内普通代理 .局部变量 i, 整数型 .局部变量 url, 文本型 url ＝ “//www.xicidaili.com/nt/” 国内 ＝ 真 .计次循环首 (到整数 (编辑框_页数.内容), i) 线程_启动多参_文本型 (&提取代理, i, url) .计次循环尾 () .子程序 国外高匿代理 .局部变量 i, 整数型 .局部变量 url, 文本型 url ＝ “//www.xicidaili.com/wn/” 国内 ＝ 假 .计次循环首 (到整数 (编辑框_页数.内容), i) 线程_启动多参_文本型 (&提取代理, i, url) .计次循环尾 () .子程序 国外普通代理 .局部变量 i, 整数型 .局部变量 url, 文本型 url ＝ “//www.xicidaili.com/wt/” 国内 ＝ 假 .计次循环首 (到整数 (编辑框_页数.内容), i) 线程_启动多参_文本型 (&提取代理, i, url) .计次循环尾 () .子程序 提取代理 .参数 ID, 整数型 .参数 地址, 文本型 .局部变量 返回数据, 文本型 .局部变量 s, 整数型 .局部变量 i, 整数型 .局部变量 url, 文本型 线程_初始化COM库 () 线程_进入许可区 (许可证) url ＝ 地址 ＋ 到文本 (ID) 返回数据 ＝ 网页_访问S (url) .如果 (国内 ＝ 真) 正则.创建 (#提取_西刺国内, 返回数据) .否则 正则.创建 (#提取_西刺国外, 返回数据) .如果结束 .计次循环首 (正则.取匹配数量 (), i) n ＝ n ＋ 1 s ＝ 超级列表框1.插入表项 (, 到文本 (n), , , , ) 超级列表框1.置标题 (s, 1, 正则.取子匹配文本 (i, 1)) 超级列表框1.置标题 (s, 2, 正则.取子匹配文本 (i, 2)) 超级列表框1.置标题 (s, 3, 正则.取子匹配文本 (i, 3)) .计次循环尾 () 线程_退出许可区 (许可证) 线程_取消COM库 () .子程序 _按钮_导出_被单击 .局部变量 i, 整数型 .局部变量 数据, 文本型 .如果真 (超级列表框1.取表项数 () ＝ 0) 返回 () .如果真结束 .计次循环首 (超级列表框1.取表项数 (), i) 数据 ＝ 数据 ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “:” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ #换行符 .计次循环尾 () .如果真 (通用对话框_导出.打开 () ＝ 假) 返回 () .如果真结束 写到文件 (通用对话框_导出.文件名, 到字节集 (数据)) .子程序 _按钮_验证_被单击 .局部变量 i, 整数型 .如果真 (超级列表框1.取表项数 () ＝ 0) 信息框 (“请先提取IP”, 0, , ) .如果真结束 .如果真 (超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 4) ≠ “”) .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.置标题 (i － 1, 4, “”) .计次循环尾 () .如果真结束 线程_销毁 (采集句柄) 检测句柄 ＝ 线程_启动 (&验证代理1) .子程序 验证代理1 .局部变量 索引, 整数型 .判断循环首 (超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 4) ＝ “”) .如果 (线程数 ＜ 到整数 (编辑框_线程数.内容)) 线程_启动 (&验证代理2, 索引) 超级列表框1.置标题 (索引, 4, “正在验证”) 索引 ＝ 索引 ＋ 1 线程数 ＝ 线程数 ＋ 1 .否则 延时 (1000) .如果结束 .判断循环尾 () .子程序 验证代理2 .参数 索引, 整数型 .局部变量 返回数据, 文本型 .局部变量 代理地址, 文本型 代理地址 ＝ 超级列表框1.取标题 (索引, 1) ＋ “:” ＋ 超级列表框1.取标题 (索引, 2) 返回数据 ＝ 网页_访问S (“//www.baidu.com”, , , , , , , , , , 代理地址) 寻找文本 (返回数据, “>百度一下，你就知道”, , 假) .如果 (寻找文本 (返回数据, “>百度一下，你就知道”, , 假) ＝ -1) 超级列表框1.置标题 (索引, 4, “失败”) .否则 超级列表框1.置标题 (索引, 4, “成功”) .如果结束 线程数 ＝ 线程数 － 1 .子程序 _复制IP_被选择 置剪辑板文本 (超级列表框1.取标题 (超级列表框1.现行选中项, 1)) .子程序 _超级列表框1_鼠标右键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 .如果真 (超级列表框1.现行选中项 ≠ -1) 弹出菜单 (右键, , ) .如果真结束 .子程序 __启动窗口_创建完毕 .如果真 (系统_是否已联网 ()) 返回 () .如果真结束 信息框 (“网络连接失败！”, 0, , ) 销毁 () .子程序 _按钮1_被单击 .局部变量 i, 整数型 .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.置标题 (i － 1, 0, 到文本 (i)) .如果真 (超级列表框1.取标题 (i － 1, 4) ≠ “成功”) 超级列表框1.删除表项 (i － 1) .如果真结束 .计次循环尾 ()