易语言QQpost加好友源码

以下是部分代码
.版本 2
.支持库 spec

GetQq (主动添加QQ)
QQ空间页面 ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://user.qzone.qq.com/” ＋ 被添加QQ, , , Cookie))
realname ＝ 文本_取出中间文本 (QQ空间页面, “ownerProfileSummary=[” ＋ #引号, #引号, , )
调试输出 (realname)
G_TK ＝ 计算G_tk (文本_取出中间文本 (Cookie, “skey=”, “;”, , ))
qzonetoken ＝ 文本_取出中间文本 (QQ空间页面, “return ” ＋ #引号, #引号)
提交信息 ＝ “sid=0&ouin=” ＋ 被添加QQ ＋ “&uin=” ＋ 主动添加QQ ＋ “&fuin=” ＋ 被添加QQ ＋ “&m%2F” ＋ 被添加QQ
编码_Utf8到Ansi (网页_访问_对象 (“ ＋ “&g_tk=” ＋ G_TK, 1, 提交信息, Cookie, , ))