mixiを自動でログインできるマクロを作成したいと思っています。

質問

mixiを自動でログインできるマクロを作成したいと思っています。

サイトなどを見ながらマクロを作成しましたがうまくログインできませんでしたので
質問させていただきます。

[マクロ文]

1 URL = "http://mixi.jp/home.pl"
2 Set objIE = CreateObject("InternetExplorer.application")
3 objIE.Visible = True
4 objIE.Navigate URL

5 objIE.document.forms(0).Item("email").Value = "メールアドレス"
6 objIE.document.forms(0).Item("password").Value = "パスワード"
7 objIE.document.forms(0).Submit

[エラー]
5行目の所でエラーが出ます。メールアドレスを入力するフォームにうまく
アドレスが出力されないことが原因だと考えられます。

サイトを開くところまでは出来たのですがその先にいけません。
どなたか分かる方いらっしゃいましたら教えていただけると助かります。
よろしくお願いします。

回答No.1

xls88 · ベストアンサー

URLをNavigate後、表示と読み込みが完了するまでメルアド入力を待たねばならないと思います。

While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend

上記コードは下記ページより抜粋させていただきました。
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
http://www.ken3.org/cgi-bin/group/vba_ie.asp