ID가없는 웹 사이트에 로그인하는 방법 - VBA

Question

누구든지 vba에서이 웹 사이트에 로그인하는 방법을 알고 있습니까? 아이디와 비밀번호 상자를 찾을 수없는 것 같습니다. 알려줘. 감사!

https://www.barchart.com/options/volume-leaders#/login

Answer 1

한 가지 방법 ...

Sub Login() 
    Const URL As String = "https://www.barchart.com/options/volume-leaders#/login" 
    Const READYSTATE_COMPLETE As Integer = 4 
    Dim IE As Object 
    Dim inputField As Object, inputFields As Object, btSubmit As Object, btn As Object 

    Set IE = CreateObject("InternetExplorer.Application") 
    IE.navigate URL 
    IE.Visible = True 
    On Error Resume Next 
    Do While (IE.Busy Or IE.readyState <> READYSTATE_COMPLETE) 
     DoEvents 
    Loop 
    Set inputFields = IE.document.getElementsByTagName("input") 

    For Each inputField In inputFields 
     If inputField.getattribute("name") = "email" Then 
      inputField.Value = "Your login id" 
     ElseIf inputField.getattribute("name") = "password" Then 
      inputField.Value = "your password" 
     End If 
    Next inputField 
    Set btSubmit = IE.document.getElementsByTagName("button") 
    For Each btn In btSubmit 
     If btn.innertext = "Log In" Then 
      btn.Click 
      Exit For 
     End If 
    Next btn 
End Sub