蓝奏云目录与文件解析

w80561307

下载康康学习 一下

w80561307

下载学习一下

381432753

撒旦阿斯顿阿斯顿阿斯顿啊是的请问的去

十一年之那一年

fjcq 发表于 2020-5-6 09:18

能不能发个最新的易语言文件，你发的代码改了之后获取不到

十一年之那一年

fjcq 发表于 2020-5-6 09:18

类_POSTxx类   这个是用的哪个模块

小鱼Fly

66666666666666666

fjcq

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 蓝奏云_取直链网址, 文本型, 公开, 成功返回地址失败返回空，无需登录。 支持加密文件解析
   
5. .参数 分享网址, 文本型, , 可以通过取分享网址来获取。
   
6. .参数 分享密码, 文本型, 可空
   
7. .局部变量 局_网址, 文本型
   
8. .局部变量 局_xx包, 类_POSTxx类
   
9. .局部变量 局_提交xx, 文本型
   
10. .局部变量 局_提交协yi头, 文本型
    
11. .局部变量 局_秘钥, 文本型
    
12. .局部变量 局_返回, 文本型
    
13. .局部变量 局_正则, 正则表达式类
    
14. .局部变量 局_json, 类_json
    
15. .局部变量 局_签名, 文本型
    
16. .局部变量 局_签名值, 文本型
    
17. .局部变量 局_重定向, 文本型
    
18. .局部变量 局_dom, 文本型
    
19. .局部变量 局_url, 文本型
    
20. 
    
21. 局_返回 ＝ 编码_Utf8到Ansi (网页_访问 (分享网址, , , , , #蓝奏云_协yi头1))
    
22. 局_返回 ＝ 文本_取中间_正则 (局_返回, “[^-]<if.*c=” ＋ #引号, #引号 ＋ “ f”)
    
23. .如果真 (局_返回 ＝ “”)
    
24.     返回 (“”)
    
25. .如果真结束
    
26. 局_秘钥 ＝ “https://lanzous.com” ＋ 局_返回
    
27. ' ------------------------------------------------------------------------------
    
28. 局_提交协yi头 ＝ #蓝奏云_协yi头1 ＋ #换行符 ＋ “Referer: ” ＋ 分享网址
    
29. 局_返回 ＝ 编码_Utf8到Ansi (网页_访问 (局_秘钥, , , , , 局_提交协yi头))
    
30. 局_网址 ＝ “https://lanzous.com” ＋ 文本_取出中间文本 (局_返回, “url : '”, “',”, , )
    
31. ' ------------------------------------------------------------------------------
    
32. .如果真 (局_正则.创建 (“[^//|,]data : { '(.*?)':'(.*?)','(.*?)':(.*?),'(.*?)':(.*?) }”, 局_返回, , , , ) ＝ 假)
    
33.     返回 (“”)
    
34. .如果真结束
    
35. 
    
36. 局_签名 ＝ 局_正则.取子匹配文本 (1, 4, )
    
37. 局_签名值 ＝ 文本_取出中间文本 (局_签名, “'”, “'”)
    
38. .如果 (局_签名值 ＝ “”)
    
39.     调试输出 (“方式1”)
    
40.     局_签名值 ＝ 文本_取中间_正则 (局_返回, “[^/]var ” ＋ 局_签名 ＋ “ = '”, “';”)
    
41. .否则
    
42.     调试输出 (“方式2”)
    
43. .如果结束
    
44. 
    
45. 局_xx包.添加 (局_正则.取子匹配文本 (1, 1, ), 局_正则.取子匹配文本 (1, 2, ), )
    
46. 局_xx包.添加 (局_正则.取子匹配文本 (1, 3, ), 局_签名值, )
    
47. 局_xx包.添加 (局_正则.取子匹配文本 (1, 5, ), 局_正则.取子匹配文本 (1, 6, ), )
    
48. .如果真 (是否为空 (分享密码) ＝ 假)
    
49.     局_xx包.添加 (“p”, 分享密码, )
    
50. .如果真结束
    
51. 局_提交xx ＝ 局_xx包.获取Postxx ()
    
52. 局_提交协yi头 ＝ #蓝奏云_协yi头1 ＋ #换行符 ＋ “Referer: ” ＋ 局_秘钥
    
53. 
    
54. 局_返回 ＝ 编码_usc2到ansi (网页_访问S (局_网址, 1, 局_提交xx, , , 局_提交协yi头))
    
55. .如果真 (寻找文本 (局_返回, “dom”, , 假) ＝ -1)
    
56.     返回 (“”)
    
57. .如果真结束
    
58. .如果 (局_json.解析 (局_返回))  ' 某些系统会出现无法解析json，则更换获取方式
    
59.     局_dom ＝ 文本_取出中间文本 (局_返回, “dom#引号:#引号”, #引号)
    
60.     局_url ＝ 文本_取出中间文本 (局_返回, “url#引号:#引号”, #引号)
    
61.     局_网址 ＝ 局_dom ＋ “/file/” ＋ 局_url
    
62. .否则
    
63.     局_网址 ＝ 局_json.取通用属性 (“dom”) ＋ “/file/” ＋ 局_json.取通用属性 (“url”)
    
64. .如果结束
    
65. 
    
66. 局_重定向 ＝ 网页_取重定向网址 (局_网址)
    
67. .如果真 (局_重定向 ＝ “”)
    
68.     局_网址 ＝ 子文本替换 (局_网址, “https://”, “http://”, , , 假)
    
69.     局_重定向 ＝ 网页_取重定向网址 (局_网址)
    
70. .如果真结束
    
71. 返回 (局_重定向)
    

复制代码

冯诺依曼

谢谢分享谢谢分享

海神星球

感谢分享！

panda92

感谢楼主的分享