Imports System.Net
Imports System.IO
Module Module1
Sub Main()
Dim songUrls As String() = {
"http://music.163.com/song/media/outer/url?id=5238221.mp3",
"http://music.163.com/song/media/outer/url?id=240515.mp3",
"http://music.163.com/song/media/outer/url?id=5255631.mp3",
"http://music.163.com/song/media/outer/url?id=163123.mp3",
"http://music.163.com/song/media/outer/url?id=82932.mp3",
"http://music.163.com/song/media/outer/url?id=25795016.mp3",
"http://music.163.com/song/media/outer/url?id=5255640.mp3"
}
Dim savePath As String = "C:\Users\Administrator\Desktop\爬虫程序mp3QZQx-2024-8-16 - 副本\新建文件夹\"
For i As Integer = 0 To 6
DownloadSong(songUrls(i), savePath & "song" & (i + 1) & ".mp3")
Next
End Sub
Private Sub DownloadSong(ByVal url As String, ByVal savePath As String)
Dim i As Integer
Try
Using client As New WebClient()
client.DownloadFile(url, savePath)
Console.WriteLine("歌曲 {0} 下载完成,保存在:{1}", i + 1, savePath)
End Using
Catch ex As Exception
Console.WriteLine("下载歌曲 {0} 时出错:{1}", i + 1, ex.Message)
End Try
End Sub
End Module
附测试地址
https://www.shiyinren.com/
http://music.163.com/song/media/outer/url?id=2164349779.mp3
http://lx.sycdn.kuwo.cn/c3bbc5a11310baf7e94cc53d03ddd71f/66bed8be/resource/n2/20/98/4213031618.mp3
https://www.myfreemp3.com.cn/jdlg.php?page=audioPage&type=netease&name=%E7%BB%8F%E5%85%B8%E8%80%81%E6%AD%8C500%E9%A6%96
水手
http://music.163.com/song/media/outer/url?id=5238221.mp3
香水有毒
http://music.163.com/song/media/outer/url?id=240515.mp3
"http://music.163.com/song/media/outer/url?id=5238221.mp3",
"http://music.163.com/song/media/outer/url?id=240515.mp3",
"http://music.163.com/song/media/outer/url?id=5255631.mp3",
"http://music.163.com/song/media/outer/url?id=163123.mp3",
"http://music.163.com/song/media/outer/url?id=82932.mp3",
"http://music.163.com/song/media/outer/url?id=25795016.mp3",
"http://music.163.com/song/media/outer/url?id=5255640.mp3"