在怀念邓丽君站点下载她的MP3后发现这个站点提供的质量很好,还有歌词...
这里我给出批量下载她的歌曲的方法 ->>
方法一:(原理篇,呵呵)
第一首下载地址是:
http://dlj.chenag.com/song_mp3_dl.asp?id=1
到目前最后一首(也是最新的一首)地址为:
http://dlj.chenag.com/song_mp3_dl.asp?id=1155
'设置
'Text1.ScrollBars = 2
'Text1.MultiLine = True
Private Sub Command1_Click()
Dim i As Long
Dim ret As String
Text1.Text =""
For i = 1 To 1155
ret = ret & "http://dlj.chenag.com/song_mp3_dl.asp?id=" & i & vbCrLf
Next
Text1.Text = ret
'复制结果,然后用迅雷下载...
End Sub
~@@@@
这里贴出结果吧:....好长啊.....
http://dlj.chenag.com/song_mp3_dl.asp?id=1
http://dlj.chenag.com/song_mp3_dl.asp?id=2
http://dlj.chenag.com/song_mp3_dl.asp?id=3
http://dlj.chenag.com/song_mp3_dl.asp?id=4
http://dlj.chenag.com/song_mp3_dl.asp?id=5
http://dlj.chenag.com/song_mp3_dl.asp?id=6
http://dlj.chenag.com/song_mp3_dl.asp?id=7
http://dlj.chenag.com/song_mp3_dl.asp?id=8
http://dlj.chenag.com/song_mp3_dl.asp?id=9
http://dlj.chenag.com/song_mp3_dl.asp?id=10
......
http://dlj.chenag.com/song_mp3_dl.asp?id=1147
http://dlj.chenag.com/song_mp3_dl.asp?id=1148
http://dlj.chenag.com/song_mp3_dl.asp?id=1149
http://dlj.chenag.com/song_mp3_dl.asp?id=1150
http://dlj.chenag.com/song_mp3_dl.asp?id=1151
http://dlj.chenag.com/song_mp3_dl.asp?id=1152
http://dlj.chenag.com/song_mp3_dl.asp?id=1153
http://dlj.chenag.com/song_mp3_dl.asp?id=1154
http://dlj.chenag.com/song_mp3_dl.asp?id=1155
方法二:
直接用迅雷的批量下载:
建议用:
1~100
101~200
...
1000~1155
这样的小分段批量下载,我之前用1 ~ 1155,结果迅雷的最新版都死翘翘啦!!!
建议用:
1~100
101~200
...
1000~1155
这样的小分段批量下载,我之前用1 ~ 1155,结果迅雷的最新版都死翘翘啦!!!