贴吧签到顶帖

刘爷

来易这么久了，一直都是在索取，也贡献一份自己的力量吧。虽然这个没啥技术含量，就是给新手学习的，调用精易模块，出现发现死循环，系统配置，检查死循环去掉就可以了。
喷子们口下留情

  

子程序名	返回值类型	公开	备 注
一键签到

变量名	类 型	静态	数组	备 注
ret	文本型

ret ＝ 网页_访问S (“https://tieba.baidu.com/tbmall/onekeySignin1”, 1, #提交数据, 编辑框1.内容, , #签到协议头 )
调试输出 (ret)
如果 (寻找文本 (ret, #签到成功, , 假) ≠ -1)
信息框 (“签到成功”, 0, , )
信息框 (“签到失败或已经签到过”, 0, , )

子程序名	返回值类型	公开	备 注
顶帖

变量名	类 型	静态	数组	备 注
帖子地址	文本型
帖子号	文本型
RET	文本型
kw	文本型
返回数据	文本型
tbs	文本型
tid	文本型
fid	文本型
content	文本型
提交数据	文本型
数据	整数型
cookies	整数型
序号	整数型
地址	整数型
回帖失败	整数型
回帖成功	整数型

帖子号 ＝ 编辑框3.内容
判断循环首 (真)
帖子地址 ＝ “http://tieba.baidu.com/p/” ＋ 帖子号
RET ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (帖子地址, 0, , 编辑框1.内容, , #顶帖协议头 )))
调试输出 (RET)
kw ＝ 文本_取出中间文本 (RET, “kw=”, “&ie=”)
循环判断首 ()
tbs ＝ 文本_取出中间文本 (RET, #tbs前1, #tbs后1 )
调试输出 (“tbs:” ＋ tbs)
如果 (tbs ＝ “”)
编辑框4.加入文本 (“tbs获取失败，尝试别的方法获取” ＋ #换行符 )
tbs ＝ 文本_取出中间文本 (RET, #tbs前2, #tbs后2 )
调试输出 (“tbs:” ＋ tbs)
编辑框4.加入文本 (“tbs获取成功:” ＋ tbs ＋ #换行符 )


程序_延时 (3000)
循环判断尾 (tbs ＝ “”)
tid ＝ 文本_取右边 (帖子地址, “p/”, )
fid ＝ 文本_取出中间文本 (网页_访问S (“https://tieba.baidu.com/f?kw=” ＋ kw ＋ “&fr=index”, , , ), #fid, #fid后 )
content ＝ 编码_URL编码 (编辑框2.内容, 真, 真)
提交数据 ＝ “ie=utf-8&kw=” ＋ kw ＋ “&fid=” ＋ fid ＋ “&tid=” ＋ tid ＋ “&vcode_md5=&floor_num=&rich_text=1&tbs=” ＋ tbs ＋ “&content=” ＋ content ＋ “&basilisk=1&files=%5B%5D&mouse_pwd=106%2C103%2C104%2C115%2C109%2C107%2C109%2C103%2C113%2C108%2C111%2C111%2C111%2C107%2C103%2C103%2C109%2C103%2C110%2C109%2C106%2C86%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C86%2C108%2C111%2C111%2C102%2C111%2C86%2C110%2C102%2C109%2C111%2C115%2C110%2C111%2C103%2C111%2C” ＋ 时间_取现行时间戳 () ＋ “&mouse_pwd_t=” ＋ 时间_取现行时间戳 () ＋ “&mouse_pwd_isclick=1&__type__=reply&geetest_success=0&_BSK=SEYIBRALFkRARFxKFA9TEwsVX1VdRlYVGl8GRlwXRkNDVR4TWFcUXkIACAcJGBNUARsCEgJUUgceE1sCEAsbTgRdUx0BHBUcAg0CFQoDBU1KHwcBDhwBBA1PGkxUAAAZDQECHB8RDgMBSFMPBR8DGR4ZD1IDSFcIBhsMHR0dBQwJHgZdXhkHGBoYBAQJSg5TUx8EHBUcBwADFQkGAlVIAhsdHgYHARVXAlRaHwQcGxgTRgAbAhJHFhNSHhNbBBALG1cFU04FAAUVAQUDHwANBB9VUwcAExoSRQUbXBQFDl5WelteVFZHd1lfVkgHW11WGmB2chUeRRcERh1lWFNUcVJNWR52ChAbZlNFHEBUSg9MATJYUmpNUVxFH2ZQX0dIFV5VX2lTWlBXAVM7C1xWGVpbXFhcV2hTVAEiVkZQGllGVFRKUTsSVh1lWFNUYF1QTHZSEAcbQVlZR3tfXwkaNxZQRUYVZ0VUR1BLRloHFRt0YWlxYHYVORo0A1ZUeVBaWhlnW3VBVDcfRBAdFFEGEwNGUAUOQlQZG1gDFwkZTEBGAUoVVwAUChIDCVcBVFcAABkbWQIXCRlMQEYBShVcABQKEgMJVwFUVwAAGRtVAhcJGV5TXxcDGxBDBxIIE18TWAcWWF5bGUZQW1dWVRoaRB0XEhEWa1xQTQ9AAUJSXlFcaUwXHxtWARFeRgUCAAEABwAIShQUURMLFV9VXUZWFRpRAkZcF0ZDQ1UeE05UFF5Af2R5dRYdF0YIGggRKQlNW11aUR0EF1YWTDVYX1FWQ0IVfW0YAwNKVgwSZnlnBAUCRmIWC1VUW00bBhsDAhhARV5XBhwBHxBeWFIDFiMHUlpaGxgTQgAbAhJVBQpEVx0URAMTA0RQEQxSRVxWWhFBXGpMQFoKAR8bEU0QEhEZPVgFFlhHUBlXXlFWZEUQH0YVBRALFgELAwlKFBRQEwsXbl1fBgEbFBBHVkQNEgADCQYADFIGVVEdE0UIFgsXFg56FwFWElVBFAQCFwJ4QwRWUVVXAgsFBwUBCAFUBQAEBgMEDwQDBApfDlZHAwMQDnATGRFQCRAJRBJFR1QaEkUAG1wUKjd9fRcVFl0EEQMaSFtJJXkQHRRDAxMDRgdUWgEdF1QFEw8RW1lBWggPRFluV3xEAVMBFEhAWgMXAxYJAxEVGlYCRlwVfGR6fBBM”
返回数据 ＝ 到文本 (网页_访问 (“http://tieba.baidu.com/f/commit/post/add”, 1, 提交数据, 编辑框1.内容, , #顶帖协议头 ))
调试输出 (返回数据)
如果 (寻找文本 (返回数据, #回帖成功, , 假) ≠ -1)
编辑框4.加入文本 (到文本 (取现行时间 ()) ＋ “----” ＋ 帖子地址 ＋ “ ----回帖成功。” ＋ #换行符 )
随机延迟 ()
回帖成功 ＝ 回帖成功 ＋ 1
如果真 (回帖成功 ＝ 到整数 (编辑框8.内容))
延迟5分钟 ()
回帖成功 ＝ 0

编辑框4.加入文本 (到文本 (取现行时间 ()) ＋ “----” ＋ 帖子地址 ＋ “ ----回帖失败。” ＋ #换行符 )
随机延迟 ()
回帖失败 ＝ 回帖失败 ＋ 1
如果真 (回帖失败 ＝ 到整数 (编辑框7.内容))
延迟5分钟 ()
回帖失败 ＝ 0


判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> <br /> <br /> <br /> .支持库 spec<br /> <br /> .子程序 一键签到<br /> .局部变量 ret, 文本型<br /> <br /> ret ＝ 网页_访问S (“<a href="https://tieba.baidu.com/tbmall/onekeySignin1" rel="nofollow" rel="nofollow" target="_blank">https://tieba.baidu.com/tbmall/onekeySignin1</a>”, 1, #提交数据, 编辑框1.内容, , #签到协议头)<br /> 调试输出 (ret)<br /> .如果 (寻找文本 (ret, #签到成功, , 假) ≠ -1)<br />     信息框 (“签到成功”, 0, , )<br /> .否则<br />     信息框 (“签到失败或已经签到过”, 0, , )<br /> <br /> <br /> <br /> <br /> <br /> .版本 2<br /> .支持库 spec<br /> <br /> .子程序 顶帖<br /> .局部变量 帖子地址, 文本型<br /> .局部变量 帖子号, 文本型<br /> .局部变量 RET, 文本型<br /> .局部变量 kw, 文本型<br /> .局部变量 返回数据, 文本型<br /> .局部变量 tbs, 文本型<br /> .局部变量 tid, 文本型<br /> .局部变量 fid, 文本型<br /> .局部变量 content, 文本型<br /> .局部变量 提交数据, 文本型<br /> .局部变量 数据, 整数型<br /> .局部变量 cookies, 整数型<br /> .局部变量 序号, 整数型<br /> .局部变量 地址, 整数型<br /> .局部变量 回帖失败, 整数型<br /> .局部变量 回帖成功, 整数型<br /> <br /> 帖子号 ＝ 编辑框3.内容<br /> .判断循环首 (真)<br />     帖子地址 ＝ “<a href="http://tieba.baidu.com/p/" rel="nofollow" rel="nofollow" target="_blank">http://tieba.baidu.com/p/</a>” ＋ 帖子号<br />     RET ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (帖子地址, 0, , 编辑框1.内容, , #顶帖协议头)))<br />     调试输出 (RET)<br />     kw ＝ 文本_取出中间文本 (RET, “kw=”, “&ie=”)<br />     .循环判断首 ()<br />         tbs ＝ 文本_取出中间文本 (RET, #tbs前1, #tbs后1)<br />         调试输出 (“tbs:” ＋ tbs)<br />         .如果 (tbs ＝ “”)<br />             编辑框4.加入文本 (“tbs获取失败，尝试别的方法获取” ＋ #换行符)<br />             tbs ＝ 文本_取出中间文本 (RET, #tbs前2, #tbs后2)<br />             调试输出 (“tbs:” ＋ tbs)<br />             编辑框4.加入文本 (“tbs获取成功:” ＋ tbs ＋ #换行符)<br />         .否则<br /> <br />         .如果结束<br />         程序_延时 (3000)<br />     .循环判断尾 (tbs ＝ “”)<br />     tid ＝ 文本_取右边 (帖子地址, “p/”, )<br />     fid ＝ 文本_取出中间文本 (网页_访问S (“<a href="https://tieba.baidu.com/f?kw=" rel="nofollow" rel="nofollow" target="_blank">https://tieba.baidu.com/f?kw=</a>” ＋ kw ＋ “&fr=index”, , , ), #fid, #fid后)<br />     content ＝ 编码_URL编码 (编辑框2.内容, 真, 真)<br />     提交数据 ＝ “ie=utf-8&kw=” ＋ kw ＋ “&fid=” ＋ fid ＋ “&tid=” ＋ tid ＋ “&vcode_md5=&floor_num=&rich_text=1&tbs=” ＋ tbs ＋ “&content=” ＋ content ＋ “&basilisk=1&files=%5B%5D&mouse_pwd=106%2C103%2C104%2C115%2C109%2C107%2C109%2C103%2C113%2C108%2C111%2C111%2C111%2C107%2C103%2C103%2C109%2C103%2C110%2C109%2C106%2C86%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C115%2C110%2C115%2C111%2C86%2C108%2C111%2C111%2C102%2C111%2C86%2C110%2C102%2C109%2C111%2C115%2C110%2C111%2C103%2C111%2C” ＋ 时间_取现行时间戳 () ＋ “&mouse_pwd_t=” ＋ 时间_取现行时间戳 () ＋ “&mouse_pwd_isclick=1&__type__=reply&geetest_success=0&_BSK=SEYIBRALFkRARFxKFA9TEwsVX1VdRlYVGl8GRlwXRkNDVR4TWFcUXkIACAcJGBNUARsCEgJUUgceE1sCEAsbTgRdUx0BHBUcAg0CFQoDBU1KHwcBDhwBBA1PGkxUAAAZDQECHB8RDgMBSFMPBR8DGR4ZD1IDSFcIBhsMHR0dBQwJHgZdXhkHGBoYBAQJSg5TUx8EHBUcBwADFQkGAlVIAhsdHgYHARVXAlRaHwQcGxgTRgAbAhJHFhNSHhNbBBALG1cFU04FAAUVAQUDHwANBB9VUwcAExoSRQUbXBQFDl5WelteVFZHd1lfVkgHW11WGmB2chUeRRcERh1lWFNUcVJNWR52ChAbZlNFHEBUSg9MATJYUmpNUVxFH2ZQX0dIFV5VX2lTWlBXAVM7C1xWGVpbXFhcV2hTVAEiVkZQGllGVFRKUTsSVh1lWFNUYF1QTHZSEAcbQVlZR3tfXwkaNxZQRUYVZ0VUR1BLRloHFRt0YWlxYHYVORo0A1ZUeVBaWhlnW3VBVDcfRBAdFFEGEwNGUAUOQlQZG1gDFwkZTEBGAUoVVwAUChIDCVcBVFcAABkbWQIXCRlMQEYBShVcABQKEgMJVwFUVwAAGRtVAhcJGV5TXxcDGxBDBxIIE18TWAcWWF5bGUZQW1dWVRoaRB0XEhEWa1xQTQ9AAUJSXlFcaUwXHxtWARFeRgUCAAEABwAIShQUURMLFV9VXUZWFRpRAkZcF0ZDQ1UeE05UFF5Af2R5dRYdF0YIGggRKQlNW11aUR0EF1YWTDVYX1FWQ0IVfW0YAwNKVgwSZnlnBAUCRmIWC1VUW00bBhsDAhhARV5XBhwBHxBeWFIDFiMHUlpaGxgTQgAbAhJVBQpEVx0URAMTA0RQEQxSRVxWWhFBXGpMQFoKAR8bEU0QEhEZPVgFFlhHUBlXXlFWZEUQH0YVBRALFgELAwlKFBRQEwsXbl1fBgEbFBBHVkQNEgADCQYADFIGVVEdE0UIFgsXFg56FwFWElVBFAQCFwJ4QwRWUVVXAgsFBwUBCAFUBQAEBgMEDwQDBApfDlZHAwMQDnATGRFQCRAJRBJFR1QaEkUAG1wUKjd9fRcVFl0EEQMaSFtJJXkQHRRDAxMDRgdUWgEdF1QFEw8RW1lBWggPRFluV3xEAVMBFEhAWgMXAxYJAxEVGlYCRlwVfGR6fBBM”<br />     返回数据 ＝ 到文本 (网页_访问 (“<a href="http://tieba.baidu.com/f/commit/post/add" rel="nofollow" rel="nofollow" target="_blank">http://tieba.baidu.com/f/commit/post/add</a>”, 1, 提交数据, 编辑框1.内容, , #顶帖协议头))<br />     调试输出 (返回数据)<br />     .如果 (寻找文本 (返回数据, #回帖成功, , 假) ≠ -1)<br />         编辑框4.加入文本 (到文本 (取现行时间 ()) ＋ “----” ＋ 帖子地址 ＋ “ ----回帖成功。” ＋ #换行符)<br />         随机延迟 ()<br />         回帖成功 ＝ 回帖成功 ＋ 1<br />         .如果真 (回帖成功 ＝ 到整数 (编辑框8.内容))<br />             延迟5分钟 ()<br />             回帖成功 ＝ 0<br />         .如果真结束<br /> <br />     .否则<br />         编辑框4.加入文本 (到文本 (取现行时间 ()) ＋ “----” ＋ 帖子地址 ＋ “ ----回帖失败。” ＋ #换行符)<br />         随机延迟 ()<br />         回帖失败 ＝ 回帖失败 ＋ 1<br />         .如果真 (回帖失败 ＝ 到整数 (编辑框7.内容))<br />             延迟5分钟 ()<br />             回帖失败 ＝ 0<br />         .如果真结束<br /> <br />     .如果结束<br /> <br /> .判断循环尾 ()

6251814

水水水水水水水水水水水水水水水水水水水

541117999

6666666666666666666666

541117999

6666666666666666666666

陈枫

6666666666666666666666

zhugeliang

666666666666666666

hacking520

2022了。还能用不？

123money

感谢楼主分享

jingyigg

楼主请问有没有52破J论坛的签到思路，老是不成功

a2550052507

        新技能已get√

赚钱赚钱

        新技能已get√