有些網(wǎng)頁(yè)對(duì)真實(shí)的mp3地址進(jìn)行了防盜鏈處理，造成無(wú)法直接查看源文件來(lái)獲取真實(shí)的物理地址。有時(shí)他會(huì)將地址保存在%USERPROFILE%AdministratorLocal SettingsTemporary Internet Files 目錄下面為html文件，其中就包含了其真實(shí)的地址，有時(shí)在一個(gè)網(wǎng)頁(yè)內(nèi)有多個(gè)mp3地址，也就會(huì)有多個(gè)html文件，如果手工一個(gè)一個(gè)處理相當(dāng)麻煩，下面用 bat+vbs 來(lái)提取，其實(shí)用findstr也可以。更簡(jiǎn)單！
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 "請(qǐng)把網(wǎng)頁(yè)拖到本程序的圖標(biāo)上！",,"提示"
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 "該網(wǎng)頁(yè)文件中未出現(xiàn)網(wǎng)址！",,"提示"
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略加修改，可用于很多需求。最后的結(jié)果在：d:mp3plist.txt 文件中。
相關(guān)日志
數(shù)據(jù)包分離處理
快速啟用或禁用代理服務(wù)器
教你寫真正的進(jìn)度條
隱藏批處理運(yùn)行工具
編輯：北京信誠(chéng)IT保姆IT外包部 http:// www.fouzheng.cn www.xcit.com.cn |
當(dāng)前位置：
