こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

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行目の所でエラーが出ます。メールアドレスを入力するフォームにうまく
アドレスが出力されないことが原因だと考えられます。

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

投稿日時 - 2010-07-22 00:18:35

QNo.6055029

すぐに回答ほしいです

質問者が選んだベストアンサー

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

投稿日時 - 2010-07-22 04:19:29

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)