VBAを利用したブログへの自動ログイン 削除
Message#2 2014年10月28日(火)06時05分 From: 管理人 |
提示いただいている情報で試しましたが、特に問題なくログインボタンまで押されました。 試しに以下の処理をしてみてください。 #If VBA7 Then Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) #Else Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) #End If '---------------------------------------------------------------- '@指定URLを表示するサブルーチン「ieView」 Sub ieView(objIE As InternetExplorer, _ urlName As String, _ Optional viewFlg As Boolean = True) 'IE(InternetExplorer)のオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IE(InternetExplorer)を表示・非表示 objIE.Visible = viewFlg '指定したURLのページを表示する objIE.Navigate urlName 'IEが完全表示されるまで待機 Call ieCheck(objIE) End Sub '---------------------------------------------------------------- 'AWebページ完全読込待機処理サブルーチン「ieCheck」 Sub ieCheck(objIE As InternetExplorer) Dim timeOut As Date timeOut = Now + TimeSerial(0, 0, 10) Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop timeOut = Now + TimeSerial(0, 0, 10) Do Until objIE.document.ReadyState = "complete" DoEvents Sleep 100 If Now > timeOut Then objIE.Refresh timeOut = Now + TimeSerial(0, 0, 10) End If Loop End Sub '---------------------------------------------------------------- 'Bタグをクリックするサブルーチン「tagClick」 Sub tagClick(objIE As InternetExplorer, _ tagName As String, _ tagStr As String) 'タグをクリック For Each objTag In objIE.document.getElementsByTagName(tagName) If InStr(objTag.outerHTML, tagStr) > 0 Then objTag.Click Call ieCheck(objIE) Exit For End If Next End Sub '---------------------------------------------------------------- 'Cフォームのテキストボックスへ入力するサブルーチン「tagClick」 Sub formText(objIE As InternetExplorer, _ nameValue As String, _ tagValue As String) 'テキストボックス・パスワードボックスにデータを入力 For Each objTag In objIE.document.getElementsByTagName("input") If objTag.Name = nameValue Then objTag.Value = tagValue Exit For End If Next 'テキストエリアにデータを入力 For Each objTag In objIE.document.getElementsByTagName("textarea") If objTag.Name = nameValue Then objTag.Value = tagValue Exit For End If Next End Sub '---------------------------------------------------------------- '▼seesaaブログへ自動ログインプログラム Sub sample() Dim objIE As InternetExplorer 'Seesaaブログのサインイン画面をIEで起動 Call ieView(objIE, "https://ssl.seesaa.jp/auth") 'テキストボックスにログインIDを入力 call formText(objIE, "email", Cells(1, 1).Value) 'テキストボックスにログインパスワードを入力 call formText(objIE, "password", Cells(1, 2).Value) '検索ボタンをクリック call tagClick(objIE, "input", "サインイン") End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。