网页内的mp3提取真实地址教程

2232175042

发表文章数:4182

首页 » 经验教程 » 正文

网页对真实的mp3地址进行了防盗链处理,造成无法直接查看源文件来获取真实的物理地址。有时他会将地址保存在%USERPROFILE%AdministratorLocal SettingsTemporary Internet Files 目录下面为html文件,其中就包含了其真实的地址,有时在一个网页内有多个mp3地址,也就会有多个html文件,如果手工一个一个处理相当麻烦,下面用 bat+vbs 来提取,其实用findstr也可以。更简单!
bat code:

@echo off
REM code by woyigui
REM dir命令后的htm文件随意修改
for /f “tokens=*” %%i in (‘dir /s /b ^”C:documents and SettingsAdministratorLocal SettingsTemporary Internet FilesMusicUrl*.htm^”‘) do type “%%i” >> d:mp3plist.txt && echo. >>d:mp3plist.txt
cscript mp3-url.vbs d:mp3plist.txt

vbs code:

Dim p,s,re
If Wscript.Arguments.Count=0 Then
Msgbox “请把网页拖到本程序的图标上!”,,”提示”
Wscript.Quit
End If
For i= 0 to Wscript.Arguments.Count – 1
p=Wscript.Arguments(i)
With CreateObject(“Adodb.Stream”)
.Type=2
.Charset=”GB2312″
.Open
.LoadFromFile=p
s=.ReadText
Set re =New RegExp
re.Pattern= “(http://.*.mp3)”
re.Global = True
If Not re.Test(s) Then
Msgbox “该网页文件中未出现网址!”,,”提示”
Wscript.Quit
End If
Set Matches = re.Execute(s)
s=””
For Each Match In Matches
s=s & Match.Value & vbCrlf
Next
re.Pattern= “&w+;?|W{5,}”
s=re.Replace(s,””)
.Position=0
.setEOS
.WriteText s
.SaveToFile p,2
.Close
End With
Next

其中的vbs略加修改,可用于很多需求。最后的结果在:d:mp3plist.txt 文件中。
相关日志
数据包分离处理
快速启用或禁用代理服务器
教你写真正的进度条
隐藏批处理运行工具

未经允许不得转载:眨天博客作者:2232175042, 转载或复制请以 超链接形式 并注明出处 眨天网
原文地址:《网页内的mp3提取真实地址教程》 发布于2020-08-01

分享到:
赞(0) 打赏 生成海报

评论 抢沙发

评论前必须登录!

  注册



长按图片转发给朋友

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

Vieu4.5主题
专业打造轻量级个人企业风格博客主题!专注于前端开发,全站响应式布局自适应模板。
切换注册

登录

忘记密码 ?

您也可以使用第三方帐号快捷登录

Q Q 登 录
微 博 登 录
切换登录

注册