アメブロに自動ログイン・ログアウト処理

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

今回は、アメブロに自動ログイン(ログアウト)する方法について解説していきます。
アメブロに毎回ログインするのが手間であったり、複数アカウントを保有している場合に簡単にログインしたいという方も多いのではないでしょうか。
こちらでは、ログインする基本部分について説明していますので、カスタマイズして目的にあったプログラムを構築してください。

スポンサー リンク

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

Sub sample()

    Dim objIE As InternetExplorer
    
    'IEでアメブロログアウト画面を起動
    Call ieView(objIE, "http://www.ameba.jp/logout.do")

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

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

End Sub

実行結果

アメブロ自動ログイン

それでは、1つずつ見ていきましょう。


Call ieView(objIE, "http://www.ameba.jp/logout.do")

まず、既にログインしている場合もありますので、ログアウト処理を最初に行います。
こちらでは「ieViewサブルーチン」でIEを起動しアメブロのログアウトURLを表示しています。
これまでの流れですとマイページを開いてログアウトボタンをクリックすることでログアウト処理が完了しますが、アメブロはログアウトURLにアクセスするだけでログアウトできますので、直接アクセスしログアウトしています。


Call ieNavi(objIE, "http://www.ameba.jp/")

ログアウトが完了したら、「ieNaviサブルーチン」を利用してアメブロのログイン画面を表示させます。


'アメブロログイン処理
Call formText(objIE, "amebaId", "★アメブロID★")
Call formText(objIE, "password", "★アメブロPASS★")
Call tagClick(objIE, "input", "アメーバIDでログイン")

こちらでは、ログインするための情報を入力し、ログインボタンをクリックしています。
実際のHTMLソースを見てみましょう。

<div id="userInput" class="clearFix">
<dl>
<dt id="amebaId"><label for="usr_name">アメーバID</label></dt>
<dd><input name="amebaId" maxlength="24" value="" onblur="SetChgColor(this, 0, true);" onfocus="SetChgColor(this, 1);" id="usr_name" style="ime-mode:disabled;" title="半角英数24文字まで" type="text" /></dd>
<dt id="pwd"><label for="usr_password">パスワード</label></dt>
<dd><input name="password" value="" onblur="SetChgColor(this, 0, true);" onfocus="SetChgColor(this, 1);" id="usr_password" style="ime-mode:disabled;" title="半角英数12文字まで" type="password" /></dd>
</dl>
<div id="btnLogin"><input name="Submit" src="http://stat100.ameba.jp/common_style/img/home_common/top/btn_login.gif" alt="アメーバIDでログイン" type="image" /></div></div>

フォームのテキストボックスに入力する「formText」を利用して、inputタグに「amebaId」が含まれるテキストボックスへ「★アメブロID★」を入力します。
次に、inputタグに「password」が含まれるテキストボックスへ「★アメブロPASS★」を入力します。
これで、アメブロID/PASSが入力されました。
最後に「tagClick」を利用して、inputタグに「アメーバIDでログイン」が含まれているタグをクリック処理をします。
これでログインが完了となります。
次はこちらの自動ログイン処理のサブルーチン化について解説していきます。

次の記事: VBAのIE操作でアメブロ自動ログイン・ログアウト2 >>

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)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。