|
下面是源码 大家帮我分析下
.版本 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_被单击
关注贴吧 ()
|
|