アメブロに自動ログイン(ログアウト)「amebloLogIn」の解説

こちらは、エクセルVBAでアメブロに自動ログイン(ログアウト)する方法についての解説となります。VBAの知識がない方やアメブロ自動ログイン(ログアウト)ツールをお求めの方には、無償で提供していますので「アメブロ自動ログインツール」よりダウンロードしてください。

さてアメブロの自動ログイン(ログアウト)について説明してきましたが、今回は自動ログイン(ログアウト)をサブルーチン化させます。
前回の方法では、1アカウントしかログイン処理ができませんが、サブルーチン化させることで、どんなアカウントでも簡単にログイン処理をすることが可能になります。

スポンサー リンク

アメブロに自動ログイン(ログアウト)のサブルーチン


Sub amebloLogIn(objIE As InternetExplorer, _
                amebloId As String, _
                amebloPass As String, _
                Optional ieType As String = "ieView")

    'IEでアメブロログアウト画面を起動
    If ieType = "ieView" Then
      Call ieView(objIE, "http://www.ameba.jp/logout.do")
    ElseIf ieType = "ieNavi" Then
      Call ieNavi(objIE, "http://www.ameba.jp/logout.do")
    End If

    'IEでアメブロログイン画面を起動
    Call ieNavi(objIE, "http://www.ameba.jp/")
    
    'アメーバーID自動入力
    Call formText(objIE, "amebaId", amebloId)

    'アメブロログインパスワード自動入力
    Call formText(objIE, "password", amebloPass)
    
    'ログインボタンをクリック
    Call tagClick(objIE, "input", "アメーバIDでログイン")

End Sub

アメブロに自動ログイン(ログアウト)のマクロ


Sub sample1()

  Dim objIE As InternetExplorer

  Call amebloLogIn(objIE, "★アメブロID★", "★アメブロPASS★")

End Sub

Sub sample2()

  Dim objIE As InternetExplorer
    
  Call ieView(objIE, "http://www.vba-ie.net/")
    
  Call amebloLogIn(objIE, "★アメブロID★", "★アメブロPASS★", "ieNavi")

End Sub

実行結果

アメブロ自動ログイン

引数は以下の4つが設定されています。

引数名データ型内容値の事例初期値省略
objIEInternetExplorerIEオブジェクトobjIE,objIE2×
amebloIdStringアメブロのログインID文字列"★アメブロID★"×
amebloPassStringアメブロのログインパスワード文字列"★アメブロPASS★"×
ieTypeStringIEオブジェクトの状態文字列"ieView",
"ieNavi"
"ieView"
amebloLogIn("IEオブジェクト","アメブロのログインID文字列","アメブロのログインパスワード文字列","IEオブジェクトの状態文字列[省略可]")

「objIE」「amebloId」「amebloPass」は必須項目で、「objIE」は複数ページを表示させる場合に「objIE」「objIE2」と複数オブジェクトを生成します。
「amebloId」にはアメブロのログインIDを、「amebloPass」にはアメブロのログインパスワードを設定します。

次に「ieType」ですが、こちらはIEオブジェクトの状態によって、処理を分岐させるものです。
新規でIEオブジェクトを作成する場合は「ieView」を指定し、「ieViewサブルーチン」で処理します。
既存のIEオブジェクトがある場合は「ieNavi」を指定し、「ieNaviサブルーチン」で処理させます。
こちらは初期設定が「ieView」で設定させており、Optionalを付けて宣言した引数なので、省略することができます。


'IEでアメブロログアウト画面を起動
If ieType = "ieView" Then
  Call ieView(objIE, "http://www.ameba.jp/logout.do")
ElseIf ieType = "ieNavi" Then
  Call ieNavi(objIE, "http://www.ameba.jp/logout.do")
End If

「ieType」で「ieView」「ieNavi」サブルーチンのどちらかでIEを起動しアメブロのログアウト処理を行います。


'IEでアメブロログイン画面を起動
Call ieNavi(objIE, "http://www.ameba.jp/")

ログアウト処理が完了するとログイン画面を表示させます。


'アメブロログイン処理
Call formText(objIE, "amebaId", amebloId)
Call formText(objIE, "password", amebloPass)
Call tagClick(objIE, "input", "アメーバIDでログイン")
こちらでは、ログインするための情報を入力し、ログインボタンをクリックしています。
「amebloId」にはアメブロログインIDが、「amebloPass」にはアメブロログインパスワードが格納されています。
あとはログインボタンをクリックし、ログイン完了です。
ここまでがアメブロ自動ログインのサブルーチン化についての解説でした。
こちらの内容は前回とあわせて理解できたかと思います。
ID・パスワードを記録する機能が付いているので、ここだけの処理はあまり活用はないかもしれませんが、記事を自動でアップするなど機能を追加すると便利な機能になりますので、サブルーチンを利用して更に機能追加していってください。

次の記事: VBAのIE操作でFC2ブログ情報取得 >>

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

エクセルVBAでIE制御の応用編

こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

スポンサー リンク

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

スポンサー リンク

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。