蓝奏云带提取码的文件下载

1. Global  $WinHttp = ObjCreate("WinHttp.WinHttpRequest.5.1")
   
2. ConsoleWrite(Lanzou_Download_Url("https://skysmile.lanzouw.com/imdT3x2vlmj","gvbu"))
   
3. Func Lanzou_Download_Url($sUrl,$password)
   
4.         ;访问页面
   
5.         $g_text = Winhttp_Get($sUrl)
   
6.         ;提取需要POST的数据
   
7.         $PostData_EXP = StringRegExp($g_text,"data : '([\w\W]*?)'",3)
   
8.         ;加上密码拼合成完整的POST数据
   
9.         $PostData = $PostData_EXP[0] & $password
   
10.         ;提交POST
    
11.         $Post_Re_text = Winhttp_Post("https://www.lanzouw.com/ajaxm.php",$PostData)
    
12.         ;返回json文件中，提取dom url地址，
    
13.         $Download_URL_Array = StringRegExp($Post_Re_text,'"dom":"([\w\W]*?)","url":"([\w\W]*?)"',3)
    
14.         ;最后拼合成完整的下载地址
    
15.         $Download_URL = $Download_URL_Array[0] & "/file/" & $Download_URL_Array[1]
    
16.         Return($Download_URL)
    
17. EndFunc
    
18. 
    
19. Func Winhttp_Post($sUrl,$PostData)
    
20.         ;简单POST请求
    
21.         $WinHttp.Open('Post', $sUrl, False)
    
22.         $WinHttp.setRequestHeader("Accept-Language", "zh-CN")
    
23.         $WinHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    
24.                 $WinHttp.setRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.212 Safari/537.36")
    
25.                 $WinHttp.setRequestHeader("Accept-Language", "zh-CN")
    
26.                 $WinHttp.setRequestHeader("referer", "www.lanzouw.com")
    
27.         $WinHttp.Send($PostData)
    
28.         $sText = $WinHttp.ResponseText
    
29.         Return($sText)
    
30. EndFunc
    
31. 
    
32. Func Winhttp_Get($sUrl)
    
33.         ;简单GET请求
    
34.         $WinHttp.Open('GET', $sUrl, False)
    
35.         $WinHttp.setRequestHeader("Accept-Language", "zh-CN")
    
36.         $WinHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
    
37.                 $WinHttp.setRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/90.0.4430.212 Safari/537.36")
    
38.         $WinHttp.Send()
    
39.                 $sText = $WinHttp.ResponseText
    
40.         Return($sText)
    
41. EndFunc

复制代码

还有个目录获取，没热度的就不发了。两个配合好的话，可以用蓝奏云做在线更新服务器，不过最好是小文件的，他免费的最大单文件上传只支持100M

这个好，方便下载了