HTTP协议取本机登录QQ Cookies

.版本 2

.子程序 GetCookie, 文本型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 Argc_uin, 文本型
.局部变量 Http, WinHttpR
.局部变量 Local_tk, 文本型

Http.Auto (真)
Http.AutoCookies (1)
Http.SetTimeouts (5000, 5000, 5000, 10000)
Http.Open (“GET”, “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”)
Http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
Http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)
Http.SetAcceptLanguage (“zh-CN,zh;q=0.9”)
Http.SetReferer (“https://mail.qq.com/”)
Http.Send ()
Local_tk ＝ Http.CookieGet (“pt_local_token”, 假)
Http.Open (“GET”, “https://localhost.ptlogin2.qq.com:4301/pt_get_st?clientuin=” ＋ Argc_uin ＋ “&callback=ptui_getst_CB&r=0.05617497718955333&pt_local_tk=” ＋ Local_tk)
Http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
Http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)
Http.SetAcceptLanguage (“zh-CN,zh;q=0.9”)
Http.SetReferer (“https://mail.qq.com/”)
Http.Send ()
Http.Open (“GET”, “https://ssl.ptlogin2.qq.com/jump?clientuin=” ＋ Argc_uin ＋ “&keyindex=9&pt_aid=522005705&daid=4&u1=https%3A%2F%2Fmail.qq.com%2Fcgi-bin%2Flogin%3Fvt%3Dpassport%26vm%3Dwpt%26ft%3Dloginpage%26target%3D&pt_local_tk=” ＋ Local_tk ＋ “&pt_3rd_aid=0&ptopt=1&style=25”)
Http.SetUserAgent (“Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/69.0.3497.100 Safari/537.36”)
Http.SetAccept (“text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8”)
Http.SetAcceptLanguage (“zh-CN,zh;q=0.9”)
Http.SetReferer (“https://mail.qq.com/”)
Http.Send ()
.判断开始 (寻找文本 (Http.GetResponseText (), “'0'”, , 假) ≠ -1)
    返回 (Http.Cookies ())
.默认
    返回 (“”)

@我爱小黑屋