ログインボタンをクリックしたいがname属性やid属性が無いためその場合のコードが解りません

Question

https://www.jwnetweb.jp/wusr/inlogin.html

上記サイトのログインボタンをクリックするマクロを組もうとしていますが
ログインボタンの名前が解りません。コードは下記を使用しようとしています。

objIE.document.all.※※※.Click　　　※＝ログインボタンの名前

ご教示いただける方　宜しくお願いします。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
※9/25追記　
下記コードでは新規タブとして開いてしまい、サイト側でエラーになり開けませんでした。

Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット

htmlDoc.getElementsByName("username")(0).Value = strUsername 'name="username"にユーザー名を入力
htmlDoc.getElementsByName("password")(0).Value = strPassword 'name="password"にパスワードを入力

htmlDoc.forms(0).submit

End Sub

Answer 1

ブラウザで「ソースを表示」とかブラウザ開発ツールのエレメント選択で確認できるのではないでしょうか。

Comments

[退会済みユーザー]

回答ありがとうございます。
下記のhasue様の仰る通り、nameやidが解らないということです。
内容が足らず申し訳ありませんでした。

[m.ts10806]

質問は編集できるので何もなしに回答依頼を出すのではなく、きちんと要件や試したことを具体的に記載してください。
エスパー待ちでは問題は解決に進みません。

[m.ts10806]

低評価の理由が知りたいですね。
「ログインボタンの名前の確認の仕方」としては間違ってはいないと思いますが。
質問者さんが作ったサイトかどうかは記載がないのであまり積極的に確認しようとは思えませんし。

[退会済みユーザー]

申し訳ありません。初心者でして色んなサイトに載ってる方法を試しながらやっています。
現在、ボタンをクリックさせようとしていて、サイトで見つかる方法がほとんど"name="や"id="と出てきます。ログインしたサイトでは"name"も"id"もないのでどうすればいいか解らない状態です。

下記hasue様のform取得してsubmitをするというのは試しましたが、サイト側で新規タブでは開けませんとエラーが出てしまいます。

[退会済みユーザー]

それと、低評価については存じ上げません。質問者しか押せないのなら誤って押した可能性があります・・・。

[m.ts10806]

低評価については押した人に向けてなので大丈夫です。誰が押したか分からないですが、登録ユーザーであれば誰でも押せますしね。紛らわしいコメント失礼しました。

確かに基本的にはnameやidは指定しますが、ただ送信するために置く場合、そのボタンで何かしらイベント操作しない場合には何もつけません。
何もつけなくてもデフォルトはtypeはsubmitなのでフォーム送信の役割は果たしますしね。
その場合はxpathで取得したりbytagnameで指定してelementを特定します。
そこは既に出ている回答の通りですね。

Answer 2

ボタンにはname属性やid属性なども指定されていないので
やるのであれば、getByTagNameなどでbuttonを取得しましょう。

ただ、自動ログインのマクロを組みたいということであれば
下記のような形でformを取得してsubmitしてもいいのではないでしょうか？

document.getElementsByTagName("form")[0].submit()

Comments

[退会済みユーザー]

回答ありがとうございます。
後者のsubmitですが”htmlDoc.forms(0).submit”で走らせるとサイト側で新規タブは開けませんと出てしまいます。

前者のbutton取得のコードを教えていただけないでしょうか？
現在のログインコードは下記で留まっています。
Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット

htmlDoc.getElementsByName("username")(0).Value = strUsername 'name="username"にユーザー名を入力
htmlDoc.getElementsByName("password")(0).Value = strPassword 'name="password"にパスワードを入力
End Sub

宜しくお願いします。