VBScriptによる自動ログイン方法(name,id以外の情報からログインボタンを特定、選択する方法)

Question

vbsよりサイトに自動でログインする以下のプログラムを作成しているのですが、

'IEオブジェクトを作成する
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

'指定URLでIEを開く
objIE.navigate "URL"
    
'ページが読み込まれるまで待つ
Do While objIE.Busy = True Or objIE.readyState <> 4
    WScript.Sleep 100        
Loop 
    
'IDとパスワードを入力する
With objIE.document      
    .getElementsByName("fUName")(0).value = "ID"   
    .getElementsByName("fPassword")(0).value = "PW"        
End With   

'これ以降がうまく動作しない
Dim objbutton
     
'input要素をコレクションとして取得
Set objbutton = objIE.document.getElementsByTagName("input")   
msgbox objbutton

'input要素にログインがあったらクリックする
Dim el
For each el In objbutton
    if el.value = "ログイン" then
        el.click
        exit for
    end if         
next 

IDPW入力後のログインボタンのクリックがうまく動作されません。
nameまたはIDがない為、その他の情報から特定する必要があることは分かるのですが、
いまいちその方法が調べても分かりませんでした。
ちなみにログインボタンの要素は以下の通りです。

<input tabindex="3" class="btn-login-theme btn-login" onclick="return loginWithCookie();" ondblclick="return false;" type="submit" value="ログイン">

初歩的な質問になり申し訳ないのですが、何が間違えているのか、どのように書けばうまくログインされるのかご教授頂けないでしょうか。

Answer 1

端的に解決策を提示すると、以下コードで問題ないです。
Windows 10 Pro 64bit 環境で動作確認済みです。
（インデックスは実際の環境に合わせて変更して下さい。）

Set objbutton = objIE.document.getElementsByClassName("btn-login-theme btn-login")(0)
objbutton.click

ちなみに、ご提示頂いたコードが正常に動作しない理由ですが、
多分vbsファイルがUTF-8になっているのでは？と思いました。

ぱっと見たところ正常に動きそうだったので確認したのですが、
el.value はUTF-16の文字列"ログイン"を取得していました。

なので、vbsをUTF-16で保存し直して実行した所、
ご提示頂いたコードでも問題なく動作しました。

その他の解決策として、onclick イベントが分かっているので、
直接jsを実行することも可能です。

settimeout とかで調べるとそれらしい手段が確認できると思います。
こちらの方が要素の指定すら不要なので、個人的にはおすすめです。