QQ邮箱扫码登录例程源码

部分代码：

.版本 2
.支持库 EThread
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 Cookie_提交, 文本型
.程序集变量 Cookie_返回, 文本型
.程序集变量 Cookie_提交1, 文本型
.程序集变量 qrsig, 文本型
.程序集变量 ptqrtoken, 文本型
.程序集变量 二次登录, 文本型
.程序集变量 名称, 文本型
.程序集变量 qqmailkey, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 返回数据, 文本型

' 返回数据 ＝ 到文本 (网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrlogin?u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D&ptqrtoken=669278738&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=1-0-1589096407876&js_ver=20032614&js_type=1&login_sig=&pt_uistyle=25&aid=522005705&daid=4&”))
返回数据 ＝ 到文本 (网页_访问_对象 (“https://xui.ptlogin2.qq.com/cgi-bin/xlogin?target=self&appid=522005705&daid=4&s_url=https://mail.qq.com/cgi-bin/readtemplate?check=false%26t=loginpage_new_jump%26vt=passport%26vm=wpt%26ft=loginpage%26target=&style=25&low_login=1&proxy_url=https://mail.qq.com/proxy.html&need_qr=0&hide_border=1&border_radius=0&self_regurl=http://zc.qq.com/chs/index.html?type=1&app_id=11005?t=regist&pt_feedback_link=http://support.qq.com/discuss/350_1.shtml&css=https://res.mail.qq.com/zh_CN/htmledition/style/ptlogin_input_for_xmail440503.css”, , , Cookie_返回))
Cookie_提交 ＝ Cookie_返回
' “https://ssl.ptlogin2.qq.com/ptqrlogin?u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D&ptqrtoken=1939981802&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=1-0-1589095127921&js_ver=20032614&js_type=1&login_sig=&pt_uistyle=25&aid=522005705&daid=4&”
获取二维码 ()

.子程序 获取二维码
.局部变量 token, 文本型
.局部变量 JS加密, 类_脚本组件

图片框1.图片 ＝ 网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrshow?appid=522005705&e=2&l=M&s=3&d=72&v=4&t=” ＋ 时间_取随机时间戳 () ＋ “&daid=4&pt_3rd_aid=0”, 0, , Cookie_提交, Cookie_返回)
Cookie_提交 ＝ 网页_Cookie合并更新 (Cookie_提交, Cookie_返回)
qrsig ＝ 文本_取出中间文本 (Cookie_提交, “qrsig=”, “;”)
' token ＝ 文本_取出中间文本 (Cookie_返回, “pt_local_token=”, “;”)
JS加密.执行 (#常量_JS代码)
ptqrtoken ＝ JS加密.运行 (“jsjiami”, qrsig)
启动线程 (&检测二维码状态, , )

.子程序 检测二维码状态
.局部变量 返回文本, 文本型
.局部变量 提示二维码状态, 文本型

.判断循环首 (真)
    返回文本 ＝ 到文本 (编码_Utf8到Ansi (网页_访问_对象 (“https://ssl.ptlogin2.qq.com/ptqrlogin?u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D&ptqrtoken=” ＋ ptqrtoken ＋ “&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=1-0-” ＋ 时间_取现行时间戳 () ＋ “&js_ver=20032614&js_type=1&login_sig=&pt_uistyle=25&aid=522005705&daid=4&”, 0, , Cookie_提交, Cookie_返回)))
    .如果真 (寻找文本 (返回文本, “登录成功”, , 假) ≠ -1)
        Cookie_提交 ＝ 网页_Cookie合并更新 (Cookie_提交, Cookie_返回)
        二次登录 ＝ 文本_取出中间文本 (返回文本, “0','0','”, “','0','”)
        跳出循环 ()
    .如果真结束

    延迟 (1000)
.判断循环尾 ()
调试输出 (二次登录)
二次_登录 ()

.子程序 二次_登录
.局部变量 返回文本, 文本型

返回文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (二次登录, 0, , Cookie_提交, Cookie_返回, , , , 真))
Cookie_提交 ＝ Cookie_返回
Cookie_提交 ＝ 文本_替换 (Cookie_提交, , , , “pt2gguin=;”, “”, “p_skey_forbid=; ”, “”, “p_uin=; ”, “”, “p_skey=; ”, “”, “pt4_token=; ”, “”)
Cookie_提交 ＝ 文本_替换 (Cookie_提交, , , , “ETK=; ”, “”, “airkey=; ”, “”)
' https://mail.qq.com/cgi-bin/readtemplate?check=false&t=loginpage_new_jump&vt=passport&vm=wpt&ft=loginpage&target=&qqmailkey=4cf0f94e64de547024d15837b8e9fb9ce996a0a82160822cde1aeae3cbf5ba6e
' qqmailkey ＝ 编码_Utf8到Ansi (网页_访问_对象 (Cookie_提交, 0, , Cookie_提交))
' 返回文本 ＝ 到文本 (编码_Utf8到Ansi (网页_访问_对象 (“ https://mail.qq.com/cgi-bin/readtemplate?check=false&t=loginpage_new_jump&vt=passport&vm=wpt&ft=loginpage&target=&qqmailkey=” ＋ qqmailkey ＋ “”, 0, , Cookie_提交, )))
调试输出 (返回文本)
获取好友分组 ()

.子程序 发邮件
.局部变量 返回文本, 文本型

返回文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://mail.qq.com/cgi-bin/compose_send?sid=6B_HF_yJ8bAJFT9h”, 1, “1da16015ee8e6b132259e39ec038aef8=566c4d179c5c34436003d7f10e822fb1&sid=6B_HF_yJ8bAJFT9h&from_s=cnew&signtype=0&to=” ＋ 编辑框_收件人 ＋ “&subject=” ＋ 编辑框_主题.内容 ＋ “&content__html=<div>” ＋ 编辑框_正文.内容 ＋ “</div>&[email protected]&savesendbox=1&actiontype=send&sendname=&acctid=0 &separatedcopy=false&s=comm&hitaddrbook=0&selfdefinestation=-1&domaincheck=0&cgitm=” ＋ 时间_取现行时间戳 () ＋ “&clitm=” ＋ 时间_取现行时间戳 () ＋ “&comtm=” ＋ 时间_取现行时间戳 () ＋ “&logattcnt=0&logattsize=0&cginame=compose_send&ef=js&t=compose_send.json&resp_charset=UTF8”, Cookie_提交))

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

发邮件 ()

.子程序 获取好友分组
.局部变量 返回文本, 文本型

' 返回文本 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://mail.qq.com/cgi-bin/laddr_lastlist?sid=6B_HF_yJ8bAJFT9h&encode_type=js&t=addr_datanew&s=AutoComplete&category=hot&resp_charset=UTF8&ef=js&r=” ＋ 时间_取随机时间戳 () ＋ “”, 0, , Cookie_提交))

@兰迪Randy