.版本 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 透明标签_信息.标题 ＝ “已停止！” 超级按钮_开始监听.禁止 ＝ 假 超级按钮_停止监听.禁止 ＝ 真