IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[分享] 蓝奏云带提取码的文件下载

[复制链接]
skysmile 发表于 2022-2-21 10:37:01 | 显示全部楼层 |阅读模式

  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. Func Winhttp_Post($sUrl,$PostData)
  19.         ;简单POST请求
  20.         $WinHttp.Open('Post', $sUrl, False)
  21.         $WinHttp.setRequestHeader("Accept-Language", "zh-CN")
  22.         $WinHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
  23.                 $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")
  24.                 $WinHttp.setRequestHeader("Accept-Language", "zh-CN")
  25.                 $WinHttp.setRequestHeader("referer", "www.lanzouw.com")
  26.         $WinHttp.Send($PostData)
  27.         $sText = $WinHttp.ResponseText
  28.         Return($sText)
  29. EndFunc

  30. Func Winhttp_Get($sUrl)
  31.         ;简单GET请求
  32.         $WinHttp.Open('GET', $sUrl, False)
  33.         $WinHttp.setRequestHeader("Accept-Language", "zh-CN")
  34.         $WinHttp.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
  35.                 $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")
  36.         $WinHttp.Send()
  37.                 $sText = $WinHttp.ResponseText
  38.         Return($sText)
  39. EndFunc
复制代码


最近访问 头像模式 列表模式
 楼主| skysmile 发表于 2022-2-21 10:39:37 | 显示全部楼层

活跃 253| 技术 20| 互助 15| 钻石 0

本帖最后由 skysmile 于 2022-2-21 10:42 编辑

还有个目录获取,没热度的就不发了。两个配合好的话,可以用蓝奏云做在线更新服务器,不过最好是小文件的,他免费的最大单文件上传只支持100M
y283146775 发表于 2022-2-21 11:51:04 | 显示全部楼层

活跃 16388| 技术 22| 互助 28| 钻石 300

这个好,方便下载了
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

skysmile

253

活跃

20

技术

15

互助
签到任务
最火的业界新闻
  • 第四大通信运营商上场!中国广电5G网络服务
  • 曝NVIDIA新卡GTX 1630下周发布:1000元价格
  • AMD Zen4最强座驾!X670E主板细节公布:竟
  • AMD Zen4架构APU集显性能大爆发!媲美RTX 3
  • 战AMD Zen4/13代酷睿!苹果新一代最强PC处
  • 世界首个原子级量子集成电路诞生:解开63年
  • 告别32位时代:联发科宣布天玑5G平台全面支
  • 背刺Intel 13代酷睿!AMD Zen 4果然留了一
  • RTX 4080/4070显卡大曝光:意外缩水
  • 20年老牌CPU厂商转型!RISC-V架构新U瓜熟蒂
炫酷的硬件Show
  • MARK 1 - 设计型 PC 与垂直风道
  • 好的大王,没问题大王
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
有趣的美图分享
  • 狗子也上网吗
  • 幸好,不是菠萝味
  • 好像是意大利籍的鲨鱼
  • 机器人不会说谎
  • 让我也康康!
  • 这个树懂算法
  • 嗯?
  • 这西瓜是来报仇的吧
  • 哈哈哈哈这是什么猴
  • 喝酒的时候摇会不会自动变
关注官方微信
快速回复 返回顶部 返回列表