質問させていただきます。
XMLhttpにて、ヤフーにログインし、(http://login.yahoo.co.jp/config/login)
ログイン状態のまま、ヤフーファイナンスの情報(http://quote.yahoo.co.jp/q?s=4689など)
を取得したいと考えています。
なぜログインが必要かというと、ヤフーのvip倶楽部に入会しているため、
ほぼリアルタイムでの株価が閲覧できるようになるからです。
(ログインしていない状態では20分遅れの株価)
Dim XMLhttp As Object
Dim strAddress As String
Set XMLhttp = CreateObject("MSXML2.XMLHTTP")
XMLhttp.Open "POST", "http://login.yahoo.co.jp/config/login", False
XMLhttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
XMLhttp.Send CVar(("login=aaaaa&passwd=bbbbb"))
XMLhttp.Open "GET", "http://quote.yahoo.co.jp/q?s=4689", False
XMLhttp.Send
strSource = XMLhttp.responseText
Set XMLhttp = Nothing
では「アクセスが拒否されました」というエラーが出て取得できませんでした。
どの部分が間違っているのか教えてください。
過去ログを拝見しましたが解決には至りませんでした。
よろしくお願いいたします。
なお、ログインしない状態では
Set XMLhttp = CreateObject("MSXML2.XMLHTTP")
XMLhttp.Open "GET", "http://quote.yahoo.co.jp/q?s=4689", False
XMLhttp.Send
strSource = XMLhttp.responseText
Set XMLhttp = Nothing
で、取得できました。
XMLhttp.Open "POST", "http://login.yahoo.co.jp/config/login", False, "Yahoo!JAPAN ID", "Password"
この形式でLoginしたらいかがですか。
お返事ありがとうございます。
Set XMLhttp = CreateObject("MSXML2.XMLHTTP")
XMLhttp.Open "POST", "http://login.yahoo.co.jp/config/login", False, "aaaaa", "bbbbb"
XMLhttp.Open "GET", "http://quote.yahoo.co.jp/q?s=4689", False
XMLhttp.Send
strSource = XMLhttp.responseText
Set XMLhttp = Nothing
と、やってみたところ、「アクセスが拒否されました」というメッセージは表示されなくなりましたが、
ログインできていないようです。
よろしくお願いいたします。
ツイート | ![]() |