VBAを利用したブログへの自動ログイン
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#1 2014年10月28日(火)05時52分 From: みるみる | 返事 削除 変更 |
ブログへのログインVBAを作ったのですが、サインイン(ログイン)のクリック指令がうまく行きません。 どなたか間違い箇所をご指摘いただければ幸いです。 自作VBA Sub useTextbox() Dim ie As InternetExplorer Dim txtInput As HTMLInputElement Set datasheet = ActiveSheet Dim form As HTMLFormElement Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.navigate "https://ssl.seesaa.jp/auth?return_to=https%3A%2F%2Fssl.seesaa.jp%2F..." Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop WaitFor (3) Set txtInput = ie.document.getElementById("email") txtInput.Value = datasheet.Cells(1, 1).Value Set txtInput = ie.document.getElementById("password") txtInput.Value = datasheet.Cells(1, 2).Value WaitFor (3) Set form = ie.document.forms("authpost") form.submit Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop WaitFor (3) 'ログアウト ie.navigate "http://blog.seesaa.jp/pages/logout" Do While ie.Busy Or ie.readyState < READYSTATE_COMPLETE DoEvents Loop End Sub '指定した秒だけ停止する関数 Function WaitFor(ByVal second As Integer) Dim futureTime As Date futureTime = DateAdd("s", second, Now) While Now < futureTime DoEvents Wend End Function ・・・・・・・・・・・・・・・・ 参照html < <form action="auth" method="post" name="authpost"><input value="FI6S4XSRkJVW2s_nAazRt2XzRy0" name="aXt" id="aXt" type="hidden"> <div id="logintxt">Seesaa アカウントサインイン</div> <div id="emailtxt">メールアドレス</div> <div><input name="email" id="email" size="15" type="text" value="" tabindex="1" /></div> <div id="passwordtxt">パスワード</div> <div><input name="password" id="password" size="15" type="password" value="" tabindex="1" /></div> <div id="mem"><input name="remember_me" id="remember_me" type="checkbox" value="t" tabindex="3" /><label for="remember_me">この情報を保持する</label></div> <div id="signin"><input value="サインイン" type="submit" tabindex="4" /></div> <input name="return_to" value="https://・・・・・" /> </form> |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降