[VBA] IEによる自動ログインについて 削除
Message#2 2015年2月4日(水)21時24分 From: ホワイトペッパー |
こんな感じで。 --- Option Explicit Sub hoge() Const url = "https://www.nanaco-net.jp/pc/emServlet" Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate url While ie.busy Or ie.ReadyState <> 4 DoEvents Wend ie.document.forms(0).Item("XCID").Value = "ID" ie.document.forms(0).Item("SECURITY_CD").Value = "PW" ie.document.forms(0).all("ACT_ACBS_do_LOGIN2").Click End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。