ExcelVBAでFC2ブログに自動ログインする方法

最近の書き込み件数：今日 0件、昨日 0件
未読分：2件

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

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

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

Message#2 2014年10月21日(火)07時25分
From: 管理人

返事削除変更

FC2ブログに自動ログインする内容の記事を書いています。
下記をご確認ください。

http://www.vba-ie.net/application/fc2blog-login.html

一応簡単にご説明すると、プログラムは以下のようになります。

Sub sample()

Dim objIE As InternetExplorer

'IEでFC2ブログロ管理画面を起動
Call ieView(objIE, "http://fc2.com/login.php?ref=blog")

'ログアウト処理
If tagCheck(objIE, "a", "ログアウト") = True Then
Call tagClick(objIE, "a", "ログアウト")
End If

'fc2blogID自動入力
Call formText(objIE, "id", "★FC2ブログID★")

'fc2blogログインパスワード自動入力
Call formText(objIE, "pass", "★FC2ブログPASS★")

'ログインボタンをクリック
Call tagClick(objIE, "input", "ログイン")

End Sub

まずは、他のIDがログインしている場合があるので、一旦ログアウトします。

次にログインID・PASSの自動入力ですが、エレメントのnameを確認すると、IDは「id」PASSは「pass」が設定されていました。
そこで、formTextサブルーチンを利用して値を代入しています。

最後にログインボタンをクリックですが、こちらもtagClickサブルーチンを利用して「ログイン」というキーワードがあるinputタグを探しクリック処理をしています。

Message#1 2014年10月12日(日)07時24分
From: fc2ブログ

返事削除変更

ExcelVBAでFC2ブログに自動ログインする方法と考えています。
一応自分なりに考えてプログラムを構築したのですが、FC2ブログに自動ログインを試みてもうまくログインできませんでした。

ちなみに私が書いたVBAのプログラムは以下になります。

どのように変えたらうまくいくでしょうか？

よろしくお願いします。

【ログアウト】
ie.Navigate "http://control.blog.fc2.com/control.php?mode=logging&process=out&la..."

waitIE ie

Sleep 1000

【ログイン】

ie.Navigate "http://fc2.com/login.php?ref=blog"

waitIE ie

Sleep 1000

ie.document.getElementById("id").Value = Worksheets("ブログリスト").Range("C" & num).Value

ie.document.getElementById("pass").Value = Worksheets("ブログリスト").Range("D" & num).Value

'ie.document.all.INPUT.Click 'クリックメソッドを実行

'ie.document.forms(0).Submit

'ie.document.getElementsByTagName("image").Item(0).Click

'ie.document.getElementById("image").Click

ie.documant.all.Item("image").Value.Click

'ie.Document.form_login.Submit

waitIE ie

Sleep 1000

'リンクの追加

ie.Navigate "http://control.blog.fc2.com/control.php?mode=control&process=link"

waitIE ie