易语言取本机已登录QQ的源码

易语言取本机已登录QQ的源码

@靳刑天

.版本 2

.程序集 qqLogin
.程序集变量 pt_local_token, 文本型
.程序集变量 cookie, 文本型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

cookie ＝ “”

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 _init, 整数型, 公开, 初始化函数

编码_Utf8到Ansi (网页_访问_对象 (“http://xui.ptlogin2.qq.com/cgi-bin/xlogin?proxy_url=http%3A//qzs.qq.com/qzone/v6/portal/proxy.html&daid=5&&hide_title_bar=1&low_login=0&qlogin_auto_login=1&no_verifyimg=1&link_target=blank&appid=549000912&style=22&target=self&s_url=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&pt_qr_app=%E6%89%8B%E6%9C%BAQQ%E7%A9%BA%E9%97%B4&pt_qr_link=http%3A//z.qzone.com/download.html&self_regurl=http%3A//qzs.qq.com/qzone/v6/reg/index.html&pt_qr_help_link=http%3A//z.qzone.com/download.html”, , , , cookie, , , , , , , , , , , ))
pt_local_token ＝ 文本_取出中间文本 (cookie, “pt_local_token=”, “;”, , )
返回 (0)

.子程序 getQQList, 文本型, 公开, 获取本机登录QQ列表

返回 (编码_Utf8到Ansi (网页_访问_对象 (“http://localhost.ptlogin2.qq.com:4300/pt_get_uins?callback=ptui_getuins_CB&r=0.” ＋ 时间_取现行时间戳 () ＋ “&pt_local_tk=” ＋ pt_local_token, , , cookie, , , , , , , , , , , , )))  ' 获取登录QQ列表

.子程序 doLogin, 文本型, 公开, 登录
.参数 u, 文本型
.局部变量 location, 文本型
.局部变量 str, 文本型

网页_访问_对象 (“http://localhost.ptlogin2.qq.com:4300/pt_get_st?clientuin=” ＋ u ＋ “&callback=ptui_getst_CB&r=0.” ＋ 时间_取现行时间戳 () ＋ “&pt_local_tk=” ＋ pt_local_token, , , cookie, , , location, , 真, , , , , , , )  ' 登录
str ＝ 编码_Utf8到Ansi (网页_访问_对象 (“http://ptlogin2.qq.com/jump?clientuin=” ＋ u ＋ “&keyindex=9&pt_aid=549000912&daid=5&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&pt_local_tk=” ＋ pt_local_token ＋ “&pt_3rd_aid=0&ptopt=1&style=40”, , , cookie, , , location, , 真, , , , , , , ))  ' 授权
网页_访问_对象 (“http” ＋ 文本_取出中间文本 (str, “http”, “',”, , ), , , cookie, , , location, , 真, , , , , , , )  ' 授权
返回 (str)

.子程序 getCookie, 文本型, 公开, 获取cookie

返回 (cookie)