WAONにログイン

waon.vbs

    Dim ie

    Const url = "https://www.waon.com/wmUseHistoryInq/init.do"
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate url
    
    While ie.busy Or ie.ReadyState <> 4
        WScript.Sleep (100)
    Wend

    With ie.Document.Forms("loginForm")
        .cardNo1.Value = 
        .cardNo2.Value =
        .cardNo3.Value = 
        .cardNo4.value = 
        .secNo.Value = 
       .submit
    End With