邮箱登陆源码 三种登陆方式获取cookies和SID

邮箱登陆源码  三种登陆方式获取cookies和SID

.版本 2
.支持库 spec

.子程序 初始化

图片框1.图片 ＝ l.获取二维码 ()
时钟1.时钟周期 ＝ 2000

.子程序 _时钟1_周期事件
.局部变量 数据, 文本型
.局部变量 状态, 整数型

状态 ＝ l.获取状态 (数据)
调试输出 (数据)
.判断开始 (状态 ＝ 2)
    调试输出 (“登录成功”, l.Get_QQ ())
    调试输出 (“Cookies”, l.Get_cookies ())
    调试输出 (“SID”, l.Get_Sid ())
    时钟1.时钟周期 ＝ 0
.默认

.判断结束


.子程序 _图片框1_被双击, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ l.获取二维码 ()
时钟1.时钟周期 ＝ 2000

.子程序 _按钮1_被单击
.局部变量 QQ, 文本型
.局部变量 CK, 文本型
.局部变量 SID, 文本型

本机获取 (QQ, CK, SID)
调试输出 (CK, SID)

.子程序 本机获取, , 公开
.参数 _qq, 文本型
.参数 _cookies, 文本型
.参数 _sid, 文本型
.局部变量 返回的数据, 文本型
.局部变量 正则, 正则表达式类
.局部变量 clientkey, 文本型
.局部变量 返回协议头, 文本型
.局部变量 网页地址, 文本型
.局部变量 i, 整数型
.局部变量 本机QQ, 文本型, , "0"

返回的数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://localhost.ptlogin2.qq.com:4300/pt_get_uins?callback=ptui_getuins_CB&r=0.7478418888058513&pt_local_tk=0.3858416392467916”, , , “pt_local_token=0.3858416392467916;”, _cookies, , , , , , , ))
正则.创建 (“account” ＋ #引号 ＋ “:” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “,” ＋ #引号 ＋ “client_type” ＋ #引号 ＋ “:.*?,” ＋ #引号 ＋ “face_index” ＋ #引号 ＋ “:.*?,” ＋ #引号 ＋ “gender” ＋ #引号 ＋ “:.*?,” ＋ #引号 ＋ “nickname” ＋ #引号 ＋ “:” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “,” ＋ #引号 ＋ “uin” ＋ #引号 ＋ “:” ＋ #引号 ＋ “(.*?)” ＋ #引号 ＋ “,” ＋ #引号 ＋ “uin”, 返回的数据)
.计次循环首 (正则.取匹配数量 (), i)
    加入成员 (本机QQ, 正则.取子匹配文本 (i, 1))
.计次循环尾 ()
.如果真 (取数组成员数 (本机QQ) ＞ 0)
    _qq ＝ 本机QQ [1]
    网页_访问_对象 (“http://localhost.ptlogin2.qq.com:4300/pt_get_st?clientuin=” ＋ _qq ＋ “&callback=ptui_getst_CB&r=0.15739138866774738&pt_local_tk=0.3858416392467916”, , , “pt_local_token=0.3858416392467916;”, _cookies)
    clientkey ＝ 网页_取单条Cookie (_cookies, “clientkey”, 真)
    网页_访问_对象 (“https://ssl.ptlogin2.qq.com/qqmail?pt_clientver=5457&pt_src=1&keyindex=9&Fun=clientread&ADUIN=” ＋ _qq ＋ “&ADSESSION=iii&ADTAG=jjj&clientuin=” ＋ _qq ＋ “&clientkey=” ＋ clientkey ＋ “&ptlang=2052&httptype=0&ADUIN=” ＋ _qq ＋ “&ADSESSION=1534026188&ADTAG=CLIENT.QQ.5485_Mysrv.0&ADPUBNO=26601”, , , _cookies, _cookies, , 返回协议头, , 真, , , , , , , , )
    网页地址 ＝ 文本_取出中间文本 (返回协议头, “Location: ”, #换行符)
    网页_访问_对象 (网页地址, , , _cookies, _cookies, , 返回协议头, , 真)
    网页地址 ＝ 文本_取出中间文本 (返回协议头, “Location: ”, #换行符)
    网页_访问_对象 (网页地址, , , _cookies, _cookies, , 返回协议头, , 真)
    _sid ＝ 文本_取出中间文本 (返回协议头, “sid=”, “&”)
.如果真结束


.子程序 _按钮2_被单击
.局部变量 账号, 文本型
.局部变量 密码, 文本型

账号 ＝ 编辑框1.内容
密码 ＝ 编辑框2.内容
QQ邮箱账号密码登陆 (账号, 密码)

.子程序 QQ邮箱账号密码登陆
.参数 账号, 文本型
.参数 密码, 文本型
.局部变量 cookies, 文本型
.局部变量 login_sig, 文本型
.局部变量 R, 文本型
.局部变量 URL, 文本型
.局部变量 str, 文本型
.局部变量 ptvfsession, 文本型
.局部变量 PTUI文本, 文本型
.局部变量 密匙P, 文本型
.局部变量 js, 类_脚本组件
.局部变量 数据2, 文本型
.局部变量 verifycode数据, 文本型
.局部变量 临时数组文本, 文本型, , "0"
.局部变量 vcode_v1数据, 文本型
.局部变量 randsalt数据, 文本型
.局部变量 返回的数据, 文本型
.局部变量 登陆数据, 文本型
.局部变量 最终登陆数据, 文本型
.局部变量 返回协议头, 文本型
.局部变量 SID, 文本型

网页_访问_对象 (“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_xmail4366af.css”, , , cookies, cookies, , , , , , , , , , , , )
login_sig ＝ 网页_取单条Cookie (cookies, “pt_login_sig”, 真)
.如果真 (取文本长度 (账号) ＞ 10)
    账号 ＝ “@” ＋ 账号
.如果真结束
R ＝ 生成时间戳 ()
URL ＝ “https://ssl.ptlogin2.qq.com/check?regmaster=&pt_tea=2&pt_vcode=1&uin=” ＋ 账号 ＋ “&appid=522005705&js_ver=10291&js_type=1&login_sig=” ＋ login_sig ＋ “&u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D&r=” ＋ R ＋ “&pt_uistyle=25”
str ＝ 到文本 (网页_访问_对象 (URL, , , cookies, cookies, ))
ptvfsession ＝ 网页_取单条Cookie (cookies, “ptvfsession”, 真)
.如果真 (ptvfsession ＝ “”)
    信息框 (“非常用IP或者滑块。 账号无法在本机登陆”, 0, , )
    返回 ()
.如果真结束
PTUI文本 ＝ 文本_取出中间文本 (str, “ptui_checkVC(”, “)”)
临时数组文本 ＝ 分割文本 (PTUI文本, “,”, )
vcode_v1数据 ＝ 文本_取出中间文本 (临时数组文本 [1], “'”, “'”)
verifycode数据 ＝ 文本_取出中间文本 (临时数组文本 [2], “'”, “'”)
数据2 ＝ 文本_取出中间文本 (临时数组文本 [3], “'”, “'”)
randsalt数据 ＝ 文本_取出中间文本 (临时数组文本 [5], “'”, “'”)
js.执行 (#JS加密)
密匙P ＝ js.计算表达式 (“getpass('” ＋ 密码 ＋ “','” ＋ 数据2 ＋ “','” ＋ verifycode数据 ＋ “')”)
URL ＝ “https://ssl.ptlogin2.qq.com/login?u=” ＋ 账号 ＋ “&verifycode=” ＋ verifycode数据 ＋ “&pt_vcode_v1=” ＋ vcode_v1数据 ＋ “&pt_verifysession_v1=” ＋ ptvfsession ＋ “&p=” ＋ 密匙P ＋ “&pt_randsalt=” ＋ randsalt数据 ＋ “&u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Freadtemplate%3Fcheck%3Dfalse%26t%3Dloginpage_new_jump%26vt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D%26account%3D1301964694&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=3-22-” ＋ 时间_取现行时间戳 () ＋ “&js_ver=10291&js_type=1&login_sig=” ＋ login_sig ＋ “&pt_uistyle=25&aid=522005705&daid=4”
返回的数据 ＝ 编码_Utf8到Ansi (网页_访问_对象 (URL, , , cookies, cookies, #协议头 ＋ cookies, , , , , , , , , , , ))
调试输出 (返回的数据)
.如果真 (寻找文本 (返回的数据, “登录成功！”, , 假) ≠ -1)
    URL ＝ 文本_取出中间文本 (返回的数据, “https://ssl.ptlogin2.mail.qq.com”, “&pt_3rd_aid=0”)
    URL ＝ “https://ssl.ptlogin2.mail.qq.com” ＋ URL ＋ “&pt_3rd_aid=0”
    登陆数据 ＝ 到文本 (网页_访问_对象 (URL, , , cookies, cookies, , , , 真))
    URL ＝ “https://mail.qq.com/cgi-bin/login?vt=passport&vm=wpt&ft=loginpage&target=”
    最终登陆数据 ＝ 到文本 (网页_访问_对象 (URL, , , cookies, cookies, , 返回协议头, , 真, , , , , , , , ))
    SID ＝ 文本_取出中间文本 (返回协议头, “sid=”, “&”)
    调试输出 (cookies, SID)
.如果真结束


.子程序 生成时间戳, 文本型
.局部变量 对象, 对象
.局部变量 x, 文本型

对象.创建 (“ScriptControl”, )
对象.写属性 (“Language”, “JScript”)
对象.数值方法 (“ExecuteStatement”, “function time(){return Math.random()}”)
.判断循环首 (取文本长度 (x) ≠ 17)
    x ＝ 对象.通用方法 (“Run”, “time”, ).取文本 ()
    .如果真 (取文本左边 (x, 1) ≠ “0”)
        x ＝ “0” ＋ x
    .如果真结束

.判断循环尾 ()
对象.清除 ()
返回 (x)

@wanliyingxiap