Does anyone know how to adjust the below code to work on this website https://www.customerconnectionweb.com/accountAccess/login.module? I am not a code person, and have not had much success with this so any help is much appreciated.
Sub IE_login()
Dim ie As InternetExplorer, ieForm As Object
Dim MyPass As String, MyLogin As String
Do
MyLogin = Application.InputBox("Please enter your VBAX login", _
"VBAX username", Default:="login", type:=2)
MyPass = Application.InputBox("Please enter your VBAX password", _
"VBAX Password", Default:="Password", type:=2)
Loop Until Len(MyLogin) > 0 And Len(MyPass) > 0
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www1.mscdirect.com/cgi/nnsrhm"
'Loop until ie page is fully loaded
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
On Error Resume Next
'I'm guessing the form wont be there if already logged in
Set ieForm = ie.Document.Forms("f")
On Error Goto 0
If ieForm Is Nothing Then
MsgBox "User is aleady logged in"
Else
ieForm.Item("SIUSER").Value = MyLogin
ieForm.Item("SIPASS").Value = MyPass
ieForm.Submit
End If
Set ie = Nothing
End Sub
Dim ie As InternetExplorer, ieForm As Object
Dim MyPass As String, MyLogin As String
Do
MyLogin = Application.InputBox("Please enter your VBAX login", _
"VBAX username", Default:="login", type:=2)
MyPass = Application.InputBox("Please enter your VBAX password", _
"VBAX Password", Default:="Password", type:=2)
Loop Until Len(MyLogin) > 0 And Len(MyPass) > 0
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "http://www1.mscdirect.com/cgi/nnsrhm"
'Loop until ie page is fully loaded
Do Until ie.readyState = READYSTATE_COMPLETE
DoEvents
Loop
On Error Resume Next
'I'm guessing the form wont be there if already logged in
Set ieForm = ie.Document.Forms("f")
On Error Goto 0
If ieForm Is Nothing Then
MsgBox "User is aleady logged in"
Else
ieForm.Item("SIUSER").Value = MyLogin
ieForm.Item("SIPASS").Value = MyPass
ieForm.Submit
End If
Set ie = Nothing
End Sub
