|

.版本 2.支持库 EThread.支持库 spec
.子程序 _开始按钮_被单击
.如果真 (Cookie = “”) 信息输出 (#红色, “请先登录!”) 返回 ().如果真结束.如果真 (贴吧编辑框.内容 = “”) 信息输出 (#红色, “请填写贴吧!”) 返回 ().如果真结束开始按钮.禁止 = 真停止按钮.禁止 = 假贴吧 = URL编码GBK (贴吧编辑框.内容)间隔 = 到整数 (间隔编辑框.内容) × 1ID = ID编辑框.内容原始内容 = 内容编辑框.内容启动线程 (&抢二楼, , 线程句柄)
.子程序 抢二楼, , 公开, 多线程.局部变量 svxml, SvXml.局部变量 retstream, 文本型.局部变量 left, 整数型.局部变量 right, 整数型.局部变量 tid, 文本型.局部变量 kw, 文本型.局部变量 fid, 文本型.局部变量 tbs, 文本型.局部变量 内容, 文本型.局部变量 tmp, 文本型
svxml.置Cookie (Cookie).判断循环首 (真) retstream = svxml.访问网页 (, “http://tieba.baidu.com/f?kw=” + 贴吧) left = 寻找文本 (retstream, “div title=” + #引号 + “0个回复”, , 假) .如果真 (left = -1) 到循环尾 () .如果真结束 信息输出 (#黄色, “发现目标...”) left = 寻找文本 (retstream, “/p/”, left, 假) + 3 right = 寻找文本 (retstream, #引号, left, 假) tid = 取文本中间 (retstream, left, right - left) retstream = svxml.访问网页 (, “http://tieba.baidu.com/p/” + tid) left = 寻找文本 (retstream, “value=” + #引号, , 假) + 7 right = 寻找文本 (retstream, #引号, left, 假) kw = 取文本中间 (retstream, left, right - left) kw = URL编码UTF8 (kw) left = 寻找文本 (retstream, “,fid:'”, , 假) + 6 right = 寻找文本 (retstream, “'”, left, 假) fid = 取文本中间 (retstream, left, right - left) retstream = svxml.访问网页 (, “http://tieba.baidu.com/f/user/js ... &rs10=0&lm=” + fid + “&word=” + kw + “&tid=” + tid, , , 8000) .如果真 (寻找文本 (retstream, “need” + #引号 + “:0”, , 假) = -1) ' 需要验证码 信息输出 (#红色, “需要验证码,已停止。”) 开始按钮.禁止 = 假 停止按钮.禁止 = 真 返回 () .如果真结束 ' 无需验证码 内容 = URL编码UTF8 (干扰码 (原始内容)) retstream = svxml.访问网页 (, “http://tieba.baidu.com/dc/common/tbs”, , , 8000) left = 寻找文本 (retstream, “:” + #引号, , 假) + 2 right = 寻找文本 (retstream, #引号, left, 假) tbs = 取文本中间 (retstream, left, right - left) retstream = svxml.访问网页 (“POST”, “http://tieba.baidu.com/f/commit/post/add”, “tbs=” + tbs + “&tid=” + tid + “&fid=” + fid + “&floor_num=1&vcode_md5=&vcode=&rich_text=1&add_post_submit=%20%E5%8F%91%20%E8%A1%A8%20&content=” + 内容 + “&ie=1&kw=” + kw + “&useSignName=off”, , 8000) left = 寻找文本 (retstream, “:”, , 假) + 1 right = 寻找文本 (retstream, “,”, left, 假) tmp = 取文本中间 (retstream, left, right - left) 调试输出 (retstream) .如果 (tmp = “0”) ' 12:被封 2101:掉线 13:代理无效 空:匿名无效 信息输出 (#绿色, “抢二楼成功!帖子号:” + tid) .否则 信息输出 (#红色, “抢二楼失败!帖子号:” + tid + “ 错误信息:” + tmp) 鸣叫 () .如果真 (退出 = 真) 开始按钮.禁止 = 假 停止按钮.禁止 = 真 信息输出 (#红色, “已停止!”) 返回 () .如果真结束
.如果结束 延迟 (间隔).判断循环尾 ()
这个是百度贴吧的
1:我想在这里面加上个指定抢某个人ID的帖子 只要他的帖子是0回复的
2:当没有填写指定抢某个人的ID时 就只要是0回复的都抢 ←这条上面的代码已经可以找到了
就差第一个问题没有解决 就大大帮忙 我全部身价已经给你们了
|
|