VBA Code to login into a Website

[freedive619]

Hello,

I am having problems logging into a Wells Fargo website. I've tried using codes from this forum but I cannot get my info to entered into the boxes. This is the website and the code i am using...

Option Explicit
Const MyUserID As String = "123701"
Const MyUserName As String = "sdf12345"
Const MyPassword As String = "Tuna2017"
Const READYSTATE_COMPLETE As Integer = 4
Dim objIE As Object
Public Sub LoginScript()

Set objIE = CreateObject("InternetExplorer.Application")

With objIE
.Visible = True
.Silent = True
.navigate ("https://wffnet.wellsfargo.com/ilonline/funding/wff_landingPageFrameSet.jsp")
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:02")
.document.all.MyUserId.Value= MyUserID
.document.all.UserId.Value = MyUserName
.document.all.userLoginPassword.Value = MyPassword
.document.forms(0).submit
Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:02")
End With
End Sub

The code works perfectly until it reached the lower half. It's stating it's missing an object. Anyone know how this can be altered?

.document.all.MyUserId.Value= MyUserID
.document.all.UserId.Value = MyUserName
.document.all.userLoginPassword.Value = MyPassword
.document.forms(0).submit

Thanks!!!!!

 

[John_w]

The web page uses frames so you need to reference the elements within the "Body" frame document.

Public Sub IE_Login()

    Dim IE As Object
    Dim HTMLdoc As Object
    
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate "https://wffnet.wellsfargo.com/ilonline/funding/wff_landingPageFrameSet.jsp"
        While .Busy Or .readyState <> 4: DoEvents: Wend
        Set HTMLdoc = .document.getElementsByTagName("frame")(1).contentDocument  'Body frame
    End With
    
    HTMLdoc.getElementById("so_companyId").Value = MyUserID
    HTMLdoc.getElementById("so_userId").Value = MyUserName
    HTMLdoc.getElementById("so_userLoginPassword").Value = MyPassword
    HTMLdoc.getElementById("so_userLoginGoButton").Click
    
    With IE
        While .Busy Or .readyState <> 4: DoEvents: Wend
    End With
    
End Sub

 

[freedive619]

Thank you, it worked!

 

[orangeab]

Can you please help me using the same code to access the following site?

https://myibd.investors.com/secure/signin.aspx?eurl=https://www.investors.com/