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

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

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口
.程序集变量 正则, 正则表达式类
.程序集变量 许可证, 线程许可证
.程序集变量 采集句柄, 整数型
.程序集变量 检测句柄, 整数型
.程序集变量 n, 整数型
.程序集变量 线程数, 整数型
.程序集变量 国内, 逻辑型

.子程序 _按钮_提取_被单击

' ============   www.sanye.cx  =============--
’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx
’三叶资源网官方④群：72857039
' 投稿邮箱：tg@sanye.cx
' ============ =====================--
’专注易语言，按键精灵等编程源码分享的网站
’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐，
’版权归原作者所有，仅供学习和研究使用。
’转载本站提供的资源请勿删除本说明文件。
' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。
' ============   www.sanye.cx  =============--
' 本源码来自三叶资源网(www.sanye.cx)
线程_销毁 (检测句柄)
许可证 ＝ 线程_创建许可证 ()
超级列表框1.全部删除 ()
.判断开始 (组合框_代理类型.现行选中项 ＝ 0)
    采集句柄 ＝ 线程_启动 (&国内高匿代理, )
.判断 (组合框_代理类型.现行选中项 ＝ 1)
    采集句柄 ＝ 线程_启动 (&国内普通代理, )
.判断 (组合框_代理类型.现行选中项 ＝ 2)
    采集句柄 ＝ 线程_启动 (&国外高匿代理, )
.判断 (组合框_代理类型.现行选中项 ＝ 3)
    采集句柄 ＝ 线程_启动 (&国外普通代理, )
.默认

.判断结束
n ＝ 0

.子程序 国内高匿代理
.局部变量 i, 整数型
.局部变量 url, 文本型

url ＝ “http://www.xicidaili.com/nn/”
国内 ＝ 真
.计次循环首 (到整数 (编辑框_页数.内容), i)
    线程_启动多参_文本型 (&提取代理, i, url)
.计次循环尾 ()

.子程序 国内普通代理
.局部变量 i, 整数型
.局部变量 url, 文本型

url ＝ “http://www.xicidaili.com/nt/”
国内 ＝ 真
.计次循环首 (到整数 (编辑框_页数.内容), i)
    线程_启动多参_文本型 (&提取代理, i, url)
.计次循环尾 ()


.子程序 国外高匿代理
.局部变量 i, 整数型
.局部变量 url, 文本型

url ＝ “http://www.xicidaili.com/wn/”
国内 ＝ 假
.计次循环首 (到整数 (编辑框_页数.内容), i)
    线程_启动多参_文本型 (&提取代理, i, url)
.计次循环尾 ()


.子程序 国外普通代理
.局部变量 i, 整数型
.局部变量 url, 文本型

url ＝ “http://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 (“http://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)
    .如果真结束

.计次循环尾 ()

@Richard92