|
发表于 2022-3-29 20:16:26
|
显示全部楼层
山东省烟台市
.版本 2 .支持库 spec .子程序 一键签到 .局部变量 ret, 文本型 ret = 网页_访问S (“<a href="https://tieba.baidu.com/tbmall/onekeySignin1" target="_blank">https://tieba.baidu.com/tbmall/onekeySignin1</a>”, 1, #提交数据, 编辑框1.内容, , #签到协议头) 调试输出 (ret) .如果 (寻找文本 (ret, #签到成功, , 假) ≠ -1) 信息框 (“签到成功”, 0, , ) .否则 信息框 (“签到失败或已经签到过”, 0, , ) .版本 2 .支持库 spec .子程序 顶帖 .局部变量 帖子地址, 文本型 .局部变量 帖子号, 文本型 .局部变量 RET, 文本型 .局部变量 kw, 文本型 .局部变量 返回数据, 文本型 .局部变量 tbs, 文本型 .局部变量 tid, 文本型 .局部变量 fid, 文本型 .局部变量 content, 文本型 .局部变量 提交数据, 文本型 .局部变量 数据, 整数型 .局部变量 cookies, 整数型 .局部变量 序号, 整数型 .局部变量 地址, 整数型 .局部变量 回帖失败, 整数型 .局部变量 回帖成功, 整数型 帖子号 = 编辑框3.内容 .判断循环首 (真) 帖子地址 = “<a href="http://tieba.baidu.com/p/" target="_blank">http://tieba.baidu.com/p/</a>” + 帖子号 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 (“<a href="https://tieba.baidu.com/f?kw=" target="_blank">https://tieba.baidu.com/f?kw=</a>” + 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” 返回数据 = 到文本 (网页_访问 (“<a href="http://tieba.baidu.com/f/commit/post/add" target="_blank">http://tieba.baidu.com/f/commit/post/add</a>”, 1, 提交数据, 编辑框1.内容, , #顶帖协议头)) 调试输出 (返回数据) .如果 (寻找文本 (返回数据, #回帖成功, , 假) ≠ -1) 编辑框4.加入文本 (到文本 (取现行时间 ()) + “----” + 帖子地址 + “ ----回帖成功。” + #换行符) 随机延迟 () 回帖成功 = 回帖成功 + 1 .如果真 (回帖成功 = 到整数 (编辑框8.内容)) 延迟5分钟 () 回帖成功 = 0 .如果真结束 .否则 编辑框4.加入文本 (到文本 (取现行时间 ()) + “----” + 帖子地址 + “ ----回帖失败。” + #换行符) 随机延迟 () 回帖失败 = 回帖失败 + 1 .如果真 (回帖失败 = 到整数 (编辑框7.内容)) 延迟5分钟 () 回帖失败 = 0 .如果真结束 .如果结束 .判断循环尾 () |
|