精易论坛

标题: 蓝奏网盘解析和下载 [打印本页]

作者: 眉公    时间: 2018-11-1 14:41
标题: 蓝奏网盘解析和下载
看之前有人发过源码,内容看着比较乱。

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

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

调用了 彗星Http操作支持库,已打包。
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
程序集_源码文本型  
程序集_地址文本型3 
程序集_提交信息文本型  
JSON彗星JSON  
下载对象下载对象  
任务参数任务参数  
正则表达式DEELX正则表达式DEELX  
搜索结果DEELX搜索结果DEELX0 

子程序名返回值类型公开备 注
_按钮_下载_被单击  
启动线程 (&子程序_解析, , )
子程序名返回值类型公开备 注
子程序_解析  
程序集_源码 = 彗星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操作系统界面功能支持库


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

lanzou_down.e

747.34 KB, 下载次数: 81, 下载积分: 精币 -2 枚

彗星http支持库.zip

495.56 KB, 下载次数: 49, 下载积分: 精币 -2 枚


作者: 眉公    时间: 2018-11-1 14:42

作者: fjcq    时间: 2018-11-1 20:36
建议去掉第三方支持库
作者: 眉公    时间: 2018-11-1 21:01
fjcq 发表于 2018-11-1 20:36
建议去掉第三方支持库

彗星的支持库挺好用呢
作者: 接口互联    时间: 2018-11-1 23:47
我用PHP写的接口支持有密码的。api.mlwei.com
作者: 眉公    时间: 2018-11-1 23:57
wei1044 发表于 2018-11-1 23:47
我用PHP写的接口支持有密码的。api.mlwei.com

有空参观参观
作者: wojinz    时间: 2018-11-2 08:48
下载看看。可以解析下载,
作者: cangyuie    时间: 2018-11-2 17:18
++++++++++++++++++++++++++++
作者: fjcq    时间: 2018-11-2 17:20
本帖最后由 fjcq 于 2018-11-2 17:22 编辑
眉公 发表于 2018-11-1 21:01
彗星的支持库挺好用呢

能用代码搞定的东西,最好别用支持库、模块。精易为啥会很多人,主要也就是因为开源,如果不开源的话,人数会少一大半。
作者: 眉公    时间: 2018-11-2 23:57
fjcq 发表于 2018-11-2 17:20
能用代码搞定的东西,最好别用支持库、模块。精易为啥会很多人,主要也就是因为开源,如果不开源的话,人 ...

谢谢,明白了。

作者: cangyuie    时间: 2019-1-1 22:30
++++++++++++++++++++
作者: z406460897    时间: 2019-10-17 11:32
666666666666666666666666666
作者: qiuy123    时间: 2022-3-31 20:20
现在出现在从现在才  
作者: qiuy123    时间: 2022-3-31 20:21
~!!阿斯顿撒
作者: qiuy123    时间: 2022-3-31 20:21
撒旦阿斯顿
作者: yuzhong    时间: 2023-5-14 03:37
感谢分享
作者: CF满熙    时间: 2023-8-29 23:31

感谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4