求助：奇艺发帖就是不成功，最后post是不是哪里错啦？

Default

.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 post数据, 文本型
.局部变量 post地址, 文本型
.局部变量 返回数据, 文本型
.局部变量 账号, 文本型
账号 ＝ 子文本替换 (编辑框1.内容, “@”, “%40”, , , 假)
post数据 ＝ “email=” ＋ 账号 ＋ “&passwd=” ＋ 编辑框2.内容 ＋ “&keeplogin=1&piccode=&fromurl=”
post地址 ＝ “http://passport.iqiyi.com/apis/user/login.php?”
返回数据 ＝ 到文本 (网页_访问 (post地址, 1, , , 到字节集 (post数据)))
调试输出 (返回数据)

.子程序 _按钮2_被单击
.局部变量 post数据, 文本型
.局部变量 post地址, 文本型
.局部变量 返回数据, 文本型
.局部变量 正则, 正则表达式类
.局部变量 计次, 整数型
.局部变量 链接数组, 文本型, , "50"
.局部变量 albumId, 文本型
返回数据 ＝ 到文本 (网页_访问 (“http://top.baidu.com/buzz.php?p=qiyidianying[/url]”))
正则.创建 (#常量1, 返回数据)
.计次循环首 (正则.取匹配数量 (), 计次)
    链接数组 [计次] ＝ 正则.取子匹配文本 (计次, 1)
    返回数据 ＝ 编码_URL解码UTF8 (到文本 (网页_访问 (链接数组 [计次])))
    albumId ＝ 文本_取出中间文本 (返回数据, #常量2, “,” ＋ #引号, , )
    返回数据 ＝ 到文本 (网页_访问 (“http://t.iqiyi.com/m/1007685/tweet?sort=latest”))
    userId ＝ 文本_取出中间文本 (返回数据, “userId:'”, “',”)
    post数据 ＝ “userId=” ＋ userId ＋ “&albumId=” ＋ albumId ＋ “&roleId=&picId=&dataCnt=” ＋ 编码_URL编码UTF8 (编辑框3.内容) ＋ “&appid=14&cb=cb_dy12x”
    post地址 ＝ “[url]http://api.t.iqiyi.com/api/tweet/add.php”
    返回数据 ＝ 到文本 (网页_访问 (post地址, 1, , , 到字节集 (post数据)))
    调试输出 (返回数据)
.计次循环尾 ()

小磊

可能是缺少cookie