开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 1348|回复: 5
收起左侧

[求助] 为什么带cookie的POST返回结果始终为空呢??

[复制链接]
结帖率:95% (97/102)
发表于 2018-7-19 15:58:17 | 显示全部楼层 |阅读模式   四川省广安市
下面是源码   大家帮我分析下

.版本 2
.支持库 spec
.程序集 窗口程序集1
.程序集变量 登录账号, 文本型
.程序集变量 登录密码, 文本型
.程序集变量 cookies, 文本型
.程序集变量 tbs, 文本型
.程序集变量 pid, 文本型
.程序集变量 停止循环, 逻辑型
.子程序 关注贴吧, , , 批量关注贴吧
.局部变量 分割被关注贴吧, 文本型, , "0"
.局部变量 分割关注账号, 文本型, , "0"
.局部变量 关注账号, 文本型
.局部变量 被关注贴吧, 文本型
.局部变量 fid, 文本型
.局部变量 uid, 文本型
.局部变量 kk, 整数型, , , 计次
.局部变量 N, 整数型
.局部变量 分割行数据, 文本型, , "0"
.局部变量 行中分隔符, 文本型
.局部变量 源码文本, 文本型
.局部变量 post数据, 文本型
.局部变量 返回文本, 文本型
停止循环 = 假
分割关注账号 = 分割文本 (编辑框7.内容, #换行符, )  ' 有多少个关注帐号
分割被关注贴吧 = 分割文本 (编辑框6.内容, #换行符, )  ' 有多少个被关注贴把
.计次循环首 (取数组成员数 (分割被关注贴吧), N)
    .如果 (文本_取出现次数 (分割被关注贴吧 [N], “----”, ) > 0)
        行中分隔符 = “----”
    .否则
        .如果 (文本_取出现次数 (分割被关注贴吧 [N], “:”, ) > 0)
            行中分隔符 = “:”
        .否则
        .如果结束
    .如果结束
    分割行数据 = 分割文本 (分割被关注贴吧 [N], 行中分隔符, )  ' 把待分割文本数组中的每个数据根据中间的  行中分隔符  再进行分割
    被关注贴吧 = 分割行数据 [1]
    .计次循环首 (取数组成员数 (分割关注账号), kk)
        .如果 (文本_取出现次数 (分割关注账号 [kk], “----”, ) > 0)
            行中分隔符 = “----”
        .否则
            .如果 (文本_取出现次数 (分割关注账号 [kk], “:”, ) > 0)
                行中分隔符 = “:”
            .否则
            .如果结束
        .如果结束
        分割行数据 = 分割文本 (分割关注账号 [kk], 行中分隔符, )
        关注账号 = 分割行数据 [1]  ' 上面几行的作用是取出被关注账号的名字
        cookies = 分割行数据 [取数组成员数 (分割行数据)]
        调试输出 (cookies)
        源码文本 = 访问文本 (“http://tieba.baidu.com/f/commit/ ... ie=utf-8&fname=” + 被关注贴吧)
        fid = 取出中间文本 (源码文本, “fid” + #引号 + “:”, “,”)
        调试输出 (fid)
        源码文本 = 到文本 (网页_访问 (“https://tieba.baidu.com/f?ie=utf-8&kw=” + 编码_URL编码UTF8 (被关注贴吧, ) + “&fr=search”, 0, , , , cookies, , , , ))
        ' 源码文本 = 到文本 (网页_访问 (“http://tieba.baidu.com/home/main/?un=” + 编码_URL编码 (关注账号, 真, 真) + “&ie=utf-8&fr=frs”, 0, , cookies, ))
        ' 源码文本 = 到文本 (网页_访问 (“http://www.baidu.com/p/” + 编码_URL编码 (关注账号, 真, 真) + “?from=tieba”, 0, , cookies, ))
        tbs = 取出中间文本 (源码文本, “tbs': ” + #引号, #引号, )  ' 这几行取出tbs
        调试输出 (tbs)
        uid = 编码_URL编码UTF8 (关注账号, 真)
        uid = 文本_替换 (uid, , 1, , “%”, “%25”, , )
        调试输出 (uid)
        post数据 = “fid=” + fid + “&fname=” + 编码_URL编码UTF8 (被关注贴吧, ) + “&uid=” + uid + “%26ie%3Dutf-8&ie=gbk&tbs=” + tbs
        调试输出 (post数据)
        ' 返回文本 = 到文本 (网页_访问 (“https://tieba.baidu.com/f/like/commit/add”, 1, , , 到字节集 (post数据), cookies, , , ))
        返回文本 = 到文本 (网页_访问_对象 (“https://tieba.baidu.com/f/like/commit/add”, 1, post数据, cookies, , , , , , ))

        ' 返回文本 = 编码_usc2到ansi (返回文本)
        ' 返回文本 = 编码_Utf8到Ansi (到字节集 (返回文本))
        调试输出 (返回文本)
        返回文本 = 取出中间文本 (返回文本, “no” + #引号 + “:”, “,”)
        ' 调试输出 (返回文本)
        .如果 (返回文本 = “0”)
            编辑框2.加入文本 (“帐号:” + 关注账号 + “  关注贴吧  ” + 被关注贴吧 + “  成功” + #换行符)
        .否则
            .如果 (返回文本 = “221”)
                编辑框2.加入文本 (“帐号:” + 关注账号 + “  已经关注过贴吧:” + 被关注贴吧 + #换行符)
            .否则
                .如果 (返回文本 = “2260001”)
                    编辑框2.加入文本 (“帐号:” + 关注账号 + “  操作太频繁,请歇歇。” + #换行符)
                .否则
                    .如果 (返回文本 = “230308”)
                        编辑框2.加入文本 (“帐号:” + 关注账号 + “  掉线了,不能关注账号。” + #换行符)
                    .否则
                        .如果 (返回文本 = “-1”)
                        .否则
                        .如果结束
                    .如果结束
                .如果结束
            .如果结束
        .如果结束
        延迟 (3000)
    .计次循环尾 ()
.计次循环尾 ()
编辑框2.加入文本 (“全部关注完成!!!”)
.子程序 _按钮9_被单击
关注贴吧 ()

结帖率:95% (97/102)
 楼主| 发表于 2018-7-19 16:59:56 | 显示全部楼层   四川省广安市
谁来帮下忙
回复 支持 反对

使用道具 举报

结帖率:89% (24/27)

签到天数: 24 天

发表于 2018-7-19 17:10:41 | 显示全部楼层   香港特别行政区*
加个协yi头试试吧
回复 支持 反对

使用道具 举报

结帖率:95% (97/102)
 楼主| 发表于 2018-7-19 17:15:02 | 显示全部楼层   四川省广安市
8881020 发表于 2018-7-19 17:10
加个协yi头试试吧

我也觉得是  协yi头的问题    这个协yi头该怎么写呢??  你QQ多少?  我加你请教下你
回复 支持 反对

使用道具 举报

结帖率:93% (65/70)

签到天数: 15 天

发表于 2018-7-19 22:41:01 | 显示全部楼层   山西省晋城市
把的源码上传一下吧!
回复 支持 反对

使用道具 举报

结帖率:95% (97/102)
 楼主| 发表于 2018-7-20 21:23:26 | 显示全部楼层   四川省广安市
小楠赛车出租 发表于 2018-7-19 22:41
把的源码上传一下吧!

你QQ多少?  我直接加你  请教一下
回复 支持 反对

使用道具 举报

  高级模式
B Color Image Link Quote Code Smilies |上传

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 诚聘英才| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表