いつもお世話になります。
現在、さくらインターネットのレンタルサーバーを契約しておりまして
レンタルサーバーコントロールの旧ログインフォームでは
簡単に自動ログインできていたのですが
新ログインフォームに変わってから、どうやってもできなくなっていました。
ユーザーIDとパスワードにデータを飛ばすことはできるのですが、
ログインボタンを押すと、「ユーザー名を入力してください パスワードを入力してください」とエラーが表示されるようになりました。
【さくらレンタルサーバーコントロールのログインページ】
https://secure.sakura.ad.jp/rs/cp/
VBA
1Public Sub Sakura_Login() 2 3 Dim objIE As InternetExplorer 4 Set objIE = CreateObject("Internetexplorer.Application") 5 6 objIE.Visible = True 7 Call ieView(objIE, "https://secure.sakura.ad.jp/rscontrol/") 8 Call wait(objIE) 9 10 Dim htmlDoc As HTMLDocument 11 Set htmlDoc = objIE.document 12 13 Call wait(objIE) 14 htmlDoc.getElementsByTagName("input")(0).Value = "ID" 15 htmlDoc.getElementsByTagName("input")(1).Value = "PASS" 16 htmlDoc.getElementsByClassName("button primary-button size-big block")(0).Click 17 18 Call wait(objIE) 19 20End Sub
エラー時、
テキストボックスには値が入っておりますが
該当属性のHTMLソースを見ると、Valueに値が入っておりませんでした(手動の場合は値が入ります)。
【自動の場合】
HTML
1<input class="input input-text input-default" type="text" value=""> 2<input class="input input-text input-default" type="password" value="">
【手動の場合】
HTML
1<input class="input input-text input-default" type="text" value="ID"> 2<input class="input input-text input-default" type="password" value="PASS">
また、一度でも自動でログインしようとすると
その後、いくら手動で入力しても
ページを更新しない限り、ログインできなくなります。
自動ログインを防止するためのセキュリティ対策かと思われますが
これはどういった仕組みになっているのでしょうか?
JavaScriptが動いているようにも見えますので、
対応するのは難しいでしょうか?
些細なことでも構いませんので
お知恵をお貸しいただけますと幸いです。
どうか宜しくお願いいたします。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/09/16 05:04