蓝奏云直链提取

诠释QS

使用了精易模块，自行下载替换即可

kevines

不错，谢谢分享

外星星人

沙发支持楼主

917622157

一来就失败 有点假啊

917622157

浪费两金币  尴尬

千面萌萌

解释失效了，代码中wws是不是拼接错误？修改之后还是不行。可参考 https://125.confly.eu.org/forum.php?mod ... 14556004&extra=

诠释QS

AP0909313 发表于 2020-6-10 19:56
解释失效了，代码中wws是不是拼接错误？修改之后还是不行。可参考 https://125.confly.eu.org/forum.php?mod=viewt ...

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 _按钮1_被单击
   
5. .局部变量 局_待解析地址, 文本型
   
6. .局部变量 局_待提取地址, 文本型
   
7. .局部变量 局_处理地址, 文本型
   
8. .局部变量 局_正确地址, 文本型
   
9. .局部变量 json, 类_json
   
10. .局部变量 UA, 文本型
    
11. 
    
12. UA ＝ “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36”
    
13. 编辑框2.内容 ＝ “”
    
14. 局_待解析地址 ＝ 编码_utf8到gb2312 (网页_访问S (编辑框1.内容, , , , , UA, , , , , , , , , , , , , , , ))
    
15. 
    
16. 
    
17. ' 从原网页提取出下一个要访问的地址
    
18. .如果真 (局_待解析地址 ＝ “”)
    
19.     信息框 (“网址错误！”, #错误图标, , )
    
20.     返回 ()
    
21. .如果真结束
    
22. 局_待提取地址 ＝ 正则_匹配单个 (局_待解析地址, 2, 1)
    
23. 
    
24. ' 从原网页提取出下一个要访问的地址的要提交的数据
    
25. .如果真 (局_待提取地址 ＝ “”)
    
26.     信息框 (“解析已失效！”, #错误图标, , )
    
27.     返回 ()
    
28. .如果真结束
    
29. 
    
30. UA ＝ “Host: wws.lanzous.com” ＋ #换行符 ＋ “Origin: https://lanzoux.com” ＋ #换行符 ＋ “Referer:” ＋ 编辑框1.内容 ＋ #换行符 ＋ UA
    
31. 局_待提取地址 ＝ 编码_utf8到gb2312 (网页_访问S (“https://lanzoux.com” ＋ 局_待提取地址, 1, , , , UA, , , , , , , , , , , , , , , ))
    
32. 局_待提取地址 ＝ 文本_取出中间文本 (局_待提取地址, “posturl = '”, “';”, , )
    
33. UA ＝ “Host: wws.lanzous.com” ＋ #换行符 ＋ “Origin: https://lanzoux.com” ＋ #换行符 ＋ “Referer:” ＋ “https://lanzoux.com” ＋ 局_待提取地址 ＋ #换行符 ＋ “Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/71.0.3578.98 Safari/537.36”
    
34. 局_处理地址 ＝ 网页_访问S (“https://lanzoux.com/ajaxm.php”, 1, “action=downprocess&sign=” ＋ 局_待提取地址 ＋ “ &ves=1”, , , UA, , , , , , , , , , , , , , , )
    
35. 
    
36. ' 使用返回的数据组合成合成的下载地址
    
37. .如果真 (局_处理地址 ＝ “”)
    
38.     信息框 (“正确地址提取失败！”, #错误图标, , )
    
39.     返回 ()
    
40. .如果真结束
    
41. 
    
42. json.解析 (局_处理地址)
    
43. 
    
44. 局_正确地址 ＝ json.取通用属性 (“url”, )
    
45. 调试输出 (局_正确地址)
    
46. 局_正确地址 ＝ 删全部空 (文本_替换 (局_正确地址, , , , “\”, “ ”, , , , , , , , ))
    
47. 
    
48. 调试输出 (局_正确地址)
    
49. 
    
50. 编辑框2.内容 ＝ “https://vip.d0.baidupan.com/file/” ＋ 局_正确地址
    
51. json.清除 ()
    

复制代码

以上的直接复制替换到原来下载的子程序里面

目光微暖爱倾城

支持一下！感谢分享!

千面萌萌

诠释QS 发表于 2020-6-11 00:01
以上的直接复制替换到原来下载的子程序里面

1、你贴出代码测试过可行？ 第一个报错就出来了.
2、你确定如图红圈的是wws而不是www  ？


赔我精币

诠释QS

AP0909313 发表于 2020-6-11 03:43
1、你贴出代码测试过可行？ 第一个报错就出来了.
2、你确定如图红圈的是wws而不是www  ？

先检查一下你的地址是不是有效的，地址给我一下，我写的时候是按照最后的网页中可点击下载的地址来写的，如果还有上一级就会失效