腾讯QQ企业邮箱POST登录例子

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击
.局部变量 revString, 文本型
.局部变量 revCks, 文本型
.局部变量 revUNmail, 文本型
.局部变量 revSid, 文本型

.如果 (邮箱_登录_腾讯B (编辑框1.内容, 编辑框2.内容, , revString, revCks, revUNmail, revSid))
    调试输出 (“登录成功!”)
    调试输出 (revCks)
    调试输出 (revSid)
.否则
    调试输出 (revString)
.如果结束


.子程序 邮箱_登录_腾讯B, 逻辑型
.参数 usr邮箱帐号, 文本型
.参数 pwd邮箱密码, 文本型
.参数 代理IP, 文本型, 可空
.参数 返回数据, 文本型, 可空
.参数 返回Cookies, 文本型, 可空
.参数 返回未读邮件, 文本型, 可空
.参数 返回Sid, 文本型, 可空
.局部变量 Code, 文本型
.局部变量 Unixtime, 文本型
.局部变量 Split, 文本型, , "0"
.局部变量 提交数据, 文本型
.局部变量 Cks, 文本型
.局部变量 Cks2, 文本型
.局部变量 Sid2, 文本型

Unixtime ＝ 时间_取现行时间戳 (真)
Cks ＝ 子文本替换 (取空白文本 (取文本长度 (pwd邮箱密码)), “ ”, “0”, , , 真)
pwd邮箱密码 ＝ 编码_URL编码 (编码_运行JS代码 (#JsCode, “getpwd”, pwd邮箱密码, Unixtime), 真)
Split ＝ 分割文本 (usr邮箱帐号, “@”, )
提交数据 ＝ “sid=&uin=” ＋ usr邮箱帐号 ＋ “&domain=” ＋ Split [2] ＋ “&logindomain=” ＋ Split [2] ＋ “&aliastype=other&errtemplate=logindomain&loginentry=2&firstlogin=false&starttime=” ＋ 时间_取现行时间戳 () ＋ “&redirecturl=&f=biz&p=” ＋ pwd邮箱密码 ＋ “&delegate_url=&s=&ts=” ＋ Unixtime ＋ “&from=&ppp=&chg=1&qquin=1&pp=” ＋ Cks ＋ “&verifycode=”
Cks ＝ “”
Code ＝ 到文本 (网页_访问_对象 (“https://exmail.qq.com/cgi-bin/login”, 1, 提交数据, , Cks, 子文本替换 (#登录协议头, “[mail]”, usr邮箱帐号, , , 真), , , , , 代理IP))
' 调试输出 (Code)
.如果真 (寻找文本 (Code, “frame_html?sid=”, , 假) ＜ 1)
    返回数据 ＝ “登录失败1”
    返回 (假)
.如果真结束
Sid2 ＝ 文本_取出中间文本 (Code, “sid=”, #引号)
提交数据 ＝ 文本_取出中间文本 (Code, “&r=”, #引号)
Code ＝ 到文本 (网页_访问_对象 (“https://exmail.qq.com/cgi-bin/frame_html?sid=” ＋ Sid2 ＋ “&r=” ＋ 提交数据, , , Cks, Cks2, #跳转协议头, , , , , 代理IP))
.如果真 (寻找文本 (Code, #判断登录, , 假) ＞ 0)
    返回Cookies ＝ 网页_Cookie合并更新 (Cks, Cks2)
    返回未读邮件 ＝ 文本_取出中间文本 (Code, “收件箱中有 ”, “ 封未读邮件”)
    返回Sid ＝ Sid2
    返回数据 ＝ “登录成功”
    ' 调试输出 (Code)
    返回 (真)
.如果真结束
返回数据 ＝ “登录失败2”
返回 (假)

@Patek