VBScriptでYouTubeのサムネイル画像の存在チェック

VBScriptを使って、YouTubeのサムネイル画像の存在をチェックします。

11桁のYouTubeIDを取得したら、サムネイル画像のURLは、
ImgURL = “https://img.youtube.com/vi/” & YouTubeID & “/sddefault.jpg” ‘幅640
ImgURL = “https://img.youtube.com/vi/” & YouTubeID & “/hqdefault.jpg” ‘幅480
ImgURL = “https://img.youtube.com/vi/” & YouTubeID & “/mqdefault.jpg” ‘幅320
で求めることができます。

動画によっては、幅640pxやそれ以上の大きさのサムネイル画像は存在しないので、その存在をチェックして、大画像が存在しなければ中画像を、中画像が存在しなければ小画像を見つけようとするものです。

ImgURL = "https://img.youtube.com/vi/" & YouTubeID & "/sddefault.jpg"
If Not CheckURL(ImgURL) Then
  ImgURL = "https://img.youtube.com/vi/" & YouTubeID & "/hqdefault.jpg"
  If Not CheckURL(ImgURL) Then
    ImgURL = "https://img.youtube.com/vi/" & YouTubeID & "/mqdefault.jpg"
  End If
End If
MsgBox "存在するサムネイル画像は、" & ImgURL & "です"

Function CheckURL(URL) 
    Set HTTP = CreateObject("MSXML2.XMLHTTP") 
    HTTP.Open "GET", URL, False 
    HTTP.Send 
    If HTTP.Status = 200 Then
      CheckURL = True
    Else
      CheckURL = False
    End If
End Function
タイトルとURLをコピーしました