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

回答No.1

kumatti1 · ベストアンサー

ボタン押下後のHTMLも取得すればいいのでは。

参考URL：

http://www.f3.dion.ne.jp/~element/msaccess/AcTipsWinHTTP3.html

お礼

ご紹介頂いたWEBサイトの他のページで紹介されていたLive HTTP headersというアプリケーションで、HTTP通信の解析が出来ることを知り、今日一日いじってみたところなんとか解決できました。
ラジオボタンを切り替えると
http://store.apple.com/jp/variationSelection/FD532J/A?option.dimensionCapacity=16gb&option.dimensionColor=white_silver
からJSON形式でデータをダウンロードするようです。
ありがとうございました。

補足

参考URLのほう拝見させて頂いたのですが、よくわかりません。
winHTTPで取得したHTMLを、参考URLのクラスモジュール
PersistStreamInitに流し込んだらDomで取れるからボタン操作できるよ、という話でしょうか。
こんな感じで試してみましたが、全くボタン操作できません。

Sub testStreamInit()

Dim myStr As String
Dim http As Object
Dim doc As HTMLDocument
Dim stm As New PersistStreamInit

Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
Set doc = New MSHTML.HTMLDocument
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%22"

http.Open "GET", myStr, False
http.send

stm = doc
stm.Load http.responseStream

Do While doc.readyState <> "complete"
DoEvents
Loop

If doc.readyState = "complete" Then
Open "C:\httplog.txt" For Output As #1
Print #1, doc.body.outerHTML
Close #1

doc.getElementById("coherent_id_59").Click '16GBモデルの選択ラジオボタン

Open "C:\httplog2.txt" For Output As #1
Print #1, doc.body.outerHTML
Close #1
End If

End Sub