XMLhttpにてYahooにログインするには?


ひろみ  2006-06-01 21:02:12  No: 131665

質問させていただきます。

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
で、取得できました。


我龍院忠太  2006-06-01 23:41:15  No: 131666

XMLhttp.Open "POST", "http://login.yahoo.co.jp/config/login", False, "Yahoo!JAPAN ID", "Password"
この形式でLoginしたらいかがですか。


ひろみ  2006-06-02 01:19:23  No: 131667

お返事ありがとうございます。

    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

と、やってみたところ、「アクセスが拒否されました」というメッセージは表示されなくなりましたが、
ログインできていないようです。
よろしくお願いいたします。


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加