精易论坛

标题: 求大大帮添加 [打印本页]

作者: 单身戒指 时间: 2012-9-15 12:15
标题: 求大大帮添加
.版本 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回复的都抢  ←这条上面的代码已经可以找到了
就差第一个问题没有解决就大大帮忙  我全部身价已经给你们了

作者: ㄣ负二代 时间: 2012-9-15 12:33