scooterwest邮件大站协议多线程源码

.版本 2
.支持库 edroptarget
.支持库 iext
.支持库 shell

.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 线程池, 鱼刺类_线程池Ex
.程序集变量 集_线程句柄, 整数型

.子程序 __启动窗口_创建完毕

' ============   www.sanye.cx  =============--
’本站收录资源，如有密码，默认解压密码都为：www.sanye.cx
’三叶资源网官方④群：72857039
' 投稿邮箱：[email protected]
' ============ =====================--
’专注易语言，按键精灵等编程源码分享的网站
’三叶资源网收集的软件和源码，大部分为软件作者或网友推荐，
’版权归原作者所有，仅供学习和研究使用。
’转载本站提供的资源请勿删除本说明文件。
' 本站提供资源只可供研究使用，请在下载24小时内删除，勿用于商业用途，由此引起一切后果与本站无关。
' ============   www.sanye.cx  =============--
' 本源码来自三叶资源网(www.sanye.cx)
拖放对象1.注册拖放控件 (取窗口句柄 ())
未闻花名_2_有阴影 (取窗口句柄 ())
批量_编辑框_读取配置 (_启动窗口, “puma”)
' 大量邮件协议出售 QQ：1831600006

.子程序 _按钮2_被单击

超级列表框1.表项 ＝ {  }

.子程序 _按钮6_被单击

按钮6.禁止 ＝ 真
按钮3.禁止 ＝ 真
集_线程句柄 ＝ 线程_启动 (&线程池, , )

.子程序 线程池
.局部变量 线程数, 整数型
.局部变量 执行数量, 整数型
.局部变量 创建状态, 逻辑型
.局部变量 投递计次, 整数型
.局部变量 可用线程, 整数型

线程数 ＝ 到整数 (编辑框_并行线程.内容)
执行数量 ＝ 超级列表框1.取表项数 ()
.如果真 (线程数 ＞ 执行数量)
    线程数 ＝ 执行数量
.如果真结束
创建状态 ＝ 线程池.创建 (线程数, 线程数, , 真, )

.如果真 (创建状态 ＝ 假)
    信息框 (“线程创建失败,请重试”, 0, , )
    返回 ()
.如果真结束
投递计次 ＝ 1
.判断循环首 (投递计次 ≤ 执行数量)
    可用线程 ＝ 线程池.取_空闲线程数 ()
    .判断循环首 (可用线程 ＝ 0)
        .如果真 (线程池.取_状态 () ≠ 1)
            返回 ()
        .如果真结束
        处理事件 ()
        程序_延时 (50, )
        可用线程 ＝ 线程池.取_空闲线程数 ()
    .判断循环尾 ()

    .如果真 (投递计次 ％ 5 ＝ 1)
        超级列表框1.保证显示 (投递计次 － 1)
    .如果真结束

    线程池.投递任务 (&工作线程, 投递计次, )
    原子_递增 (投递计次)
    程序_延时 (50, )
    处理事件 ()
.判断循环尾 ()
.判断循环首 (线程池.取_是否空闲 () ＝ 假)
    .如果真 (线程池.取_状态 () ≠ 1)
        返回 ()
    .如果真结束
    程序_延时 (100, )
.判断循环尾 ()
线程池.销毁 (, , )

.子程序 工作线程
.参数 id, 整数型
.局部变量 url, 文本型
.局部变量 提交数据, 文本型
.局部变量 收件人邮箱, 文本型
.局部变量 发件人邮箱, 文本型
.局部变量 邮件标题, 文本型
.局部变量 邮件内容, 文本型
.局部变量 收件人姓名, 文本型
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 response, 文本型

超级列表框1.置标题 (id － 1, 2, “准备发送”)
收件人邮箱 ＝ 编码_URL编码 (超级列表框1.取标题 (id － 1, 1), 真, 真)
邮件内容 ＝ 编码_URL编码 (编辑框_邮件内容.内容, 真, 真)
局_网址 ＝ “https://www.scooterwest.com/sendfriend/product/sendmail/id/593/”
局_方式 ＝ 1
ADD_数据包.添加 (“form_key”, “xutCDDnIiq1dZMms”)
ADD_数据包.添加 (“sender%5Bname%5D”, 邮件内容)
ADD_数据包.添加 (“sender%5Bemail%5D”, “admin%40q1831600006.com”)
ADD_数据包.添加 (“sender%5Bmessage%5D”, “admin”)
ADD_数据包.添加 (“form_key”, “xutCDDnIiq1dZMms”)
ADD_数据包.添加 (“recipients%5Bname%5D%5B0%5D”, “%E6%82%A8%E6%9C%89%E4%B8%80%E4%B8%AA%E5%BF%AB%E9%80%92%E6%AD%A3%E5%9C%A8%E6%B4%BE%E9%80%81%E4%B8%AD...”)
ADD_数据包.添加 (“recipients%5Bemail%5D%5B0%5D”, 收件人邮箱)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3”)
ADD_协议头.添加 (“cache-control”, “no-cache”)
ADD_协议头.添加 (“content-length”, “237”)
ADD_协议头.添加 (“content-type”, “application/x-www-form-urlencoded”)
ADD_协议头.添加 (“cookie”, “searchReport-log=0; _nx-nocache=1; private_content_version=661241dea465cd2adc5b8e302295b5a1; PHPSESSID=5392c65c80a861a6d512b7ada1f17abb; form_key=xutCDDnIiq1dZMms; _ga=GA1.2.111138989.1586273195; _gid=GA1.2.551375027.1586273195; _gat=1; mage-cache-storage=%7B%7D; mage-cache-storage-section-invalidation=%7B%7D; mage-cache-sessid=true; mage-messages=; autocomplete=%7B%7D; autocomplete-provider=%7B%7D; section_data_ids=%7B%22customer%22%3A1586273227%2C%22compare-products%22%3A1586273227%2C%22last-ordered-items%22%3A1586273227%2C%22cart%22%3A1586273227%2C%22directory-data%22%3A1586273227%2C%22review%22%3A1586273227%2C%22instant-purchase%22%3A1586273227%2C%22wishlist%22%3A1586273227%2C%22recently_viewed_product%22%3A1586273227%2C%22recently_compared_product%22%3A1586273227%2C%22product_data_storage%22%3A1586273227%2C%22paypal-billing-agreement%22%3A1586273227%2C%22checkout-fields%22%3A1586273227%2C%22collection-point-result%22%3A1586273227%2C%22messages%22%3Anull%7D”)
ADD_协议头.添加 (“origin”, “https://www.scooterwest.com”)
ADD_协议头.添加 (“pragma”, “no-cache”)
ADD_协议头.添加 (“referer”, “https://www.scooterwest.com/sendfriend/product/send/id/593/”)
ADD_协议头.添加 (“sec-fetch-mode”, “navigate”)
ADD_协议头.添加 (“sec-fetch-site”, “same-origin”)
ADD_协议头.添加 (“sec-fetch-user”, “?1”)
ADD_协议头.添加 (“upgrade-insecure-requests”, “1”)
ADD_协议头.添加 (“user-agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.108 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
超级列表框1.置标题 (id － 1, 2, “发送完毕！”)
程序_延时 (到整数 (编辑框2.内容), 1)

.子程序 功能_网页访问, 文本型, , 本命令由【精易网页调试助手】生成，请配合精易模块使用。
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 ADD_数据包, 类_POST数据类
.局部变量 局_提交数据, 文本型
.局部变量 ADD_协议头, 类_POST数据类
.局部变量 局_提交协议头, 文本型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型

局_网址 ＝ “https://www.scooterwest.com/sendfriend/product/sendmail/id/593/”
局_方式 ＝ 1
ADD_数据包.添加 (“form_key”, “xutCDDnIiq1dZMms”)
ADD_数据包.添加 (“sender%5Bname%5D”, “fajianren”)
ADD_数据包.添加 (“sender%5Bemail%5D”, “admin%40q1831600006.com”)
ADD_数据包.添加 (“sender%5Bmessage%5D”, “neirong”)
ADD_数据包.添加 (“form_key”, “xutCDDnIiq1dZMms”)
ADD_数据包.添加 (“recipients%5Bname%5D%5B0%5D”, “shoujianren”)
ADD_数据包.添加 (“recipients%5Bemail%5D%5B0%5D”, “1831600006%40qq.com”)
' 本源码来自三叶资源网(www.sanye.cx)
局_提交数据 ＝ ADD_数据包.获取Post数据 ()
ADD_协议头.添加 (“accept”, “text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3”)
ADD_协议头.添加 (“accept-encoding”, “gzip, deflate, br”)
ADD_协议头.添加 (“accept-language”, “zh-CN,zh;q=0.9”)
ADD_协议头.添加 (“cache-control”, “no-cache”)
ADD_协议头.添加 (“content-length”, “237”)
ADD_协议头.添加 (“content-type”, “application/x-www-form-urlencoded”)
ADD_协议头.添加 (“cookie”, “searchReport-log=0; _nx-nocache=1; private_content_version=661241dea465cd2adc5b8e302295b5a1; PHPSESSID=5392c65c80a861a6d512b7ada1f17abb; form_key=xutCDDnIiq1dZMms; _ga=GA1.2.111138989.1586273195; _gid=GA1.2.551375027.1586273195; _gat=1; mage-cache-storage=%7B%7D; mage-cache-storage-section-invalidation=%7B%7D; mage-cache-sessid=true; mage-messages=; autocomplete=%7B%7D; autocomplete-provider=%7B%7D; section_data_ids=%7B%22customer%22%3A1586273227%2C%22compare-products%22%3A1586273227%2C%22last-ordered-items%22%3A1586273227%2C%22cart%22%3A1586273227%2C%22directory-data%22%3A1586273227%2C%22review%22%3A1586273227%2C%22instant-purchase%22%3A1586273227%2C%22wishlist%22%3A1586273227%2C%22recently_viewed_product%22%3A1586273227%2C%22recently_compared_product%22%3A1586273227%2C%22product_data_storage%22%3A1586273227%2C%22paypal-billing-agreement%22%3A1586273227%2C%22checkout-fields%22%3A1586273227%2C%22collection-point-result%22%3A1586273227%2C%22messages%22%3Anull%7D”)
ADD_协议头.添加 (“origin”, “https://www.scooterwest.com”)
ADD_协议头.添加 (“pragma”, “no-cache”)
ADD_协议头.添加 (“referer”, “https://www.scooterwest.com/sendfriend/product/send/id/593/”)
ADD_协议头.添加 (“sec-fetch-mode”, “navigate”)
ADD_协议头.添加 (“sec-fetch-site”, “same-origin”)
ADD_协议头.添加 (“sec-fetch-user”, “?1”)
ADD_协议头.添加 (“upgrade-insecure-requests”, “1”)
ADD_协议头.添加 (“user-agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/78.0.3904.108 Safari/537.36”)
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , , 局_提交协议头, , , , , , , , , , , )
局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
返回 (局_返回)

.子程序 _按钮3_被单击
.局部变量 str, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 sy, 整数型

通用对话框.初始目录 ＝ 取特定目录 (3)
通用对话框.类型 ＝ 0
通用对话框.过滤器 ＝ “文本文档(TXT)|*.txt”
通用对话框.打开 ()
str ＝ 文本_删除空行 (到文本 (读入文件 (通用对话框.文件名)))
arr ＝ 分割文本 (str, #换行符, )
.计次循环首 (取数组成员数 (arr), 计次)
    .如果真 (arr [计次] ≠ “” 且 寻找文本 (arr [计次], “@”, , 假) ＞ -1)
        sy ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
        超级列表框1.置标题 (sy, 1, 文本_删首尾空 (arr [计次]))
    .如果真结束

    处理事件 ()
.计次循环尾 ()

.子程序 __启动窗口_将被销毁, , , ' 本源码来自三叶资源网(www.sanye.cx)

拖放对象1.撤消拖放控件 (取窗口句柄 ())
批量_编辑框_保存配置 (_启动窗口, “puma”)

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型
.局部变量 str, 文本型
.局部变量 arr, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 sy, 整数型

.如果真 (寻找文本 (接收到的文件路径, “txt”, , 假) ＞ -1)
    str ＝ 文本_删除空行 (到文本 (读入文件 (接收到的文件路径)))
    arr ＝ 分割文本 (str, #换行符, )

    .计次循环首 (取数组成员数 (arr), 计次)
        .如果真 (arr [计次] ≠ “” 且 寻找文本 (arr [计次], “@”, , 假) ＞ -1)
            sy ＝ 超级列表框1.插入表项 (, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , )
            超级列表框1.置标题 (sy, 1, 文本_删首尾空 (arr [计次]))


        .如果真结束

        处理事件 ()
    .计次循环尾 ()


.如果真结束


.子程序 _按钮5_被单击

按钮3.禁止 ＝ 假
按钮6.禁止 ＝ 假
线程_销毁 (集_线程句柄)
线程池.销毁 (, 1000 × 2, 真)

@A调试输出