.版本 2 .支持库 RegEx .支持库 internet .支持库 iext .子程序 获取源码子程序1 .参数 搜索参数, 文本型 .局部变量 源码, 文本型 .局部变量 初始源码, 字节集 .局部变量 lj, 逻辑型 .局部变量 正则, 正则表达式 .局部变量 页数正则, 正则表达式 .局部变量 搜索结果, 搜索结果, , "0" .局部变量 页数搜索结果, 搜索结果, , "0" .局部变量 计次, 整数型 .局部变量 临时文本1, 文本型 .局部变量 最终文本1, 文本型, , "100" .局部变量 临时文本2, 文本型 .局部变量 最终文本2, 文本型, , "100" .如果真 (当前搜索 ＝ “”) 信息框 (“请在搜索框内输入内容”, 0, , ) 返回 () .如果真结束 源码 ＝ 到文本 (HTTP读文件 (“//www.h31bt1.net/search/” ＋ 编码_URL编码 (搜索参数, , 真))) 源码 ＝ 编码_utf8到gb2312 (源码) 超级列表框1.全部删除 () 正则.创建 (#搜索常量, ) 搜索结果 ＝ 正则.搜索全部 (源码) .判断开始 (取数组成员数 (搜索结果) ＝ 0) 信息框 (“未搜索到内容”, 0, , ) 返回 () .默认 .判断结束 .计次循环首 (取数组成员数 (搜索结果), 计次) 临时文本1 ＝ 搜索结果 [计次].取子匹配文本 (源码, 2, ) 最终文本1 [计次] ＝ 临时文本1 临时文本2 ＝ 搜索结果 [计次].取子匹配文本 (源码, 1, ) 最终文本2 [计次] ＝ “magnet:” ＋ 临时文本2 .计次循环尾 () 超级列表框1.置标题 (超级列表框1.插入表项 (1, , , , , ) － 1, 0, 最终文本1 [1]) .计次循环首 (取数组成员数 (搜索结果), 计次) 超级列表框1.置标题 (超级列表框1.插入表项 (计次, , , , , ) － 1, 0, 最终文本1 [计次]) 超级列表框1.置标题 (超级列表框1.插入表项 (计次, , , , , ) － 1, 1, 最终文本2 [计次]) .计次循环尾 () 页数正则.创建 (#页数搜索常量, ) 页数搜索结果 ＝ 页数正则.搜索全部 (源码) 页数左 ＝ 页数搜索结果 [1].取子匹配文本 (源码, 3, ) 页数右 ＝ 页数搜索结果 [1].取子匹配文本 (源码, 4, ) 标签2.标题 ＝ “总条数:” ＋ 页数搜索结果 [1].取子匹配文本 (源码, 1, ) ＋ “ 页数 ” ＋ 页数左 ＋ “/” ＋ 页数右 .子程序 _按钮1_被单击 当前搜索 ＝ 搜索编辑框1.内容 获取源码子程序1 (搜索编辑框1.内容) .子程序 _超级列表框1_右键单击表项 .局部变量 被复制内容, 文本型 被复制内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) .判断开始 (被复制内容 ≠ “”) 置剪辑板文本 (被复制内容) 信息框 (“复制成功，快粘贴到下载工具下载吧!”, 0, , ) .默认 .判断结束 .子程序 _按钮2_被单击 .判断开始 (页数左 ＝ “”) 信息框 (“请先搜索”, 0, , ) 返回 () .判断 (页数左 ＝ “1”) 信息框 (“已经到第一页”, 0, , ) 返回 () .默认 .判断结束 获取源码子程序1 (当前搜索 ＋ “/” ＋ 到文本 (到整数 (页数左) － 1) ＋ “.html”) .子程序 _按钮3_被单击 .判断开始 (页数左 ＝ “”) 信息框 (“请先搜索”, 0, , ) 返回 () .判断 (页数左 ＝ 页数右) 信息框 (“已经到最后一页”, 0, , ) 返回 () .默认 .判断结束 获取源码子程序1 (当前搜索 ＋ “/” ＋ 到文本 (到整数 (页数左) ＋ 1) ＋ “.html”)