誕生日にもらった意外なもの

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

A 回答 (1件)

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
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


おすすめ情報