winHTTPでアップルストアから情報取得
winHTTPを使用し、アップルストアの整備済みiPadminiの情報を取得したいと思っています。
該当商品のURLを開くと、16GBと32GBと64GBがそれぞれボタンで切り替えられるように
なっているので、URLを読み込んだときに全タイプの情報は読み込んであり、
それを切り替えつつ表示してあるのかと想像していました。
そこで、該当ページをwinHTTPで読み込んでみたところ、レスポンスには32GBしかないようです。
どのように取得するのが正解なのでしょうか。
ブラウザを操作して取得するのではなく、winHTTPを使用して取得したいと思っています。
Sub test()
Dim objHTTP As Object
Dim httpLog As String
Dim myStr as String
'アップルの整備済みiPad mini のページです
myStr = "http://store.apple.com/jp/product/FD532J/A/ipad-mini-wi-fi-%E3%83%A2%E3%83%87%E3%83%AB32gb-%E3%83%9B%E3%83%AF%E3%82%A4%E3%83%88%E3%82%B7%E3%83%AB%E3%83%90%E3%83%BC-%5B%E6%95%B4%E5%82%99%E6%B8%88%E3%81%BF%E8%A3%BD%E5%93%81%5D"
Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", "myStr", False
objHTTP.send
Open "C:\httplog.txt" For Append As #1
Print #1, StrConv(objHTTP.responseBody, vbUnicode)
Close #1
End Sub
お礼
ありがとうございます! イージーミスでした! 『他の商品との合わせ買いを許可しない場合に利用します。 「利用する」にすると、この商品単体の場合のみ購入可能になります。』 ここでした!!!!