易语言验证检测代理IP是否有效源码

易语言验证检测代理IP是否有效源码

.版本 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) .如果真结束 .计次循环尾 ()
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

易语言验证检测代理IP是否有效源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。必填项已用*标注