帮忙看下循环30次就出问题了。

从心 · 发表于 8 小时前

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口
变量名	类型	数组	备注
全局_返回	文本型
返回_cookie	文本型
结果	文本型	0
帖子id	整数型
取id_返回	文本型

子程序名	返回值类型	公开	备注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备注
_按钮1_被单击

登录 ()

子程序名	返回值类型	公开	备注
登录			本命令由【精易网页调试助手】生成，请配合精易模块使用。

变量名	类型	静态	数组	备注
局_网址	文本型
局_方式	整数型
局_提交数据	文本型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集

' https://bbs.tatans.cn/api/login
局_网址＝ “https://bbs.tatans.cn/api/login”
局_方式＝ 1
' {"phone":"18624371663","password":"4bd3295ef7e41757241808b35e7a8c33"}
局_提交数据＝ “{” ＋ #引号＋ “phone” ＋ #引号＋ “:” ＋ #引号＋编辑框1.内容＋ #引号＋ “,” ＋ #引号＋ “password” ＋ #引号＋ “:” ＋ #引号＋编辑框2.内容＋ #引号＋ “}”
ADD_协议头.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”)
ADD_协议头.添加 (“Content-Type”, “application/json”)
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)
局_提交协议头＝ ADD_协议头.获取协议头数据 ()
局_结果＝网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , 返回_cookie, 局_提交协议头, , , , , , , , , , , )
全局_返回＝到文本 (编码_编码转换对象 (局_结果))
编辑框5.加入文本 (全局_返回＋ #换行符 )
' 调试输出 (返回_cookie)

子程序名	返回值类型	公开	备注
取id			本命令由【精易网页调试助手】生成，请配合精易模块使用。

变量名	类型	静态	数组	备注
局_网址	文本型
局_方式	整数型
ADD_协议头	类_POST数据类
局_提交协议头	文本型
局_结果	字节集
位置_	整数型
开始位置	整数型
结束位置	整数型
判断帖子id	文本型
a	整数型
局_网址1	文本型
局_方式1	整数型
局_提交数据1	文本型
局_提交cookie1	文本型
ADD_协议头1	类_POST数据类
局_提交协议头1	文本型
局_结果1	字节集
局_返回1	文本型
n1	整数型
token	文本型
d	整数型
i	整数型
帖子id正确	逻辑型

' https://bbs.tatans.cn/topic/5900
帖子id ＝到数值 (编辑框3.内容)

计次循环首 (10000, i)

帖子id ＝帖子id ＋ 1

编辑框3.内容＝ “”

编辑框3.加入文本 (到文本 (帖子id))

局_网址＝ “https://bbs.tatans.cn/topic/” ＋到文本 (帖子id)

局_方式＝ 0

ADD_协议头.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”)

ADD_协议头.添加 (“Content-Type”, “application/json”)

ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)

局_提交协议头＝ ADD_协议头.获取协议头数据 ()

局_结果＝网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , )

取id_返回＝到文本 (编码_编码转换对象 (局_结果, , , ))

' 判断帖子id ＝文本_取出中间文本 (取id_返回, “description” ＋ #引号＋ “:” ＋ #引号, “~” ＋ #引号＋ “,” ＋ #引号＋ “detail”, , )

' 调试输出 (帖子id)

' 调试输出 (取id_返回)

如果 (文本_寻找文本 (取id_返回, “服务器出错啦”, , ) ≠ -1) ' 判断帖子id是否存在

调试输出 (“服务器出错啦”)

到循环尾 ()

' 跳出循环 ()

帖子id正确＝真 ' 若帖子id正确，则对该帖子进行回帖

如果真 (帖子id正确)

' 开始位置＝寻找文本 (取id_返回, “vote_count_”, 位置_, 假)

. ' 如果真 (开始位置＝ -1)

' 跳出循环 ()

' 位置_ ＝开始位置＋ 1

' 结束位置＝寻找文本 (取id_返回, #引号＋ “ onclick=”, 位置_, 假)

. ' 如果真 (结束位置＝ -1)

' 跳出循环 ()
' 位置_ ＝结束位置＋ 1
' 加入成员 (结果, 取文本中间 (取id_返回, 开始位置＋取文本长度 (“vote_count_”), 结束位置－开始位置－取文本长度 (#引号＋ #引号＋ “ onclick=”)))
文本_取中间_批量 (取id_返回, “id=” ＋ #引号＋ “comment”, #引号, 结果, , , , , , , )
' 调试输出 (结果)

如果真 (取数组成员数 (结果) ＞ 0)

计次循环首 (取数组成员数 (结果), n1)

d ＝ d ＋ 1

token ＝文本_取右边 (返回_cookie, “user_token=”, , )

局_网址1 ＝ “https://bbs.tatans.cn/api/comment”

局_方式1 ＝ 1

' 调试输出 (“结果” ＋结果 [n1])

' {"topicId":"74999","content":"没玩过呀，不知道呢.....
\n","commentId":""}

' {"topicId":"1001","content":"无障碍模式真难用，车站选择了以后不会输出到主界面。
\n","commentId":"4643"}

局_提交数据1 ＝ “{” ＋ #引号＋ “topicId” ＋ #引号＋ “:” ＋ #引号＋到文本 (帖子id) ＋ #引号＋ “,” ＋ #引号＋ “content” ＋ #引号＋ “:” ＋ #引号＋ “” ＋编辑框4.内容＋ “
\n” ＋ #引号＋ “,” ＋ #引号＋ “commentId” ＋ #引号＋ “:” ＋ #引号＋结果 [n1] ＋ #引号＋ “}”

' 调试输出 (局_提交数据1)

局_提交cookie1 ＝返回_cookie

ADD_协议头1.添加 (“User-Agent”, “Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/122.0.6261.95 Mobile Safari/537.36”, )

ADD_协议头1.添加 (“Content-Type”, “application/json”, )

ADD_协议头1.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”, )

ADD_协议头1.添加 (“X-Requested-With”, “XMLHttpRequest”, )

ADD_协议头1.添加 (“token”, token, )

ADD_协议头1.添加 (“Origin”, “https://bbs.tatans.cn”, )

ADD_协议头1.添加 (“Sec-Fetch-Site”, “same-origin”, )

ADD_协议头1.添加 (“Sec-Fetch-Mode”, “cors”, )

ADD_协议头1.添加 (“Sec-Fetch-Dest”, “empty”, )

ADD_协议头1.添加 (“Referer”, “https://bbs.tatans.cn”, )

ADD_协议头1.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8”, )

局_提交协议头1 ＝ ADD_协议头1.获取协议头数据 ()

局_结果1 ＝网页_访问_对象 (局_网址1, 局_方式1, 局_提交数据1, 局_提交cookie1, , 局_提交协议头1, , , , , , , , , , , , , )

局_返回1 ＝到文本 (编码_编码转换对象 (局_结果1, , , ))

调试输出 (到文本 (d) ＋ “次” ＋局_返回1)

如果真 (文本_寻找文本 (局_返回1, “已被禁言, 不能进行相关操作”, , ) ≠ -1)

信息框 (“已被禁言, 请换账号”, 0, , )

返回 ()

局_返回1 ＝文本_取出中间文本 (局_返回1, “ription” ＋ #引号＋ “:” ＋ #引号, #引号＋ “,” ＋ #引号＋ “detail” ＋ #引号＋ “:{” ＋ #引号＋ “id”, , )

如果 (局_返回1 ＝ “SUCCESS”)

编辑框5.加入文本 (“第” ＋到文本 (d) ＋ “次成功” ＋局_返回1 ＋ #换行符 )

程序_延时 (1000, ) ' 延迟5秒后再回复，避免回复快被禁言

' 编辑框5.加入文本 (“延时5秒中” ＋ #换行符)

程序_延时 (100, ) ' 延迟5秒后再回复，避免回复快被禁言

编辑框5.加入文本 (“失败” ＋ #换行符 )

销毁 ()

计次循环尾 ()

子程序名	返回值类型	公开	备注
_按钮2_被单击

启动线程 (&取id, , )

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br />
.支持库 spec<br />
.支持库 EThread<br />
<br />
.程序集 窗口程序集_启动窗口<br />
.程序集变量 全局_返回, 文本型<br />
.程序集变量 返回_cookie, 文本型<br />
.程序集变量 结果, 文本型, , "0"<br />
.程序集变量 帖子id, 整数型<br />
.程序集变量 取id_返回, 文本型<br />
<br />
.子程序 __启动窗口_创建完毕<br />
<br />
<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
登录 ()<br />
<br />
.子程序 登录, , , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br />
.局部变量 局_网址, 文本型<br />
.局部变量 局_方式, 整数型<br />
.局部变量 局_提交数据, 文本型<br />
.局部变量 ADD_协议头, 类_POST数据类<br />
.局部变量 局_提交协议头, 文本型<br />
.局部变量 局_结果, 字节集<br />
<br />
' https://bbs.tatans.cn/api/login<br />
局_网址 ＝ “https://bbs.tatans.cn/api/login”<br />
局_方式 ＝ 1<br />
' {"phone":"18624371663","password":"4bd3295ef7e41757241808b35e7a8c33"}<br />
局_提交数据 ＝ “{” ＋ #引号 ＋ “phone” ＋ #引号 ＋ “:” ＋ #引号 ＋ 编辑框1.内容 ＋ #引号 ＋ “,” ＋ #引号 ＋ “password” ＋ #引号 ＋ “:” ＋ #引号 ＋ 编辑框2.内容 ＋ #引号 ＋ “}”<br />
ADD_协议头.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”)<br />
ADD_协议头.添加 (“Content-Type”, “application/json”)<br />
ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)<br />
<br />
局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br />
<br />
局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, 局_提交数据, , 返回_cookie, 局_提交协议头, , , , , , , , , , , )<br />
全局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))<br />
编辑框5.加入文本 (全局_返回 ＋ #换行符)<br />
<br />
' 调试输出 (返回_cookie)<br />
<br />
<br />
.子程序 取id, , , 本命令由【精易网页调试助手】生成，请配合精易模块使用。<br />
.局部变量 局_网址, 文本型<br />
.局部变量 局_方式, 整数型<br />
.局部变量 ADD_协议头, 类_POST数据类<br />
.局部变量 局_提交协议头, 文本型<br />
.局部变量 局_结果, 字节集<br />
.局部变量 位置_, 整数型<br />
.局部变量 开始位置, 整数型<br />
.局部变量 结束位置, 整数型<br />
.局部变量 判断帖子id, 文本型<br />
.局部变量 a, 整数型<br />
.局部变量 局_网址1, 文本型<br />
.局部变量 局_方式1, 整数型<br />
.局部变量 局_提交数据1, 文本型<br />
.局部变量 局_提交cookie1, 文本型<br />
.局部变量 ADD_协议头1, 类_POST数据类<br />
.局部变量 局_提交协议头1, 文本型<br />
.局部变量 局_结果1, 字节集<br />
.局部变量 局_返回1, 文本型<br />
.局部变量 n1, 整数型<br />
.局部变量 token, 文本型<br />
.局部变量 d, 整数型<br />
.局部变量 i, 整数型<br />
.局部变量 帖子id正确, 逻辑型<br />
<br />
' https://bbs.tatans.cn/topic/5900<br />
帖子id ＝ 到数值 (编辑框3.内容)<br />
.计次循环首 (10000, i)<br />
    帖子id ＝ 帖子id ＋ 1<br />
    编辑框3.内容 ＝ “”<br />
    编辑框3.加入文本 (到文本 (帖子id))<br />
    局_网址 ＝ “https://bbs.tatans.cn/topic/” ＋ 到文本 (帖子id)<br />
    局_方式 ＝ 0<br />
<br />
    ADD_协议头.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”)<br />
    ADD_协议头.添加 (“Content-Type”, “application/json”)<br />
    ADD_协议头.添加 (“User-Agent”, “Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36”)<br />
<br />
    局_提交协议头 ＝ ADD_协议头.获取协议头数据 ()<br />
<br />
    局_结果 ＝ 网页_访问_对象 (局_网址, 局_方式, , , , 局_提交协议头, , , , , , , , , , , )<br />
<br />
    取id_返回 ＝ 到文本 (编码_编码转换对象 (局_结果, , , ))<br />
<br />
    ' 判断帖子id ＝ 文本_取出中间文本 (取id_返回, “description” ＋ #引号 ＋ “:” ＋ #引号, “~” ＋ #引号 ＋ “,” ＋ #引号 ＋ “detail”, , )<br />
<br />
    ' 调试输出 (帖子id)<br />
    ' 调试输出 (取id_返回)<br />
    .如果 (文本_寻找文本 (取id_返回, “服务器出错啦”, , ) ≠ -1)  ' 判断帖子id是否存在<br />
        调试输出 (“服务器出错啦”)<br />
        到循环尾 ()<br />
        ' 跳出循环 ()<br />
    .否则<br />
        帖子id正确 ＝ 真  ' 若帖子id正确，则对该帖子进行回帖<br />
<br />
    .如果结束<br />
<br />
    .如果真 (帖子id正确)<br />
        ' 开始位置 ＝ 寻找文本 (取id_返回, “vote_count_”, 位置_, 假)<br />
<br />
        .' 如果真 (开始位置 ＝ -1)<br />
            ' 跳出循环 ()<br />
        .如果真结束<br />
        ' 位置_ ＝ 开始位置 ＋ 1<br />
        ' 结束位置 ＝ 寻找文本 (取id_返回, #引号 ＋ “ onclick=”, 位置_, 假)<br />
        .' 如果真 (结束位置 ＝ -1)<br />
            ' 跳出循环 ()<br />
        .如果真结束<br />
        ' 位置_ ＝ 结束位置 ＋ 1<br />
<br />
        ' 加入成员 (结果, 取文本中间 (取id_返回, 开始位置 ＋ 取文本长度 (“vote_count_”), 结束位置 － 开始位置 － 取文本长度 (#引号 ＋ #引号 ＋ “ onclick=”)))<br />
<br />
        文本_取中间_批量 (取id_返回, “id=” ＋ #引号 ＋ “comment”, #引号, 结果, , , , , , , )<br />
        ' 调试输出 (结果)<br />
<br />
    .如果真结束<br />
<br />
    .如果真 (取数组成员数 (结果) ＞ 0)<br />
        .计次循环首 (取数组成员数 (结果), n1)<br />
            d ＝ d ＋ 1<br />
            token ＝ 文本_取右边 (返回_cookie, “user_token=”, , )<br />
            局_网址1 ＝ “https://bbs.tatans.cn/api/comment”<br />
            局_方式1 ＝ 1<br />
            ' 调试输出 (“结果” ＋ 结果 [n1])<br />
            ' {"topicId":"74999","content":"没玩过呀，不知道呢.....<br />
\n","commentId":""}<br />
            ' {"topicId":"1001","content":"无障碍模式真难用，车站选择了以后不会输出到主界面。<br />
\n","commentId":"4643"}<br />
            局_提交数据1 ＝ “{” ＋ #引号 ＋ “topicId” ＋ #引号 ＋ “:” ＋ #引号 ＋ 到文本 (帖子id) ＋ #引号 ＋ “,” ＋ #引号 ＋ “content” ＋ #引号 ＋ “:” ＋ #引号 ＋ “” ＋ 编辑框4.内容 ＋ “<br />
\n” ＋ #引号 ＋ “,” ＋ #引号 ＋ “commentId” ＋ #引号 ＋ “:” ＋ #引号 ＋ 结果 [n1] ＋ #引号 ＋ “}”<br />
            ' 调试输出 (局_提交数据1)<br />
            局_提交cookie1 ＝ 返回_cookie<br />
            ADD_协议头1.添加 (“User-Agent”, “Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/122.0.6261.95 Mobile Safari/537.36”, )<br />
            ADD_协议头1.添加 (“Content-Type”, “application/json”, )<br />
            ADD_协议头1.添加 (“Accept”, “application/json, text/javascript, */*; q=0.01”, )<br />
            ADD_协议头1.添加 (“X-Requested-With”, “XMLHttpRequest”, )<br />
            ADD_协议头1.添加 (“token”, token, )<br />
            ADD_协议头1.添加 (“Origin”, “https://bbs.tatans.cn”, )<br />
            ADD_协议头1.添加 (“Sec-Fetch-Site”, “same-origin”, )<br />
            ADD_协议头1.添加 (“Sec-Fetch-Mode”, “cors”, )<br />
            ADD_协议头1.添加 (“Sec-Fetch-Dest”, “empty”, )<br />
            ADD_协议头1.添加 (“Referer”, “https://bbs.tatans.cn”, )<br />
            ADD_协议头1.添加 (“Accept-Language”, “zh-CN,zh;q=0.9,en;q=0.8”, )<br />
<br />
            局_提交协议头1 ＝ ADD_协议头1.获取协议头数据 ()<br />
            局_结果1 ＝ 网页_访问_对象 (局_网址1, 局_方式1, 局_提交数据1, 局_提交cookie1, , 局_提交协议头1, , , , , , , , , , , , , )<br />
<br />
            局_返回1 ＝ 到文本 (编码_编码转换对象 (局_结果1, , , ))<br />
            调试输出 (到文本 (d) ＋ “次” ＋ 局_返回1)<br />
<br />
            .如果真 (文本_寻找文本 (局_返回1, “已被禁言, 不能进行相关操作”, , ) ≠ -1)<br />
                信息框 (“已被禁言, 请换账号”, 0, , )<br />
                返回 ()<br />
            .如果真结束<br />
<br />
            局_返回1 ＝ 文本_取出中间文本 (局_返回1, “ription” ＋ #引号 ＋ “:” ＋ #引号, #引号 ＋ “,” ＋ #引号 ＋ “detail” ＋ #引号 ＋ “:{” ＋ #引号 ＋ “id”, , )<br />
<br />
            .如果 (局_返回1 ＝ “SUCCESS”)<br />
                编辑框5.加入文本 (“第” ＋ 到文本 (d) ＋ “次成功” ＋ 局_返回1 ＋ #换行符)<br />
                程序_延时 (1000, )  ' 延迟5秒后再回复，避免回复快被禁言<br />
                ' 编辑框5.加入文本 (“延时5秒中” ＋ #换行符)<br />
            .否则<br />
                程序_延时 (100, )  ' 延迟5秒后再回复，避免回复快被禁言<br />
                编辑框5.加入文本 (“失败” ＋ #换行符)<br />
                销毁 ()<br />
            .如果结束<br />
<br />
        .计次循环尾 ()<br />
    .如果真结束<br />
<br />
.计次循环尾 ()<br />
<br />
.子程序 _按钮2_被单击<br />
<br />
<br />
启动线程 (&取id, , )

哪个老哥给看一下，不晓得为啥，运行到第30次，就出问题了，返回就是空了，加延时也不行，不晓得哪里问题，就是回帖30次就GG了。
账号是 19290107726 密码不用动 md5的 4bd3295ef7e41757241808b35e7a8c33

从心 · 发表于 8 小时前

或者可以用啥办法，比如说他出问题了，就停止子线程让他自动重新运行这样不晓得行不行

憨憨问号 · 发表于 5 小时前

我猜是网站里有保护？如果每次都是恰好30次就出问题，大概率网站有保护吧，连续发多条消息就禁止发言一会？
你看看失败的返回是返回了什么，如果检测到失败了就跳出循环或者停止线程

从心 · 发表于 5 小时前

憨憨问号发表于 2024-11-21 12:13
我猜是网站里有保护？如果每次都是恰好30次就出问题，大概率网站有保护吧，连续发多条消息就禁止发言一会？ ...

不是的，我重启软件立马就又可以发了

企鹅号525150138 · 发表于 4 小时前

局_提交cookie1 ＝返回_cookie
ADD_协议头1.清空（）
ADD_协议头1.添加 (“User-Agent”, “Mozilla/5.0 (Linux; Android 6.0; Nexus 5 Build/MRA58N) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/122.0.6261.95 Mobile Safari/537.36”, )

补充内容 (2024-11-21 12:49):
ADD_协议头.清空（）,这个也要清空，在循环里面会重复一直添加添加，每次循环之前清空一次

从心 · 发表于 4 小时前

企鹅号525150138 发表于 2024-11-21 12:42
局_提交cookie1 ＝返回_cookie
ADD_协议头1.清空（）
ADD_协议头1.添加 (“User-Agent”, “Mozilla/5.0 ( ...

我试试我的哥

		自动登录	找回密码
密码			注册

[易语言] 帮忙看下循环30次就出问题了。