|
8楼
发表于 2013-1-8 23:34:07
|
只看该作者
福建省漳州市
[e]
.版本 2
.支持库 spec
登陆 (“82937108”, “12345”)
.子程序 登陆
.参数 账号, 文本型
.参数 密码, 文本型
.局部变量 返回文本, 文本型
.局部变量 url, 文本型
.局部变量 用户名, 文本型
返回文本 = 到文本 (网页_访问 (“http://passport.jiayuan.com/dologin.php?host=www.jiayuan.com&new_header=1&channel=index”, 1, , , 到字节集 (“channel=200&position=201&name=” + 账号 + “&password=” + 密码)))
url = 文本_取出中间文本 (返回文本, “location.replace('”, “'”)
调试输出 (url)
返回文本 = 编码_URL解码UTF8 (到文本 (网页_访问 (url)))
调试输出 (返回文本)
用户名 = 文本_取出中间文本 (返回文本, “nickname” + #引号 + “:” + #引号, #引号)
.如果 (用户名 = “”)
调试输出 (“登陆失败”)
.否则
调试输出 (“登陆成功”)
[/e] |
|