Login with no ID

[josros60]

Hi,

Want log in to a website automatically with vba but the problem I am having when I inspect the login box there's no ID HTML only what's in the picture below, tried using this line of code but doesn't work:

HTMLDoc.getElementById("login").Value = Worksheets("Portal_Access").Range("F20")

Page source:
<input type="text" class="form-control" tabindex="1" id="LoginUsernameTextBox">

<input type="text" class="form-control" tabindex="1" id="LoginUsernameTextBox">

thanks

 

[John_w]

The 2 input boxes you posted have this HTML:

< input type="text" class="form-control" tabindex="1" id="LoginUsernameTextBox">

Therefore try:

HTMLDoc.getElementById("LoginUsernameTextBox").Value = Worksheets("Portal_Access").Range("F20").Value

 

[josros60]

Thanks.

But I tried and it game Run-time error 424 object required. here is the complete code:

Sub CityWest()Dim IE As Object
Dim HTMLDoc As Object
Dim objCollection As Object
Dim ws As Worksheet
    
  
  'On Error GoTo Err_Clear
  Const navOpenInNewTab = &H800
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  ShowWindow IE.hwnd, SW_MAXIMIZE
  IE.navigate "https://citywest.smarthub.coop/Login.html"
  Do While IE.Busy Or IE.readyState <> 4: Loop


  Set HTMLDoc = IE.document


  With HTMLDoc
  HTMLDoc.getElementById("LoginUsernameTextBox").Value = Worksheets("Portal_Access").Range("F20").Value
  HTMLDoc.getElementByClassName("LoginPasswordTextBox").Value = Worksheets("Portal_Access").Range("G20")
 
  
  
  
  End With
  Set objCollection = IE.document.getElementById("LoginSubmitButton")
  objCollection.Click
  
'Err_Clear:
'If Err <> 0 Then
'Err.Clear
'Resume Next
'End If
 
End Sub

 

[John_w]

Both login input fields have an id. You want getElementById, not getElementByClassName, which isn't a valid method.

Try this macro:

Public Sub IE_Login2()

    With CreateObject("InternetExplorer.Application")
        .navigate "https://citywest.smarthub.coop/Login.html"
        .Visible = True
        While .Busy Or .readyState <> 4: DoEvents: Wend
        Do
            DoEvents
        Loop Until InStr(1, .document.body.outerHTML, "LoginUsernameTextBox", vbTextCompare)
        
        .document.getElementById("LoginUsernameTextBox").Value = "YourEmailAddress"
        .document.getElementById("LoginPasswordTextBox").Value = "YourPassword"
        .document.getElementById("LoginSubmitButton").Click
    End With
    
End Sub