求51社区POST登录源码

714490742 · 发表于 2014-7-24 19:47:13

地址：http://game.51.com/hazg/
测试账号qaazz0002 q123456

苍龙 · 发表于 2014-7-24 19:47:14

子程序名	返回值类型	公开	备注
子程序_51社区登录
参数名	类型	参考	可空	数组	备注
登录名称	文本型
登录密码	文本型

变量名	类型	静态	数组	备注
url	文本型
Cookies	文本型
str	文本型
json	类_json
callback	文本型
errno	文本型
message	文本型
user	文本型

网页_清除Cookie (“51.com”)
url ＝ “http://game.51.com/hazg/”
网页_访问_对象 (url, 0, , Cookies)
callback ＝ “jsonp” ＋时间_取现行时间戳 ()
url ＝ “http://passport.51.com/login.5p?callback=” ＋ callback ＋ “&_=” ＋时间_取现行时间戳 () ＋ “&passport_51_jsonp=true&passport_51_user=” ＋编码_URL编码 (登录名称, 真, 假) ＋ “&passport_51_password=” ＋登录密码＋ “&version=2012&passport_51_ishidden=0&passport_auto_login=1”
str ＝编码_URL解码 (到文本 (网页_访问_对象 (url, 0, , Cookies)), 假)
json.解析 (文本_取出中间文本 (str, callback ＋ “(”, “)”))
errno ＝ json.取通用属性 (“errno”)
message ＝ json.取通用属性 (“message”)
user ＝ json.取通用属性 (“data.user”)
json.清除 ()

如果真 (errno ＝ “” 或到整数 (errno) ＞ 0)

信息框 (“登录失败！”, 0, )

如果真 (message ≠ “ok”)

信息框 (“登录失败！”, 0, )

如果真 (message ＝ “ok” 且 user ≠ “”)

信息框 (“欢迎您” ＋ user ＋ #换行符＋ “登录成功！”, 0, )