QQ授权登录精易论坛

.版本 2

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

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

' https://ssl.ptlogin2.qq.com/login?u=195796339&verifycode=!SJA&pt_vcode_v1=0&pt_verifysession_v1=b0fa21bd9d5e0ffb430e2598e619b0961e12f467a5b68aafc4c379cb4ce935cc954160f9915aaa08f662bb1cf66e7b344e9298b7b76982a2&p=peH*5YNF9X-zXP5CNo0GU1C0Su5nhREis5bVxi4p7uY8KDZVca4mnSEg3KyqWzX18oYT0qAHnzT2D20dHxpQpknkFB2e4SdUpWl*DU-mFsvlY*71sW9-U3tSnH8ub41*o*lgdXnX5Ka0qSWZyFENUlZ6b-BmokHq-x4uUhslJohKi-PIbgRrZ*F3HRHsgZ0xDgpifAHXYsZ8IjTNWWiTYuvqJt6MVb20SDCoXyXma2CYMXXmihNa6FCXZfgDls9vw0dsSLBje0ucqkzAUuQfR0u1bmJbmnpbwDphVgTPwyJEtVLdzXAp2IQgzALR-2OH6Jr7wQPEGhKV2ldfXWz7dQ__&pt_randsalt=2&u1=https%3A%2F%2Fgraph.qq.com%2Foauth%2Flogin_jump&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=3-10-1487793842584&js_ver=10196&js_type=1&login_sig=kxwy7bevehqbkyJL2iRnsrgLsCDBrk5EUfmu06FzE83VfetFmr*fSPn-FbXEsbSh&pt_uistyle=40&aid=716027609&daid=383&pt_3rd_aid=10000236&
线程_启动 (&子程序1)

.子程序 子程序1
.局部变量 提交地址, 文本型
.局部变量 返回文本, 文本型
.局部变量 返回协议, 文本型
.局部变量 返回Cookie, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 明文帐号, 文本型
.局部变量 明文密码, 文本型
.局部变量 verifycode, 文本型
.局部变量 pt_verifysession_v1, 文本型
.局部变量 login_sig, 文本型
.局部变量 password, 文本型
.局部变量 提交数据, 文本型
.局部变量 state, 文本型
.局部变量 g_tk, 文本型

明文帐号 ＝ “123456687”
明文密码 ＝ “qq1234567”
提交地址 ＝ “https://xui.ptlogin2.qq.com/cgi-bin/xlogin?appid=716027609&daid=383&pt_no_auth=1&style=33&login_text=%E6%8E%88%E6%9D%83%E5%B9%B6%E7%99%BB%E5%BD%95&hide_title_bar=1&hide_border=1&target=self&s_url=https%3A%2F%2Fgraph.qq.com%2Foauth%2Flogin_jump&pt_3rd_aid=10000236&pt_feedback_link=http%3A%2F%2Fsupport.qq.com%2Fwrite.shtml%3Ffid%3D780%26SSTAG%3Dbbs.125.la.appid10000236”
返回文本 ＝ 到文本 (网页_访问 (提交地址, , , , 返回Cookie))
login_sig ＝ 文本_取出中间文本 (返回Cookie, “pt_login_sig=”, “;”)
提交地址 ＝ “https://ssl.ptlogin2.qq.com/check?regmaster=&pt_tea=2&pt_vcode=1&uin=” ＋ 明文帐号 ＋ “&appid=716027609&js_ver=10196&js_type=1&login_sig=” ＋ login_sig ＋ “&u1=https://graph.qq.com/oauth/login_jump&r=0.3349151693561635&pt_uistyle=40”
返回文本 ＝ 到文本 (网页_访问 (提交地址))
清除数组 (临时数组)
文本_取中间_批量 (返回文本, “,'”, “'”, 临时数组)
verifycode ＝ 临时数组 [1]
pt_verifysession_v1 ＝ 临时数组 [3]
password ＝ Getpwd (明文密码, 明文帐号, verifycode)
提交地址 ＝ “https://ssl.ptlogin2.qq.com/login?u=” ＋ 明文帐号 ＋ “&verifycode=” ＋ verifycode ＋ “&pt_vcode_v1=0&pt_verifysession_v1=” ＋ pt_verifysession_v1 ＋ “&p=” ＋ password ＋ “&pt_randsalt=2&u1=https%3A%2F%2Fgraph.qq.com%2Foauth%2Flogin_jump&ptredirect=0&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=2-20-1488108833644&js_ver=10197&js_type=1&login_sig=” ＋ login_sig ＋ “&pt_uistyle=40&aid=716027609&daid=383&pt_3rd_aid=10000236&”
返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (提交地址, , , , 返回Cookie)))
g_tk ＝ Getgtk (文本_取出中间文本 (返回Cookie, “skey=”, “;”))
提交地址 ＝ “http://bbs.125.la/connect.php?mod=login&op=init&referer=http%3A%2F%2Fbbs.125.la%2Fplugin.php%3Fid%3Ddsu_paulsign%3Asign&statfrom=login”
返回文本 ＝ 到文本 (网页_访问 (提交地址, , , , , , 返回协议, 真))
state ＝ 文本_取出中间文本 (返回协议, “&state=”, “&”)
提交地址 ＝ “https://graph.qq.com/oauth2.0/authorize”
提交数据 ＝ “response_type=code&client_id=10000236&redirect_uri=http%3A%2F%2Fbbs.125.la%2Fconnect.php%3Fmod%3Dlogin%26op%3Dcallback%26referer%3Dforum.php&scope=get_user_info%2Cadd_share%2Cadd_t%2Cadd_pic_t%2Cget_repost_list&state=” ＋ state ＋ “&src=1&update_auth=1&openapi=80901010_2010&g_tk=” ＋ g_tk ＋ “&auth_time=” ＋ 时间_取现行时间戳 () ＋ “&ui=13AA9AA6-2879-4632-8DF4-1890949CD73D”
返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (提交地址, 1, 提交数据)))
提交地址 ＝ “http://bbs.125.la/” ＋ 文本_取出中间文本 (返回文本, “window.location.href='”, “'”)
返回文本 ＝ 到文本 (网页_访问 (提交地址))

.子程序 Getpwd, 文本型
.参数 密码, 文本型
.参数 帐号, 文本型
.参数 验证码, 文本型
.局部变量 obj, 类_脚本组件
.局部变量 tmp, 文本型

obj.执行 (#PWD)
tmp ＝ obj.计算表达式 (“getpwd('” ＋ 密码 ＋ “','” ＋ 帐号 ＋ “','” ＋ 验证码 ＋ “')”)
返回 (tmp)

.子程序 Getgtk, 文本型
.参数 value1, 文本型
.局部变量 obj, 类_脚本组件
.局部变量 tmp, 文本型

obj.执行 (#GTK)
tmp ＝ obj.计算表达式 (“getToken('” ＋ value1 ＋ “')”)
返回 (tmp)

@猫乐