vb6.0版本爬虫程序爬取音乐代码QZQ

Option Explicit

Private Sub Form_Load()
Dim http As New WinHttpRequest
'置要爬取的音乐的 URL ，这里需要替换为实际的音乐 URL
http.Open “GET”, “http://music.163.com/song/media/outer/url?id=5238221.mp3”, False
http.Send
'存音乐
Dim fnum As Integer
fnum = FreeFile
Open “1.mp3” For Binary Access Write As #fnum
Put #fnum, , http.ResponseBody
Close #fnum
End Sub