蓝奏网盘解析和下载

眉公

看之前有人发过源码，内容看着比较乱。

整理了一下，使用的是正则表达式 和JOSN操作，简洁了源码。

解析和下载一起的，有兴趣了可以参考一下。

调用了 彗星Http操作支持库，已打包。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
程序集_源码	文本型
程序集_地址	文本型	3
程序集_提交信息	文本型
JSON	彗星JSON
下载对象	下载对象
任务参数	任务参数
正则表达式DEELX	正则表达式DEELX
搜索结果DEELX	搜索结果DEELX	0

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

启动线程 (&子程序_解析, , )

子程序名	返回值类型	公开	备 注
子程序_解析

程序集_源码 ＝ 彗星HTTP读文本 (编辑框_源地址.内容, , , , , , , , )
正则表达式DEELX.创建 (“src=” ＋ #引号 ＋ “(.+?)” ＋ #引号, #正则常量 .全局模式, )
搜索结果DEELX ＝ 正则表达式DEELX.搜索全部 (程序集_源码, )
程序集_地址 [1] ＝ “https://lanzoux.com” ＋ 搜索结果DEELX [1].取子匹配文本 (1)
调试输出 (程序集_地址 [1])
程序集_源码 ＝ 彗星HTTP读文本 (程序集_地址 [1], , , , , , , , )
' ----------------------------------------------------------↑获取源地址的网页文本中的动态post信息↑ ----------------------------------------------------------
正则表达式DEELX.创建 ( #常量_正则表达式, #正则常量 .全局模式, )
搜索结果DEELX ＝ 正则表达式DEELX.搜索全部 (程序集_源码, )
程序集_提交信息 ＝ “action=” ＋ 搜索结果DEELX [1].取子匹配文本 (1) ＋ “&file_id=” ＋ 搜索结果DEELX [1].取子匹配文本 (2) ＋ “&t=” ＋ 搜索结果DEELX [1].取子匹配文本 (3) ＋ “&k=” ＋ 搜索结果DEELX [1].取子匹配文本 (4) ＋ “&c=”
调试输出 (程序集_提交信息)
' ----------------------------------------------------------↑正则匹配出动态post信息↑ ----------------------------------------------------------
程序集_源码 ＝ 彗星HTTP读文本 (“https://lanzoux.com/ajaxm.php”, “POST”, , 子文本替换 ( #常量_蓝奏协yi头, “[#]”, 程序集_地址 [1], , , 真), 程序集_提交信息, , , , )
JSON.解析 (程序集_源码, )
程序集_地址 [2] ＝ JSON.取文本属性 (“dom”) ＋ “/file/” ＋ JSON.取文本属性 (“url”)
调试输出 (程序集_地址 [2])
' ----------------------------------------------------------↑获取重定向URL地址↑ ----------------------------------------------------------
程序集_地址 [3] ＝ 彗星HTTP取跳转地址 (程序集_地址 [2], , , , , , , , )
调试输出 (程序集_地址 [3])
编辑框_下载地址.内容 ＝ 程序集_地址 [3]
' ----------------------------------------------------------↑重定向返回的地址就是真实下载地址↑ ----------------------------------------------------------
任务参数.类型 ＝ #传送常量 .下载
任务参数.文件地址 ＝ 子文本替换 (程序集_地址 [3], “https”, “http”, , , 真)
' ----------------------------------------------------------↑易语言支持库无法下载https连接，替换为http即可下载↑ ----------------------------------------------------------
任务参数.本地文件路径 ＝ 取特定目录 (3)
任务参数.交互回调函数 ＝ &子程序_交互回调函数
下载对象.增加新任务 (任务参数)

子程序名	返回值类型	公开	备 注
子程序_交互回调函数
参数名	类 型	参考	可空	数组	备 注
参数1	整数型
参数2	整数型
参数3	整数型
参数4	整数型
参数5	整数型

变量名	类 型	静态	数组	备 注
局部_总大小	整数型
局部_百分比	整数型

判断 (参数1 ＝ 3)
局部_总大小 ＝ 参数3
调试输出 (“准备下载”, 下载对象.取本地文件路径 (), 局部_总大小)
时钟_下载.时钟周期 ＝ 1000
判断 (参数1 ＝ 4)
调试输出 (“下载结束”)
时钟_下载.时钟周期 ＝ 0
判断 (参数1 ＝ 8)
调试输出 (“下载正常结束”)
时钟_下载.时钟周期 ＝ 0
信息框 (“下载成功”, 0, , )
判断 (参数1 ＝ 9)
调试输出 (“下载异常结束”)
时钟_下载.时钟周期 ＝ 0
信息框 (“下载失败”, 0, , )
判断 (参数1 ＝ 16)
局部_百分比 ＝ 到整数 (下载对象.取已下载长 () ÷ 局部_总大小 × 100)
进度条_下载进度.位置 ＝ 局部_百分比

子程序名	返回值类型	公开	备 注
_时钟_下载_周期事件

标签_下载速度.标题 ＝ 到文本 (到整数 (下载对象.取下载速度 () ÷ 1024000)) ＋ “M/S”

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

i支持库列表	支持库注释
CometHttp	(未知支持库)
downlib	网络传送支持库
DeelxRegEx	(未知支持库)
EThread	多线程支持库
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 CometHttp<br /> .支持库 downlib<br /> .支持库 DeelxRegEx<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 程序集_源码, 文本型<br /> .程序集变量 程序集_地址, 文本型, , "3"<br /> .程序集变量 程序集_提交信息, 文本型<br /> .程序集变量 JSON, 彗星JSON<br /> .程序集变量 下载对象, 下载对象<br /> .程序集变量 任务参数, 任务参数<br /> .程序集变量 正则表达式DEELX, 正则表达式DEELX<br /> .程序集变量 搜索结果DEELX, 搜索结果DEELX, , "0"<br /> <br /> .子程序 _按钮_下载_被单击<br /> <br /> 启动线程 (&子程序_解析, , )<br /> <br /> .子程序 子程序_解析<br /> <br /> 程序集_源码 ＝ 彗星HTTP读文本 (编辑框_源地址.内容, , , , , , , , )<br /> 正则表达式DEELX.创建 (“src=” ＋ #引号 ＋ “(.+?)” ＋ #引号, #正则常量.全局模式, )<br /> 搜索结果DEELX ＝ 正则表达式DEELX.搜索全部 (程序集_源码, )<br /> <br /> 程序集_地址 [1] ＝ “https://lanzoux.com” ＋ 搜索结果DEELX [1].取子匹配文本 (1)<br /> 调试输出 (程序集_地址 [1])<br /> 程序集_源码 ＝ 彗星HTTP读文本 (程序集_地址 [1], , , , , , , , )<br /> <br /> ' ----------------------------------------------------------↑获取源地址的网页文本中的动态post信息↑ ----------------------------------------------------------<br /> <br /> <br /> 正则表达式DEELX.创建 (#常量_正则表达式, #正则常量.全局模式, )<br /> 搜索结果DEELX ＝ 正则表达式DEELX.搜索全部 (程序集_源码, )<br /> <br /> 程序集_提交信息 ＝ “action=” ＋ 搜索结果DEELX [1].取子匹配文本 (1) ＋ “&file_id=” ＋ 搜索结果DEELX [1].取子匹配文本 (2) ＋ “&t=” ＋ 搜索结果DEELX [1].取子匹配文本 (3) ＋ “&k=” ＋ 搜索结果DEELX [1].取子匹配文本 (4) ＋ “&c=”<br /> 调试输出 (程序集_提交信息)<br /> <br /> <br /> ' ----------------------------------------------------------↑正则匹配出动态post信息↑ ----------------------------------------------------------<br /> <br /> <br /> 程序集_源码 ＝ 彗星HTTP读文本 (“https://lanzoux.com/ajaxm.php”, “POST”, , 子文本替换 (#常量_蓝奏协yi头, “[#]”, 程序集_地址 [1], , , 真), 程序集_提交信息, , , , )<br /> JSON.解析 (程序集_源码, )<br /> 程序集_地址 [2] ＝ JSON.取文本属性 (“dom”) ＋ “/file/” ＋ JSON.取文本属性 (“url”)<br /> 调试输出 (程序集_地址 [2])<br /> <br /> ' ----------------------------------------------------------↑获取重定向URL地址↑ ----------------------------------------------------------<br /> <br /> <br /> <br /> 程序集_地址 [3] ＝ 彗星HTTP取跳转地址 (程序集_地址 [2], , , , , , , , )<br /> 调试输出 (程序集_地址 [3])<br /> 编辑框_下载地址.内容 ＝ 程序集_地址 [3]<br /> <br /> ' ----------------------------------------------------------↑重定向返回的地址就是真实下载地址↑ ----------------------------------------------------------<br /> <br /> <br /> 任务参数.类型 ＝ #传送常量.下载<br /> 任务参数.文件地址 ＝ 子文本替换 (程序集_地址 [3], “https”, “http”, , , 真)<br /> <br /> ' ----------------------------------------------------------↑易语言支持库无法下载https连接，替换为http即可下载↑ ----------------------------------------------------------<br /> <br /> 任务参数.本地文件路径 ＝ 取特定目录 (3)<br /> 任务参数.交互回调函数 ＝ &子程序_交互回调函数<br /> 下载对象.增加新任务 (任务参数)<br /> <br /> <br /> <br /> <br /> .子程序 子程序_交互回调函数<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> .参数 参数3, 整数型<br /> .参数 参数4, 整数型<br /> .参数 参数5, 整数型<br /> .局部变量 局部_总大小, 整数型, 静态<br /> .局部变量 局部_百分比, 整数型<br /> <br /> .判断开始 (参数1 ＝ 3)<br />     局部_总大小 ＝ 参数3<br />     调试输出 (“准备下载”, 下载对象.取本地文件路径 (), 局部_总大小)<br />     时钟_下载.时钟周期 ＝ 1000<br /> .判断 (参数1 ＝ 4)<br />     调试输出 (“下载结束”)<br />     时钟_下载.时钟周期 ＝ 0<br /> .判断 (参数1 ＝ 8)<br />     调试输出 (“下载正常结束”)<br />     时钟_下载.时钟周期 ＝ 0<br />     信息框 (“下载成功”, 0, , )<br /> .判断 (参数1 ＝ 9)<br />     调试输出 (“下载异常结束”)<br />     时钟_下载.时钟周期 ＝ 0<br />     信息框 (“下载失败”, 0, , )<br /> .判断 (参数1 ＝ 16)<br />     局部_百分比 ＝ 到整数 (下载对象.取已下载长 () ÷ 局部_总大小 × 100)<br />     进度条_下载进度.位置 ＝ 局部_百分比<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _时钟_下载_周期事件<br /> <br /> 标签_下载速度.标题 ＝ 到文本 (到整数 (下载对象.取下载速度 () ÷ 1024000)) ＋ “M/S”<br /> <br /> .子程序 __启动窗口_创建完毕

附上一个城通的连接 自己用来post测试。 https://u18723926.pipipan.com/fs/18723926-317562279

CF满熙

感谢分享

yuzhong

感谢分享

qiuy123

撒旦阿斯顿

qiuy123

~！！阿斯顿撒

qiuy123

现在出现在从现在才  

z406460897

666666666666666666666666666

cangyuie

++++++++++++++++++++

眉公

fjcq 发表于 2018-11-2 17:20
能用代码搞定的东西，最好别用支持库、模块。精易为啥会很多人，主要也就是因为开源，如果不开源的话，人 ...

谢谢，明白了。

fjcq

眉公 发表于 2018-11-1 21:01
彗星的支持库挺好用呢

能用代码搞定的东西，最好别用支持库、模块。精易为啥会很多人，主要也就是因为开源，如果不开源的话，人数会少一大半。

cangyuie

++++++++++++++++++++++++++++