nanacoにログイン

nanaco.vbs

Option Explicit


    Dim ie
    
    Const ID = 
    Const PW = 
    Const url = "https://www.nanaco-net.jp/pc/emServlet"

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate url
    
    While ie.busy Or ie.ReadyState <> 4
        WScript.Sleep (100)
    Wend

    ie.document.forms(0).Item("XCID").Value = ID
    ie.document.forms(0).Item("LOGIN_PWD").Value = PW
    ie.document.forms(0).all("ACT_ACBS_do_LOGIN1").Click