input data into div on login page - excel

Question

https://imgur.com/a/QauSk1H
Set IE = New InternetExplorer
IE.Visible = True
IE.navigate "https://mdemo.cqg.com/cqg/desktop/logon"
Do While IE.Busy = True: DoEvents: Loop
Set HTMLDoc = IE.document
Set wpfe = HTMLDoc.getElementsByClassName("wpfe-logon-input-full wpfe-native-faded-input ng-untouched ng-pristine ng-valid")(0)
wpfe.Value = "User Login"
I'm tyring to enter login but it looks like emm... nothing good. Screens of interesting code part and error attached at the top. I hope that you might be able to help.

Answer 1

You want to get the first input field by the css class names "wpfe-logon-input-full wpfe-native-faded-input ng-untouched ng-pristine ng-valid". I wrote names because every string seperated by a space is an own css class name. The last css class name is not ng-valid when you load the page. It's ng-invalid. That's the reason for your error.
The solution is to use only the first css class wpfe-logon-input-full. But that's not enough to get your goal.
After the first html code was loaded and the IE reports the browser is no more busy, the IE lies to you ;-) There is dynamic content which will be load after that. So you have to wait till that's done.
But even then the login still does not work. You have to trigger two html events per input field.
This code works:
Sub Login()
Const url As String = "https://mdemo.cqg.com/cqg/desktop/logon"
Dim ie As Object
Dim HTMLDoc As Object
Dim nodeUsername As Object
Dim nodePassword As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate url
Do While ie.Busy = True: DoEvents: Loop
Application.Wait (Now + TimeSerial(0, 0, 5))
Set HTMLDoc = ie.document
Set nodeUsername = HTMLDoc.getElementsByClassName("wpfe-logon-input-full")(0)
Call TriggerEvent(HTMLDoc, nodeUsername, "compositionstart")
nodeUsername.Value = "TestName"
Call TriggerEvent(HTMLDoc, nodeUsername, "compositionend")
Set nodePassword = HTMLDoc.getElementsByClassName("wpfe-logon-input-full")(1)
Call TriggerEvent(HTMLDoc, nodePassword, "compositionstart")
nodePassword.Value = "TestPassword"
Call TriggerEvent(HTMLDoc, nodePassword, "compositionend")
HTMLDoc.getElementByID("login").Click
End Sub
Use this procedure to trigger html events:
Private Sub TriggerEvent(htmlDocument As Object, htmlElementWithEvent As Object, eventType As String)
Dim theEvent As Object
htmlElementWithEvent.Focus
Set theEvent = htmlDocument.createEvent("HTMLEvents")
theEvent.initEvent eventType, True, False
htmlElementWithEvent.dispatchEvent theEvent
End Sub