求助，QQ空间为什么登录不了呢！！各位大神帮忙找下问题。源码

1场烟花

[e]
.版本 2
.支持库 internet
.支持库 script
.支持库 iconv
.支持库 spec

.程序集 窗口程序集1

.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ HTTP读文件 (“http://captcha.qq.com/getimage?uin=98628&aid=549000912&” ＋ 编辑框1.内容)


.子程序 __启动窗口_创建完毕

图片框1.图片 ＝ HTTP读文件 (“http://captcha.qq.com/getimage?uin=98628&aid=549000912&” ＋ 编辑框1.内容)

.子程序 _按钮1_被单击
.局部变量 POST地址, 文本型
.局部变量 POST数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 密码, 文本型

脚本组件1.执行 (#md5)
密码 ＝ 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
密码 ＝ 脚本组件1.运行 (“md5”, 密码 ＋ 到大写 (编辑框3.内容))
POST地址 ＝ “http://ptlogin2.qq.com/login”
POST数据 ＝ “u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ 密码 ＋ “&verifycode=” ＋ 编辑框3.内容 ＋ “ &u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&h=1&ptredirect=0&ptlang=2052&from_ui=1&dumy=&low_login_enable=0®master=&fp=loginerroralert”

返回文本 ＝ 到文本 (HTTP.访问网络 (POST地址, “POST”, , , POST数据, ))
返回文本 ＝ 到文本 (编码转换 (到字节集 (返回文本), #编码_UTF_8, #编码_GB18030, ))
调试输出 (返回文本)

[/e]
麻烦各位大神帮忙看下，就是登录不上去，登录提示网络连接失败，小弟已经研究两天了实在是不行啊，
用到的超级模块，已经打包在附件了还有源码

素顏じ亦傾城ジ

http://bbs.125.la/thread-13633607-1-1.html这里有登录的部分源码.

其实我是怀疑你的编辑框1.内容是不是填错了..  

1场烟花

素顏じ亦傾城ジ 发表于 2013-5-21 11:21
http://bbs.125.la/thread-13633607-1-1.html这里有登录的部分源码.

其实我是怀疑你的编辑框1.内容是不是 ...

没有错 啊，都试了N次了啊 ···

Island

QQ空间用POST登陆?我是GET的~
[e]
.版本 2
.支持库 spec

.子程序 Login, 文本型, 公开
.参数 user, 文本型
.参数 pass, 文本型
.参数 code, 文本型
.参数 pt_uin, 文本型
.参数 cookie, 文本型, 参考
.局部变量 url, 文本型
.局部变量 Bin, 字节集
.局部变量 str, 文本型
.局部变量 http, _Winhttp
.局部变量 session, 文本型
.局部变量 skey, 文本型
.局部变量 arr, 文本型, , "0"

url ＝ “http://ptlogin2.qq.com/login?ptlang=2052&u={user}&p={pass}&verifycode={code}&css=http://imgcache.qq.com/ptcss/b2/sjpt/549000912/qzonelogin_ptlogin.css&mibao_css=m_qzone&aid=549000912&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone&ptredirect=1&h=1&from_ui=1&dumy=&fp=loginerroralert&action=2-25-12707&g=1&t=1&dummy=&js_type=2&js_ver=10009”
pass ＝ QQmd5 (pass, code, pt_uin)
url ＝ 子文本替换 (url, “{user}”, user, , , 真)
url ＝ 子文本替换 (url, “{pass}”, pass, , , 真)
url ＝ 子文本替换 (url, “{code}”, code, , , 真)
Bin ＝ http.GET (url, cookie, , session)
cookie ＝ http.AddCookie (cookie, session)
str ＝ Encoder.Encode (Bin, “utf-8”)
skey ＝ String.Between (cookie, “skey=”, “;”)
g_tk ＝ 计算G_tk (skey)
String.BetweenEx (str, “'”, “'”, arr)
调试输出 (arr)
.如果真 (取数组成员数 (arr) ≠ 6)
    返回 (“登陆异常”)
.如果真结束
返回 (arr [5])
[/e]