|
分享源码
界面截图: |
- |
是否带模块: |
调用了模块 |
备注说明: |
- |
来易这么久了,一直都是在索取,也贡献一份自己的力量吧。虽然这个没啥技术含量,就是给新手学习的,调用精易模块,出现发现死循环,系统配置,检查死循环去掉就可以了。
喷子们口下留情 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 判断循环尾 () |
评分
-
查看全部评分
|