请问支持库的POP3 邮件接收是不是不能用到线程里面

剧终0616

做的一个软件，WIN10正常，WIN7奔溃，，排除到POP3这个线程 接收邮箱验证码这里，奔溃出现在这一大堆代码。。是不是不用再线程里面用POP3，，这个线程是单线程，队列循环登录邮箱获取邮件。。

如果不能线程运行，有没有替代方案？

hao1997

不能多线程  要用第三方法  https://bbs.125.la/forum.php?mod ... 5&highlight=ssl

神女软件定制

不能多线程
简单的原理：
你连接pop了，也没返回个句柄什么的，
后面操作，他怎么知道该操作哪个？

不是线程安全的，要用第三方的

lzht88

.版本 2
.支持库 internet

.如果真 (窗口2.选择框_QQ邮箱.选中 ＝ 真)
    .循环判断首 ()
        计次 ＝ 计次 ＋ 1
        登录状态 ＝ 连接发信服务器 (“smtp.qq.com”, 25, 窗口2.编辑框_QQ账号.内容, 窗口2.编辑框_QQ授权码.内容, 3000)
        .如果真 (登录状态 ＝ 真)
            发送状态 ＝ 发送邮件 (主题, 正文, 窗口2.编辑框_收件邮箱.内容, , , 窗口2.编辑框_QQ账号.内容, )
        .如果真结束
        .如果真 (计次 ＞ 5)
            运行日志 (“【” ＋ 币种名称 ＋ “】” ＋ “邮箱提醒发送失败”)
            跳出循环 ()
        .如果真结束

        延时 (3000)
        处理事件 ()
    .循环判断尾 (发送状态 ≠ “”)
    .如果真 (发送状态 ＝ “”)
        写配置项 (取当前目录 () ＋ “\” ＋ “dp.ini”, 币种名称, “邮箱功能”, “yes”)
        运行日志 (“【” ＋ 币种名称 ＋ “】” ＋ “邮箱提醒发送成功”)

剧终0616

神一样的女人 发表于 2022-3-30 15:06
不能多线程
简单的原理：
你连接pop了，也没返回个句柄什么的，

我的意思是多线程这边，直接把邮箱密码压入一个队列 ，然后在另一条线程弹出队列这样一个个登录，是单线程模式，这样就崩溃。。是不是不能在线程里面执行，，单线程也不行。

神女软件定制

剧终0616 发表于 2022-3-30 17:52
我的意思是多线程这边，直接把邮箱密码压入一个队列 ，然后在另一条线程弹出队列这样一个个登录，是单线 ...

不是，可以在其他线程运行，崩溃是你没有弄许可证吧

剧终0616

神一样的女人 发表于 2022-3-30 17:57
不是，可以在其他线程运行，崩溃是你没有弄许可证吧

我队列弹出邮箱账号 密码，不需要许可证吧，是一条死循环线程，检测队列是否有内容，有的话就弹出一个个计次循环登录 获取，关闭邮箱这样！

神女软件定制

剧终0616 发表于 2022-3-30 18:30
我队列弹出邮箱账号 密码，不需要许可证吧，是一条死循环线程，检测队列是否有内容，有的话就弹出一个个 ...

不同线程，读写一个队列？就需要许可证

剧终0616

神一样的女人 发表于 2022-3-30 18:44
不同线程，读写一个队列？就需要许可证

.版本 2
.支持库 eGrid
.支持库 pop3
.支持库 spec

        局_邮箱登录 ＝ 邮箱_连接服务器 (局_邮箱, 局_邮箱密码)
        .判断开始 (局_邮箱登录 ＝ 假)
            高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, “登录失败，子母账号对应的邮箱密码或授权码错误”)
            高级表格_店铺管理_店铺列表.置数据 (局_行号, 21, #表格常量.文本型, “1111”)
        .默认
            高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, “邮箱登录成功”)
            局_计次 ＝ 0
            局_计次总数 ＝ 15
            局_收到邮件 ＝ 假
            .判断循环首 (真)
                局_计次 ＝ 局_计次 ＋ 1
                .如果真 (局_计次 ≠ 1)
                    邮箱_连接服务器 (局_邮箱, 局_邮箱密码)
                .如果真结束

                .如果真 (局_计次 ＞ 局_计次总数)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|超时，原因可能为虾皮发送邮箱延时，没有接收到邮件”)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 21, #表格常量.文本型, “1111”)
                    跳出循环 ()
                .如果真结束

                高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|获取首封邮件内容中”)
                邮箱_获取邮件 (局_邮件总数, , )
                .如果真 (局_邮件总数 ≤ 0)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|没有邮件，等待3秒重新获取”)
                    程序_延时 (3000, )
                    到循环尾 ()
                .如果真结束
                程序_延时 (1000, )
                邮箱_接收邮件 (局_邮件总数, 局_邮件信息)
                局_邮件标题 ＝ 编码_utf8到gb2312 (局_邮件信息.取主题 ())
                局_邮件时间 ＝ 时间_到时间戳 (局_邮件信息.取日期 (), 真, 真)
                局_邮件内容 ＝ 局_邮件信息.取超文本内容 ()
                局_邮件内容 ＝ 文本_取出中间文本 (局_邮件内容, “<b>”, “</b>”, , )
                局_发件人 ＝ 局_邮件信息.取发件人地址 ()  ' subaccount@shopee.com’
                调试输出 (局_邮件标题, 局_邮件时间, 局_邮件内容, 局_发件人, 局_邮件总数)
                .如果真 (局_邮件标题 ＝ “” 或 局_发件人 ＝ “”)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|正在检测邮箱首封邮件：标题发件人内容为空”)
                    程序_延时 (3000, )
                    到循环尾 ()

                .如果真结束

                .判断开始 (局_发件人 ≠ “subaccount@shopee.com”)
                    ' 高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|正在检测邮箱首封邮件：发件人非subaccount@shopee.com过滤，循环获取中”)
                    程序_延时 (3000, )
                    到循环尾 ()
                .判断 (局_邮件标题 ≠ “Your_Email_OTP_Verification_Code”)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|正在检测邮箱首封邮件：邮件标题不符合过滤掉，循环获取中”)
                    程序_延时 (3000, )
                    到循环尾 ()
                .判断 (到整数 (时间_取现行时间戳 (真)) － 到整数 (局_邮件时间) ＞ 60 × 15)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|正在检测邮箱首封邮件：邮件时间超过15分钟不符合过滤掉，循环获取中”)
                    程序_延时 (3000, )
                    到循环尾 ()
                .默认

                    局_收到邮件 ＝ 真
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 12, #表格常量.文本型, 到文本 (局_计次) ＋ “/” ＋ 到文本 (局_计次总数) ＋ “|已经收到有效邮件，正在尝试登录,邮箱验证码为” ＋ 局_邮件内容 ＋ “，若子店铺太多登录会很慢，建议分几个子账号管理”)
                    高级表格_店铺管理_店铺列表.置数据 (局_行号, 21, #表格常量.文本型, 局_邮件内容)
                    跳出循环 ()
                .判断结束
                程序_延时 (3000, )
            .判断循环尾 ()

剧终0616

神一样的女人 发表于 2022-3-30 18:44
不同线程，读写一个队列？就需要许可证

测试后发现WIN7确实无论多线程还是单线程会崩溃。。自己封装了POP3协yi已经可以支持多线程了。！