VBAのIE操作でfacebook自動ログイン・ログアウト

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

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

今回は、facebookに自動ログイン（ログアウト）する方法について解説していきます。
こちらでは、ログインする基本部分について説明していますので、カスタマイズして目的にあったプログラムを構築してください。

スポンサー　リンク

facebookに自動ログイン（ログアウト）のマクロ

Sub sample()

　　Dim objIE As InternetExplorer

    'IEでfacebook画面を起動
    Call ieView(objIE, "https://www.facebook.com/")
    
    'ログアウト処理
    If tagCheck(objIE, "input", "ログアウト") = True Then
        Call tagClick(objIE, "input", "ログアウト")
    End If
    
    'facebookID自動入力
    Call formText(objIE, "email", "★facebookID★")

    'facebookログインパスワード自動入力
    Call formText(objIE, "pass", "★facebookPASS★")
    
    'ログインボタンをクリック
    Call tagClick(objIE, "input", "ログイン")

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

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


Call ieView(objIE, "https://www.facebook.com/")

※ドラッグ(スワイプ)すると全体を確認できます。

まず、IEを起動させ、facebookのトップページを表示します。


If tagCheck(objIE, "input", "ログアウト") = True Then
　Call tagClick(objIE, "input", "ログアウト")
End If

※ドラッグ(スワイプ)すると全体を確認できます。

こちらはログインしていた場合のログアウト処理ですが、「tagCheckサブルーチン」を利用してログアウトボタンがある場合は、そちらをクリックする処理をしています。
ちなみにログアウト部分のHTMLソースは以下になります。


'facebookログイン処理
Call formText(objIE, "email", "★facebookID★")
Call formText(objIE, "pass", "★facebookPASS★")
Call tagClick(objIE, "input", "ログイン")

※ドラッグ(スワイプ)すると全体を確認できます。

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

<table cellspacing="0">
<tbody>
<tr>
<td class="html7magic"><label for="email">メールまたは携帯番号</label></td>
<td class="html7magic"><label for="pass">パスワード</label></td>
</tr>
<tr>
<td><input name="email" tabindex="1" class="inputtext" id="email" type="text" value=""></td>
<td><input name="pass" tabindex="2" class="inputtext" id="pass" type="password"></td>
<td><label class="uiButton uiButtonConfirm" id="loginbutton" for="u_0_l"><input tabindex="4" id="u_0_l" type="submit" value="ログイン"></label></td>
</tr>
<tr>
<td class="login_form_label_field">
<div>
<div class="uiInputLabel clearfix uiInputLabelLegacy">
<input name="persistent" tabindex="3" class="uiInputLabelInput uiInputLabelCheckbox" id="persist_box" type="checkbox" value="1"><label class="uiInputLabelLabel" for="persist_box">ログインしたままにする</label>
</div>
<input name="default_persistent" type="hidden" value="0">
</div>
</td>
<td class="login_form_label_field"><a href="https://www.facebook.com/recover/initiate" rel="nofollow">パスワードを忘れた場合はこちら</a></td>
</tr>
</tbody>
</table>

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