蓝奏云取直链接源码

zjchxj

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .子程序 蓝奏_取直链接, 文本型
   
6. .参数 地址, 文本型
   
7. .参数 密码, 文本型, 可空
   
8. .参数 返回文件名, 文本型, 参考 可空
   
9. .局部变量 webText, 文本型
   
10. .局部变量 sign, 文本型
    
11. .局部变量 Cookies, 文本型
    
12. .局部变量 json, 类_json
    
13. 
    
14. webText ＝ 编码_Utf8到Ansi (网页_访问_对象 (地址, , , , Cookies))
    
15. sign ＝ 文本_取出中间文本 (webText, “sign=”, “&”)
    
16. 调试输出 (取文本 (“action=downprocess&sign=%s&p=%s”, sign, 密码))
    
17. webText ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://lanzoux.com/ajaxm.php”, 1, 取文本 (“action=downprocess&sign=%s&p=%s”, sign, 密码), Cookies, , “referer: ” ＋ 地址))
    
18. .如果真 (json.解析 (webText))
    
19.     .如果 (json.取通用属性 (“zt”) ＝ “1”)
    
20.         返回文件名 ＝ json.取通用属性 (“inf”)
    
21.         返回 (json.取通用属性 (“dom”) ＋ “/file/” ＋ json.取通用属性 (“url”))
    
22.     .否则
    
23.         返回 (“”)
    
24.     .如果结束
    
25. 
    
26. .如果真结束
    
27. 
    
28. 返回 (“”)
    
29. 
    

复制代码

直接上接口，因为要用到这个东西。在论坛找了个。接口不能用。自己抓一下。就有了这个。给需要的人用



补充内容 (2019-7-23 09:20):
更新了一下，在12楼，主要是对一些很早之前发布的链接的解析，如果还有其他不能解析的，可以把链接发出来。我去看一下。把解析的写法写在一起，自动识别解析

九月秋

66666666666666666666666

qtdhqumd

学习学习

zjchxj

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .子程序 蓝奏_取直链接, 文本型
   
6. .参数 地址, 文本型
   
7. .参数 密码, 文本型, 可空
   
8. .参数 返回文件名, 文本型, 参考 可空
   
9. .局部变量 webText, 文本型
   
10. .局部变量 sign, 文本型
    
11. .局部变量 Cookies, 文本型
    
12. .局部变量 json, 类_json
    
13. .局部变量 oldurl, 文本型
    
14. 
    
15. webText ＝ 编码_Utf8到Ansi (网页_访问_对象 (地址, , , , Cookies))
    
16. .如果 (寻找文本 (webText, “frameborder”, , 假) ≠ -1)
    
17.     ' 这个是旧链接的解析方式
    
18.     oldurl ＝ “https://lanzoux.com” ＋ 文本_取出中间文本 (webText, “src=” ＋ #引号, #引号)
    
19.     webText ＝ 编码_Utf8到Ansi (网页_访问_对象 (oldurl, 0, , Cookies, , “referer: ” ＋ 地址))
    
20.     sign ＝ 文本_取出中间文本 (webText, “sign':'”, “'”)
    
21. 
    
22. 
    
23. .否则
    
24.     sign ＝ 文本_取出中间文本 (webText, “sign=”, “&”)
    
25. .如果结束
    
26. 
    
27. 
    
28. 调试输出 (取文本 (“action=downprocess&sign=%s&p=%s”, sign, 密码))
    
29. webText ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://lanzoux.com/ajaxm.php”, 1, 取文本 (“action=downprocess&sign=%s&p=%s”, sign, 密码), Cookies, , “referer: ” ＋ 地址))
    
30. .如果真 (json.解析 (webText))
    
31.     .如果 (json.取通用属性 (“zt”) ＝ “1”)
    
32.         返回文件名 ＝ json.取通用属性 (“inf”)
    
33.         返回 (json.取通用属性 (“dom”) ＋ “/file/” ＋ json.取通用属性 (“url”))
    
34.     .否则
    
35.         返回 (“”)
    
36.     .如果结束
    
37. 
    
38. .如果真结束
    
39. 返回 (“”)
    
40. 
    

复制代码

Hooksafe

来看看                     

血舞神州

谢谢分享。

381692

太麻烦了   经常要更新的  自己弄个服务器好一点

weihong

支持   

zjchxj

wuqingg 发表于 2019-7-20 08:41
应该用不了多久的,上次我用在了软件更新上  后来接口失效了我的软件也更不了了最后还得重新联系客户

像这种。写在软件里。并不合适。写成WEB接口比较好。变了只需要在服务器修正就可以了。这样就不用重新联系客户了

zjchxj

nanli 发表于 2019-7-19 22:10
这也取不到啊

发一下你取不到的链接。我看下怎么回事