使用excel vba下载YouTube字幕

Question

我有以下代码下载带有YouTube视频副标题的xml文件

Sub Test()
Dim http        As Object
Dim oStream     As Object

Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "GET", "http://video.google.com/timedtext?lang=en&v=qANA6POtuFo", False
http.send
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write http.responseBody

oStream.SaveToFile ThisWorkbook.Path & "\Sample.xml", 2
oStream.Close
End Sub

但它不适用于其他视频,例如我尝试了这个链接v = 4Z3EJrh7_5k

知道如何使用任何带字幕的视频进行下载吗？

Answer 1

据我研究,你无法下载,4Z3EJrh7_5k因为它的副标题不是某人上传的文件,而是自动生成的.

要查看视频是否有任何字幕文件,您可以使用http://video.google.com/timedtext?type=list&v=qANA6POtuFo,它将列出视频中插入语言的每个文件.您可以注意到它只显示一个,即使您转到视频并单击,也有两个(英语和英语(自动生成))