Inlognaam & wachtwoord invullen op website dmv vba

[AatB]

Goedemiddag,

Ik wil op MijnEneco de inlognaam en wachtwoord dmv vba invullen.
Iemand een idee?

mvg,

Aat

 

[Aar]

Wat wil je precies bereiken? Hier rijzen vraagtekens....

 

[Senso]

How to Login Automatically into Website Using Excel VBA.

 

[JEC.]

Je kan het zo proberen. Wel even je inloggegevens aanpassen in de code

Sub jec()
 Dim ieDoc As Object
 With CreateObject("InternetExplorer.application")
   .Navigate "https://inloggen.eneco.nl/"
   .Visible = True
    Do While .Busy Or .readystate <> 4: DoEvents: Loop
    Set ieDoc = .document
 
    With ieDoc.forms("form19")
      .UserName.Value = "xxx@xxx.com"
      .submit
    End With
    
    Do While .Busy: DoEvents: Loop
    ieDoc.getElementById("okta-signin-submit").Click
  
    Application.Wait DateAdd("s", 2, Now)
    With .document.forms("form45")
       .Password.Value = "xxxx"
       .submit
    End With
 End With
End Sub

 

[snb]

Gebruik de bibliotheek MSXLM2.xmlHTTP