Excel VBAを使ったオンラインバンキングの自動ログイン方法と応用例

Excel VBAを用いたオンラインバンキングへの自動ログインについて詳しく解説します。この記事では基本的なコード例を紹介し、その後のセクションで詳細な解説と応用例を取り上げます。

基本的な自動ログインコード

Sub AutoLoginBanking()
    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate "https://www.bank-website.com/login"
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        .document.getElementById("username").Value = "YourUsername"
        .document.getElementById("password").Value = "YourPassword"
        .document.getElementById("loginButton").Click
    End With
End Sub

コードの詳細解説

Internet Explorerオブジェクトの生成

上記コードでは、最初にInternet Explorerを操作するためのオブジェクトを生成しています。Excel VBAは、IEを利用してWebページの操作やデータ取得を行うことができます。

ログインページへの遷移

.navigateメソッドを使用して、指定したURLに遷移します。この例では”https://www.bank-website.com/login”という仮のログインページに遷移しています。

ログイン情報の入力

document.getElementByIdメソッドを使用して、各入力欄の要素を取得し、そのValueプロパティにログイン情報（ユーザー名とパスワード）を設定します。

ログインボタンのクリック

同様に、ログインボタンの要素を取得し、Clickメソッドを使用してクリック操作を実行します。

応用例

1. ログイン情報の外部ファイルからの読み込み

直接コード内にログイン情報を書くのはセキュリティ上好ましくありません。外部ファイルから情報を読み込む方法を考えます。

Sub ReadLoginInfoFromFile()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("LoginInfo")

    username = ws.Cells(1, 2).Value
    password = ws.Cells(2, 2).Value
End Sub

2. ログイン成功の確認

ログイン後、特定のテキストや要素がページ上に表示されるかどうかを確認し、ログイン成功を確認します。

If IE.document.getElementById("successMessage").innerText = "ログイン成功" Then
    MsgBox "ログイン成功!"
Else
    MsgBox "ログイン失敗"
End If

3. マルチファクタ認証の対応

マルチファクタ認証が導入されている場合、一定時間待ってから追加の認証情報を入力する必要があります。

Application.Wait Now + TimeValue("00:00:10")
IE.document.getElementById("authenticationCode").Value = "123456"

まとめ

Excel VBAを使用して、オンラインバンキングへの自動ログインの基本的な方法とその応用例を解説しました。セキュリティ上の注意点を理解した上で、適切な方法での利用を心掛けてください。