|
.版本 2
连接状态 = SSL收件.设置证书文件 (“ClientCert.pem”, “ClientKey.pem”)
.如果真 (连接状态)
连接状态 = SSL收件.连接POP邮箱 (“pop.rambler.ru”, 995)
.如果真 (连接状态)
登录状态 = SSL收件.登录邮箱 (文本_取左边 (邮箱地址, “@”, , ), 邮箱密码)
输出调试文本 (登录状态)
.如果真 (登录状态 = “登录成功”)
邮件数量 = SSL收件.取邮件总数 ()
输出调试文本 (邮件数量)
.如果真 (邮件数量 ≠ 0)
.计次循环首 (邮件数量, i)
邮件内容 = SSL收件.收取指定邮件 (邮件数量 - i + 1)
输出调试文本 (邮件内容)
激活链接 = 文本_取出中间文本 (邮件内容, “following URL=0A=0A”, “=0A”, , )
输出调试文本 (激活链接)
.如果真 (激活链接 ≠ “”)
激活链接 = 子文本替换 (激活链接, 字符 (10), , , , 真)
激活链接 = 子文本替换 (激活链接, 字符 (13), , , , 真)
激活链接 = 子文本替换 (激活链接, “=”, , , , 真)
跳出循环 ()
.如果真结束
.计次循环尾 ()
.如果真结束
.如果真结束
SSL收件.断开连接 ()
.如果真结束
.如果真结束
返回 (激活链接)
批量收取的时候,在收取邮件那卡死 |
|