.版本 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=//zc.qq.com/chs/index.html?type=1&app_id=11005?t=regist&pt_feedback_link=//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 ()) .默认 返回 (“”)