DZ论坛新帖监听源码

.版本 2
.支持库 EThread
.支持库 iext
.支持库 iext2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 是否结束循环, 整数型, , , 0表示开始1表示结束

.子程序 _超级按钮_开始监听_被单击

是否结束循环 ＝ 0
启动线程 (&主程序, , )

.子程序 第一条帖子id, 文本型, , 获取第一条帖子id
.局部变量 返回源文本, 文本型
.局部变量 第一条帖子源码分段, 文本型
.局部变量 帖子id, 文本型

返回源文本 ＝ 网页_访问S (填写dz网站最新发帖链接, 0, , , , , , , , , , , , , , , , , , , )
第一条帖子源码分段 ＝ 文本_取出中间文本 (返回源文本, “<tbody id=” ＋ #引号 ＋ “normalthread_”, “</tbody>”, , )
帖子id ＝ 文本_取出中间文本 (第一条帖子源码分段, “content_”, #引号, , )
返回 (帖子id)

.子程序 主程序
.局部变量 帖子id, 文本型
.局部变量 i, 整数型
.局部变量 提醒, 整数型

透明标签_信息.标题 ＝ “正在监听....”
超级按钮_开始监听.禁止 ＝ 真
超级按钮_停止监听.禁止 ＝ 假
帖子id ＝ 第一条帖子id ()
.如果真 (帖子id ＝ “”)
    信息框 (“获取id失败！”, 0, , )
    _超级按钮_停止监听_被单击 ()
.如果真结束
.判断循环首 (真)
    .如果真 (是否结束循环 ＝ 1)
        跳出循环 ()
    .如果真结束
    提醒 ＝ 是否需要提醒 (帖子id)
    .如果真 (提醒 ＝ 0)
        _超级按钮_停止监听_被单击 ()
    .如果真结束
    .如果真 (提醒 ＝ 1)
        i ＝ i ＋ 1
        提醒操作 ()
        透明标签_信息.标题 ＝ “已提醒：” ＋ 到文本 (i) ＋ “次！”
        帖子id ＝ 第一条帖子id ()
    .如果真结束
    .如果真 (提醒 ≠ 0 且 提醒 ≠ 1 且 提醒 ≠ 2)
        帖子id ＝ 到文本 (提醒)
    .如果真结束
    延时 (30000)
.判断循环尾 ()

.子程序 是否需要提醒, 整数型, , 1需要提醒2不需要0未知错误
.参数 参_帖子id, 文本型
.局部变量 刷新后id, 整数型
.局部变量 帖子id, 整数型

帖子id ＝ 到整数 (参_帖子id)
刷新后id ＝ 到整数 (第一条帖子id ())
.如果真 (刷新后id ＝ 帖子id)
    返回 (2)
.如果真结束
.如果真 (刷新后id ＞ 帖子id)
    返回 (1)
.如果真结束
.如果真 (刷新后id ＜ 帖子id)
    返回 (刷新后id)
.如果真结束
返回 (0)

.子程序 提醒操作

调试输出 (1)

.子程序 _超级按钮_停止监听_被单击

是否结束循环 ＝ 1
透明标签_信息.标题 ＝ “已停止！”
超级按钮_开始监听.禁止 ＝ 假
超级按钮_停止监听.禁止 ＝ 真

@ysp半步