VBAでキーボード入力したときと同様の操作を実現したい

前提・実現したいこと

VBAで、サイトにログインして情報を取得したいです。
ログインIDを入力すると、「次へ」ボタンが有効化し、パスワード入力画面に進むので、この動作をVBAで行いたいです。
ボタンを有効化する方法を教えてください。

発生している問題・エラーメッセージ

VBAからログインIDを設定するとボタンが有効化しません。見た目上は入力欄に値が入っています。
キーボードから何かを入力するとボタンは有効化しますが、ボタンを有効化するための条件がわかりません。

追記します。
VBAで設定すると、見た目上は入力値に値が入っていますが、HTMLのvalueは""のまま、
キーボードから入力するとHTMLのvalueに値が入ります。

ソースの下のほうにiframeタグなど、よくわからないものがあり動作条件がつかめていません。

該当のソースコード

HTML
1<input name="textInputValue" class="text-input" id="useridInput" aria-invalid="false" aria-required="true" aria-describedby="error-caption input-title" placeholder="メールアドレスを入力してください" value="a" autocapitalize="off" autocorrect="off">

VBA
1Dim objIE As InternetExplorer
2    Set objIE = CreateObject("Internetexplorer.Application")
3objIE.navigate "URL"
4objIE.document.getElementById("useridInput").value = "メールアドレス"
5

試したこと

MsgBoxでobjIE.document.getElementById("useridInput").valueを見ると、メールアドレスが設定されていますがボタンは有効化しません。
objIE.document.getElementById("useridInput").clickしてみましたがダメでした。

補足情報（FW/ツールのバージョンなど）

ブラウザ：IE11　１１．５２３．１７．１３４．０

行動規範の内容に同意します

回答3件

目的は本当にボタンの有効化でしょうか？
入力して次の画面へ進みたいことが目的なら、
有効化せずとも「次へ」のボタンのあるフォームをサブミットしてしまえば問題なく動くことがほとんどですよ。
submitボタンをクリックではなく form に対して submit を実行してみてください。
ボタンを有効化したければdisabledを操作して無理やり有効化してください。

なお、どうしてもJavascriptを実行させる必要があるのであれば、
そのページを解析して入力されたときに実行される関数を調べ、
Script.setTimeout にて強引にそのスクリプトを動かす手もあります。
しかしながら私はそのようなログインページにはあたったことがありません、
disble操作とsubmitでなんとかなることが100%でした。

投稿2019/01/23 06:39

shinobu_osaka

総合スコア456

colomiyu

2019/01/23 07:47

ご回答ありがとうございます！どうやらサイトの動作としてID入力→次へクリック→リキャプチャ表示で「私はロボットではありません」にチェック→ようやくパスワード入力画面に遷移するようなのです。 objIE.document.getElementsByTagName("FORM").submitでフォームの送信も試していたのですが構文エラーになってしまったので、ボタンの有効化をしようと考えました。ボタンのdisabled操作は思い付きもしませんでした。解析方法も勉強していきたいと思います。ありがとうございます！

shinobu_osaka

2019/01/23 08:10

getElementsByTagName("FORM")(0)ではないでしょうか？

shinobu_osaka

2019/01/23 08:11

いえ…むしろフォームが一つではなく複数あるかと思いますのでゼロかどうかはわかりませんが…。

行動規範の内容に同意します

まさに「ボタンを有効化するための条件」がわからないと難しいですね

単にエディットボックス内に値が入っただけではボタン有効化にならないことがわかったので、何かイベントを発生させる必要がありそうです

もしそれが「change」であれば、こちらが参考になりそうでしょうか
jQueryのchangeイベントをVBAのDOM操作で実行させる方法

あとはこちらも
VBAメモ　JavaScriptイベントを強制的に発火させる

投稿2019/01/23 06:36

takito

総合スコア3111

colomiyu

2019/01/23 07:37

ご回答ありがとうございます！ changeで試してみました。 Dim evt As Object Set evt = objIE.document.createEvent("HTMLEvents") evt.initEvent "change", True, False objIE.document.getElementById("useridInput").Value = strUsername objIE.document.getElementById("useridInput").dispatchEvent evt なぜか入力した文字列が消え、「あなたのメールアドレスを入力してください」というメッセージが表示されました。 JavaScriptイベントを強制的に発動させる方法もあるのですね！大変勉強になりました。ありがとうございます。

行動規範の内容に同意します

ベストアンサー