书旗小说阅读下载器

闻v风

原贴:http://bbs.125.la/forum.php?mod=viewthread&tid=14178227

感谢原作者提供源码，不过原贴的只能输入ID看书，找ID还需打开网站查找有点不方便。
所以自己增加了榜单、搜索、书本简介、下载功能
水平有限，代码很渣，见谅

调用了精易模块，请自行添加！

书旗VIP.e (825.26 KB, 下载次数: 162)

2019-5-22 20:47 上传

点击文件名下载附件



补充内容 (2019-5-23 22:47):
32楼 修复获取章节列表不全问题

补充内容 (2019-11-12 22:21):
◆◆◆已失效◆◆◆

闻v风

  

子程序名	返回值类型	公开	备 注
下载整书
参数名	类 型	参考	可空	数组	备 注
索引

变量名	类 型	静态	数组	备 注
I	整数型
J	整数型
Data	文本型
WebData	文本型
Json	类_json
Json2	类_json
书本内容	文本型
书名	文本型
l_章节内容	文本型
l_章节标题	文本型
l_总数	整数型
l_总数2	整数型
l_最后一行	文本型
l_书名	文本型
临时文件路径	文本型
l_作者	文本型
l_简介	文本型
l_小说全本	文本型
l_章节ID	文本型
l_章节标题_	文本型
l_临时	文本型
l_书本ID	文本型
快速文本对象	快速文本对象

l_书本ID ＝ 编辑框_书本ID.内容
Data ＝ 编辑框_书本ID.内容 ＋ “1514984538213800000037e81a9d8f02596e1b895d07c171d5c9”
Sign ＝ 校验_取md5 (到字节集 (Data), , )
WebData ＝ 编码_utf8到gb2312 (网页_访问S (“http://walden1.shuqireader.com/webapi/book/chapterlist”, 1, “timestamp=1514984538213&user_id=8000000&bookId=” ＋ 编辑框_书本ID.内容 ＋ “&sign=” ＋ Sign, , , , , , , , , , , , , , , , ))
如果真 (取反 (Json.解析 (WebData)))
信息框 (“解析失败”, 0, , )
返回 ()
l_作者 ＝ 标签_作者.标题
l_书名 ＝ 标签_书名.标题
l_简介 ＝ 超级编辑框_简介.内容
状态 (l_书名 ＋ “ 开始下载 - ” ＋ l_书名)
如果真 (目录_是否存在 (取运行目录 () ＋ “\tmp\” ＋ l_书名) ＝ 假)
目录_创建 (取运行目录 () ＋ “\tmp\” ＋ l_书名)
如果真 (目录_是否存在 (取运行目录 () ＋ “\下载”) ＝ 假)
目录_创建 (取运行目录 () ＋ “\下载”)

Json2.解析 (Json.取属性 (“data.chapterList”).取数据文本 ())
l_总数 ＝ Json2.成员数 ()
计次循环首 (l_总数, J)
Json.清除 ()
Json.解析 (Json2.取属性 (“[” ＋ 到文本 (J － 1) ＋ “].volumeList”).取数据文本 ())
l_总数2 ＝ Json.成员数 ()
计次循环首 (l_总数2, I)
临时文件路径 ＝ 取运行目录 () ＋ “\tmp\” ＋ l_书名 ＋ “\” ＋ 到文本 (100000 ＋ I) ＋ “.txt”
如果真 (文件_是否存在 (临时文件路径) ＝ 真 且 到整数 (文件_取尺寸 (临时文件路径, )) ＞ 100)
到循环尾 ()

l_章节标题 ＝ Json.取成员 (I － 1, ).取通用属性 (“chapterName”, )
l_章节标题_ ＝ l_章节标题
如果真 (寻找文本 (l_章节标题, “ ”, , 假) ＝ -1)
l_章节标题 ＝ 子文本替换 (l_章节标题, “章”, “章 ”, , , 真)
如果 (l_总数 ＞ 1)
超级列表框_下载列表.置标题 (索引, 2, 到文本 (I) ＋ “/” ＋ 到文本 (l_总数2) ＋ “|” ＋ 到文本 (J) ＋ “/” ＋ 到文本 (l_总数))
超级列表框_下载列表.置标题 (索引, 2, 到文本 (I) ＋ “/” ＋ 到文本 (l_总数2))
l_章节ID ＝ Json.取成员 (I － 1, ).取通用属性 (“chapterId”, )
l_章节内容 ＝ 获取假Base64_2 (l_书本ID, l_章节ID)
l_章节内容 ＝ 文本_删除空行_ (l_章节内容)
如果真 (取文本长度 (l_章节内容) ＜ 100)
写配置项 (取运行目录 () ＋ “\err_log.ini”, l_书名, 到文本 (I) ＋ “_” ＋ l_章节标题, l_章节ID)
到循环尾 ()

如果真 (寻找文本 (l_章节内容, “　　第”, , 假) ≠ -1)
l_章节内容 ＝ 子文本替换 (l_章节内容, “　　第”, “第”, , 1, 真)

判断循环首 (真)
如果 (取文本右边 (l_章节内容, 2) ＝ “）”)
l_临时 ＝ 文本_倒取出中间文本 (l_章节内容, “）”, “（”, , 真)
如果 (取文本长度 (l_临时) ＜ 1000)
l_章节内容 ＝ 子文本替换 (l_章节内容, “（” ＋ l_临时 ＋ “）”, , , , 真)
l_章节内容 ＝ 文本_删除空行2_ (l_章节内容)
l_章节内容 ＝ 子文本替换 (l_章节内容, “【” ＋ l_临时 ＋ “】”, , , , 真)

如果 (取文本右边 (l_章节内容, 1) ＝ “)”)
l_临时 ＝ 文本_倒取出中间文本 (l_章节内容, “)”, “(”, , 真)
如果 (取文本长度 (l_临时) ＜ 1000)
l_章节内容 ＝ 子文本替换 (l_章节内容, “(” ＋ l_临时 ＋ “)”, , , , 真)
l_章节内容 ＝ 文本_删除空行2_ (l_章节内容)
l_章节内容 ＝ 子文本替换 (l_章节内容, “【” ＋ l_临时 ＋ “】”, , , , 真)

跳出循环 ()


判断循环尾 ()
如果 (寻找文本 (l_章节内容, l_章节标题_, , 假) ＝ -1 且 寻找文本 (l_章节内容, l_章节标题, , 假) ＝ -1)
l_章节内容 ＝ l_章节标题 ＋ #换行符 ＋ l_章节内容 ＋ #换行符 ＋ #换行符
l_章节内容 ＝ l_章节内容 ＋ #换行符 ＋ #换行符
写到文件 (临时文件路径, 到字节集 (l_章节内容))
计次循环尾 ()
计次循环尾 ()
状态 (l_书名 ＋ “ 开始合并...”)
列表框_文件路径.清空 ()
文件_搜索 (取运行目录 () ＋ “\tmp\” ＋ l_书名, 列表框_文件路径, “*.txt”, , , 真)
l_总数 ＝ 列表框_文件路径.取项目数 ()
快速文本对象.置文本 (l_书名 ＋ “ ” ＋ l_作者 ＋ #换行符 ＋ l_简介 ＋ #换行符 ＋ #换行符 )
计次循环首 (l_总数, I)
如果真 (I ≠ 1)
快速文本对象.添加 ( #换行符 ＋ #换行符 )
状态 (“合并 - ” ＋ l_书名 ＋ “ | ” ＋ 到文本 (I) ＋ “/” ＋ 到文本 (l_总数))
临时文件路径 ＝ 列表框_文件路径.取项目文本 (I － 1)
快速文本对象.添加 (到文本 (读入文件 (临时文件路径)))
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\下载\” ＋ l_书名 ＋ “ 作者：” ＋ l_作者 ＋ “.txt”, 到字节集 (快速文本对象.取文本 (, )))
超级列表框_下载列表.置标题 (索引, 2, “完成”)
状态 (l_书名 ＋ “ 合并结束！”)

子程序名	返回值类型	公开	备 注
获取章节

变量名	类 型	静态	数组	备 注
Data	文本型
WebData	文本型
Json	类_json
I
l_总数	整数型
l_总数2	整数型
l_书本ID	文本型
Json2	类_json
J	整数型
o	整数型

l_书本ID ＝ 编辑框_书本ID.内容
状态 (“获取章节 - ” ＋ l_书本ID ＋ “开始...”)
Data ＝ 编辑框_书本ID.内容 ＋ “1514984538213800000037e81a9d8f02596e1b895d07c171d5c9”
Sign ＝ 校验_取md5 (到字节集 (Data), , )
WebData ＝ 编码_utf8到gb2312 (网页_访问S (“http://walden1.shuqireader.com/webapi/book/chapterlist”, 1, “timestamp=1514984538213&user_id=8000000&bookId=” ＋ 编辑框_书本ID.内容 ＋ “&sign=” ＋ Sign, , , , , , , , , , , , , , , , ))
如果真 (取反 (Json.解析 (WebData)))
信息框 (“解析失败”, 0, , )
返回 ()
Json2.解析 (Json.取属性 (“data.chapterList”).取数据文本 ())
l_总数 ＝ Json2.成员数 ()
计次循环首 (l_总数, J)
Json.清除 ()
Json.解析 (Json2.取属性 (“[” ＋ 到文本 (J － 1) ＋ “].volumeList”).取数据文本 ())
l_总数2 ＝ Json.成员数 ()
计次循环首 (l_总数2, I)
o ＝ 超级列表框_章节目录.插入表项 (, , , , , )
超级列表框_章节目录.置标题 (o, 0, Json.取成员 (I － 1, ).取通用属性 (“chapterName”, ))
超级列表框_章节目录.置标题 (o, 1, Json.取成员 (I － 1, ).取通用属性 (“chapterId”, ))
超级列表框_章节目录.现行选中项 ＝ o
超级列表框_章节目录.保证显示 (超级列表框_章节目录.现行选中项)
计次循环尾 ()
计次循环尾 ()
超级列表框_章节目录.刷新显示 ()
按钮_取章节目录.禁止 ＝ 假
状态 (“获取章节 - ” ＋ l_书本ID ＋ “结束 共[” ＋ 到文本 (超级列表框_章节目录.取表项数 ()) ＋ “]章！”)

i支持库列表	支持库注释
commobj	通用对象支持库
iext2	扩展界面支持库二
iext	扩展界面支持库一

.版本 2<br /> .支持库 commobj<br /> .支持库 iext2<br /> .支持库 iext<br /> <br /> .子程序 下载整书<br /> .参数 索引<br /> .局部变量 I, 整数型<br /> .局部变量 J, 整数型<br /> .局部变量 Data, 文本型<br /> .局部变量 WebData, 文本型<br /> .局部变量 Json, 类_json<br /> .局部变量 Json2, 类_json<br /> .局部变量 书本内容, 文本型<br /> .局部变量 书名, 文本型<br /> .局部变量 l_章节内容, 文本型<br /> .局部变量 l_章节标题, 文本型<br /> .局部变量 l_总数, 整数型<br /> .局部变量 l_总数2, 整数型<br /> .局部变量 l_最后一行, 文本型<br /> .局部变量 l_书名, 文本型<br /> .局部变量 临时文件路径, 文本型<br /> .局部变量 l_作者, 文本型<br /> .局部变量 l_简介, 文本型<br /> .局部变量 l_小说全本, 文本型<br /> .局部变量 l_章节ID, 文本型<br /> .局部变量 l_章节标题_, 文本型<br /> .局部变量 l_临时, 文本型<br /> .局部变量 l_书本ID, 文本型<br /> .局部变量 快速文本对象, 快速文本对象<br /> <br /> l_书本ID ＝ 编辑框_书本ID.内容<br /> Data ＝ 编辑框_书本ID.内容 ＋ “1514984538213800000037e81a9d8f02596e1b895d07c171d5c9”<br /> Sign ＝ 校验_取md5 (到字节集 (Data), , )<br /> WebData ＝ 编码_utf8到gb2312 (网页_访问S (“http://walden1.shuqireader.com/webapi/book/chapterlist”, 1, “timestamp=1514984538213&user_id=8000000&bookId=” ＋ 编辑框_书本ID.内容 ＋ “&sign=” ＋ Sign, , , , , , , , , , , , , , , , ))<br /> .如果真 (取反 (Json.解析 (WebData)))<br />     信息框 (“解析失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> l_作者 ＝ 标签_作者.标题<br /> l_书名 ＝ 标签_书名.标题<br /> l_简介 ＝ 超级编辑框_简介.内容<br /> 状态 (l_书名 ＋ “ 开始下载 - ” ＋ l_书名)<br /> .如果真 (目录_是否存在 (取运行目录 () ＋ “\tmp\” ＋ l_书名) ＝ 假)<br />     目录_创建 (取运行目录 () ＋ “\tmp\” ＋ l_书名)<br /> .如果真结束<br /> .如果真 (目录_是否存在 (取运行目录 () ＋ “\下载”) ＝ 假)<br />     目录_创建 (取运行目录 () ＋ “\下载”)<br /> .如果真结束<br /> <br /> Json2.解析 (Json.取属性 (“data.chapterList”).取数据文本 ())<br /> l_总数 ＝ Json2.成员数 ()<br /> .计次循环首 (l_总数, J)<br />     Json.清除 ()<br />     Json.解析 (Json2.取属性 (“[” ＋ 到文本 (J － 1) ＋ “].volumeList”).取数据文本 ())<br />     l_总数2 ＝ Json.成员数 ()<br />     .计次循环首 (l_总数2, I)<br />         临时文件路径 ＝ 取运行目录 () ＋ “\tmp\” ＋ l_书名 ＋ “\” ＋ 到文本 (100000 ＋ I) ＋ “.txt”<br />         .如果真 (文件_是否存在 (临时文件路径) ＝ 真 且 到整数 (文件_取尺寸 (临时文件路径, )) ＞ 100)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         l_章节标题 ＝ Json.取成员 (I － 1, ).取通用属性 (“chapterName”, )<br />         l_章节标题_ ＝ l_章节标题<br />         .如果真 (寻找文本 (l_章节标题, “ ”, , 假) ＝ -1)<br />             l_章节标题 ＝ 子文本替换 (l_章节标题, “章”, “章 ”, , , 真)<br />         .如果真结束<br />         .如果 (l_总数 ＞ 1)<br />             超级列表框_下载列表.置标题 (索引, 2, 到文本 (I) ＋ “/” ＋ 到文本 (l_总数2) ＋ “|” ＋ 到文本 (J) ＋ “/” ＋ 到文本 (l_总数))<br />         .否则<br />             超级列表框_下载列表.置标题 (索引, 2, 到文本 (I) ＋ “/” ＋ 到文本 (l_总数2))<br />         .如果结束<br />         l_章节ID ＝ Json.取成员 (I － 1, ).取通用属性 (“chapterId”, )<br />         l_章节内容 ＝ 获取假Base64_2 (l_书本ID, l_章节ID)<br />         l_章节内容 ＝ 文本_删除空行_ (l_章节内容)<br />         .如果真 (取文本长度 (l_章节内容) ＜ 100)<br />             写配置项 (取运行目录 () ＋ “\err_log.ini”, l_书名, 到文本 (I) ＋ “_” ＋ l_章节标题, l_章节ID)<br />             到循环尾 ()<br />         .如果真结束<br /> <br />         .如果真 (寻找文本 (l_章节内容, “　　第”, , 假) ≠ -1)<br />             l_章节内容 ＝ 子文本替换 (l_章节内容, “　　第”, “第”, , 1, 真)<br />         .如果真结束<br /> <br />         .判断循环首 (真)<br />             .如果 (取文本右边 (l_章节内容, 2) ＝ “）”)<br />                 l_临时 ＝ 文本_倒取出中间文本 (l_章节内容, “）”, “（”, , 真)<br />                 .如果 (取文本长度 (l_临时) ＜ 1000)<br />                     l_章节内容 ＝ 子文本替换 (l_章节内容, “（” ＋ l_临时 ＋ “）”, , , , 真)<br />                     l_章节内容 ＝ 文本_删除空行2_ (l_章节内容)<br />                 .否则<br />                     l_章节内容 ＝ 子文本替换 (l_章节内容, “【” ＋ l_临时 ＋ “】”, , , , 真)<br />                 .如果结束<br /> <br />             .否则<br />                 .如果 (取文本右边 (l_章节内容, 1) ＝ “)”)<br />                     l_临时 ＝ 文本_倒取出中间文本 (l_章节内容, “)”, “(”, , 真)<br />                     .如果 (取文本长度 (l_临时) ＜ 1000)<br />                         l_章节内容 ＝ 子文本替换 (l_章节内容, “(” ＋ l_临时 ＋ “)”, , , , 真)<br />                         l_章节内容 ＝ 文本_删除空行2_ (l_章节内容)<br />                     .否则<br />                         l_章节内容 ＝ 子文本替换 (l_章节内容, “【” ＋ l_临时 ＋ “】”, , , , 真)<br />                     .如果结束<br /> <br />                 .否则<br />                     跳出循环 ()<br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .判断循环尾 ()<br /> <br />         .如果 (寻找文本 (l_章节内容, l_章节标题_, , 假) ＝ -1 且 寻找文本 (l_章节内容, l_章节标题, , 假) ＝ -1)<br />             l_章节内容 ＝ l_章节标题 ＋ #换行符 ＋ l_章节内容 ＋ #换行符 ＋ #换行符<br />         .否则<br />             l_章节内容 ＝ l_章节内容 ＋ #换行符 ＋ #换行符<br />         .如果结束<br />         写到文件 (临时文件路径, 到字节集 (l_章节内容))<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 状态 (l_书名 ＋ “ 开始合并...”)<br /> 列表框_文件路径.清空 ()<br /> 文件_搜索 (取运行目录 () ＋ “\tmp\” ＋ l_书名, 列表框_文件路径, “*.txt”, , , 真)<br /> l_总数 ＝ 列表框_文件路径.取项目数 ()<br /> 快速文本对象.置文本 (l_书名 ＋ “ ” ＋ l_作者 ＋ #换行符 ＋ l_简介 ＋ #换行符 ＋ #换行符)<br /> .计次循环首 (l_总数, I)<br />     .如果真 (I ≠ 1)<br />         快速文本对象.添加 (#换行符 ＋ #换行符)<br />     .如果真结束<br />     状态 (“合并 - ” ＋ l_书名 ＋ “ | ” ＋ 到文本 (I) ＋ “/” ＋ 到文本 (l_总数))<br />     临时文件路径 ＝ 列表框_文件路径.取项目文本 (I － 1)<br />     快速文本对象.添加 (到文本 (读入文件 (临时文件路径)))<br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\下载\” ＋ l_书名 ＋ “ 作者：” ＋ l_作者 ＋ “.txt”, 到字节集 (快速文本对象.取文本 (, )))<br /> 超级列表框_下载列表.置标题 (索引, 2, “完成”)<br /> 状态 (l_书名 ＋ “ 合并结束！”)<br /> <br /> .子程序 获取章节<br /> .局部变量 Data, 文本型<br /> .局部变量 WebData, 文本型<br /> .局部变量 Json, 类_json<br /> .局部变量 I<br /> .局部变量 l_总数, 整数型<br /> .局部变量 l_总数2, 整数型<br /> .局部变量 l_书本ID, 文本型<br /> .局部变量 Json2, 类_json<br /> .局部变量 J, 整数型<br /> .局部变量 o, 整数型<br /> <br /> l_书本ID ＝ 编辑框_书本ID.内容<br /> 状态 (“获取章节 - ” ＋ l_书本ID ＋ “开始...”)<br /> Data ＝ 编辑框_书本ID.内容 ＋ “1514984538213800000037e81a9d8f02596e1b895d07c171d5c9”<br /> Sign ＝ 校验_取md5 (到字节集 (Data), , )<br /> WebData ＝ 编码_utf8到gb2312 (网页_访问S (“http://walden1.shuqireader.com/webapi/book/chapterlist”, 1, “timestamp=1514984538213&user_id=8000000&bookId=” ＋ 编辑框_书本ID.内容 ＋ “&sign=” ＋ Sign, , , , , , , , , , , , , , , , ))<br /> .如果真 (取反 (Json.解析 (WebData)))<br />     信息框 (“解析失败”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> Json2.解析 (Json.取属性 (“data.chapterList”).取数据文本 ())<br /> l_总数 ＝ Json2.成员数 ()<br /> .计次循环首 (l_总数, J)<br />     Json.清除 ()<br />     Json.解析 (Json2.取属性 (“[” ＋ 到文本 (J － 1) ＋ “].volumeList”).取数据文本 ())<br />     l_总数2 ＝ Json.成员数 ()<br />     .计次循环首 (l_总数2, I)<br />         o ＝ 超级列表框_章节目录.插入表项 (, , , , , )<br />         超级列表框_章节目录.置标题 (o, 0, Json.取成员 (I － 1, ).取通用属性 (“chapterName”, ))<br />         超级列表框_章节目录.置标题 (o, 1, Json.取成员 (I － 1, ).取通用属性 (“chapterId”, ))<br />         超级列表框_章节目录.现行选中项 ＝ o<br />         超级列表框_章节目录.保证显示 (超级列表框_章节目录.现行选中项)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 超级列表框_章节目录.刷新显示 ()<br /> 按钮_取章节目录.禁止 ＝ 假<br /> 状态 (“获取章节 - ” ＋ l_书本ID ＋ “结束 共[” ＋ 到文本 (超级列表框_章节目录.取表项数 ()) ＋ “]章！”)

修复获取章节列表不全问题
替换掉  获取章节 下载整书 两个 子程序
修复后的源码：

书旗VIP.e (826.06 KB, 下载次数: 91)

2019-5-23 22:54 上传

点击文件名下载附件

wojiaoyangkun

666666666666666666666

aini1wna2

#在这里快速回复#http://www.i7wu.cn/finished/1.htm

就是那个秋

        支持开源~！感谢分享

仙游

淘气小阿飞

1233333333333

sdzc525

{:4_255:}{:4_255:}{:4_255:}

求破APP注册限制

楼主有没有打包好了的

iAmBition

新技能已get√

q951681306

感谢分享！！！下载可以加个多线程

anying860452

学习正好好用到