ＶＢＡでＵＲＬ先のヘッダー情報を取得したいのですが、どなたかご教授をお願いいたします。

ＶＢＡの初心者です。次のＵＲＬ先のヘッダー情報を取得したいのですが、どなたかご教授を宜しく
お願い致します。パイソンは、インストールが出来ないため、VBA+SeleniumBasicの記述でお願い致します。
１.　https://api01-platform.stream.co.jp/apiservice/p …
　　これは、動画です。
２.　https://api01-platform.stream.co.jp/apiservice/p …
　　これは、静止画です。動画が無いためのエラー表示です。
出来れば、動画や静止画を表示しない方法が良いのですが、表示された場合、画像の削除命令も教えて頂けると大変助かります。
　この目的は、ＵＲＬを自動変化させて、動画のアドレスを自動取得させるものです。

No.1 ベストアンサー 回答者： Ratris 回答日時： 2021/01/26 22:08

Public Function WEBSERVICEHEADER(ByVal url As String) As String

　　' Dim xhr As New MSXML2.XMLHTTP60
　　Dim xhr As Object
　　Set xhr = CreateObject("MSXML2.XMLHTTP")
　　Call xhr.Open("GET", url, False)
　　Call xhr.send
　　WEBSERVICEHEADER = xhr.getAllResponseHeaders
End Function

この回答へのお礼

ありがとうございます。
この関数を用いて、是非とも目的を達成したいと思います。
この関数を用いるためには、必要なライブラリのインストール
がありましたら、更にご教授頂けると大変助かります。

お礼日時：2021/01/28 18:50