QQ空间登录协议实现：易语言篇

这里用到了超级模块的md5算法，和精易模块的访问网络

因为易语言访问网络自动设置cookie，所以如果自己设置访问cookie就有点麻烦了。

编辑框3_验证码的内容可不填。

登录 (编辑框_QQ号.内容, 编辑框_密码.内容, 编辑框_验证码.内容)

.版本 2

.程序集 QQ空间登录协议

.子程序 登录, 文本型
.参数 QQ号, 文本型
.参数 QQ密码, 文本型
.参数 验证码, 文本型, 可空
.局部变量 action, 文本型
.局部变量 文本, 文本型

.如果真 (验证码 ＝ “”)  ' 如果未填写验证码,就取验证码
    验证码 ＝ 是否要验证码 (QQ号)
    .如果真 (验证码 ＝ “1”)
        返回 (“验证码”)
    .如果真结束

.如果真结束
action ＝ “http://ptlogin2.qq.com/login?u=” ＋ QQ号 ＋ “&p=” ＋ 加密 (QQ号, QQ密码, 验证码) ＋ “&verifycode=” ＋ 验证码 ＋ “&aid=1006102&u1=http%3A%2F%2Fid.qq.com%2Findex.html%23myfriends&h=1&ptredirect=1&ptlang=2052&from_ui=1&dumy=&fp=loginerroralert&action=8-57-411578&mibao_css=&t=5