ポンタにログイン

Ponta.vbs

    Dim ie

    Const url = "https://www.ponta.jp/u/LWAS900/SLWAS900010.htm"
    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("form")
        .memberID_1.Value =
        .memberID_2.Value =
        .memberID_3.Value =
        .memberID_4.value = 
        .Password.Value = 
       .login.click
    End With