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

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