FRIEL
11-10-2011, 08:07 AM
morning all
I have been playing around with automating a logging into a web page
i have found the following code.
Public Sub LaunchSITE()
Const strURL_c As String ="website"
Const strUsr_c As String = email@domain.co.uk
Const strPwd_c As String = "password01"
Dim objIE As SHDocVw.InternetExplorer
Dim ieDoc As MSHTML.HTMLDocument
Dim tbxPwdFld As MSHTML.HTMLInputElement
Dim tbxUsrFld As MSHTML.HTMLInputElement
Dim btnSubmit As MSHTML.HTMLInputElement
On Error GoTo Err_Hnd
'Create Internet Explorer Object
Set objIE = New SHDocVw.InternetExplorer
'Navigate the URL
objIE.navigate strURL_c
'Wait for page to load
Do Until objIE.readyState = READYSTATE_COMPLETE: Loop
'Get document object
Set ieDoc = objIE.document
'Get username/password fields and submit button.
Set tbxPwdFld = ieDoc.all.Item("majenta_password") 'name of the username textbox
Set tbxUsrFld = ieDoc.all.Item("majenta_username") 'name of the password textbox
Set btnSubmit = ieDoc.all.Item("submit") 'name of the submit button on the form
'Fill Fields
tbxUsrFld.Value = strUsr_c
tbxPwdFld.Value = strPwd_c
'Click submit
btnSubmit.Click
'Wait for page to load
Do Until objIE.readyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
End Sub
but there is a problem with clicking the submit button.
i have hilighted in bold the places i suspect there to be an error but i have no idea how to fix it.
Set btnSubmit = ieDoc.all.Item("submit")
this line after running is still set to nothing whereas the other 2 befote it are to their respective textboxes.
does anyone have any ideas where i am going wrong??
CROSSPOSTED HERE: excelforum
as "Logging in to a website using Excel"
I have been playing around with automating a logging into a web page
i have found the following code.
Public Sub LaunchSITE()
Const strURL_c As String ="website"
Const strUsr_c As String = email@domain.co.uk
Const strPwd_c As String = "password01"
Dim objIE As SHDocVw.InternetExplorer
Dim ieDoc As MSHTML.HTMLDocument
Dim tbxPwdFld As MSHTML.HTMLInputElement
Dim tbxUsrFld As MSHTML.HTMLInputElement
Dim btnSubmit As MSHTML.HTMLInputElement
On Error GoTo Err_Hnd
'Create Internet Explorer Object
Set objIE = New SHDocVw.InternetExplorer
'Navigate the URL
objIE.navigate strURL_c
'Wait for page to load
Do Until objIE.readyState = READYSTATE_COMPLETE: Loop
'Get document object
Set ieDoc = objIE.document
'Get username/password fields and submit button.
Set tbxPwdFld = ieDoc.all.Item("majenta_password") 'name of the username textbox
Set tbxUsrFld = ieDoc.all.Item("majenta_username") 'name of the password textbox
Set btnSubmit = ieDoc.all.Item("submit") 'name of the submit button on the form
'Fill Fields
tbxUsrFld.Value = strUsr_c
tbxPwdFld.Value = strPwd_c
'Click submit
btnSubmit.Click
'Wait for page to load
Do Until objIE.readyState = READYSTATE_COMPLETE: Loop
Err_Hnd: '(Fail gracefully)
End Sub
but there is a problem with clicking the submit button.
i have hilighted in bold the places i suspect there to be an error but i have no idea how to fix it.
Set btnSubmit = ieDoc.all.Item("submit")
this line after running is still set to nothing whereas the other 2 befote it are to their respective textboxes.
does anyone have any ideas where i am going wrong??
CROSSPOSTED HERE: excelforum
as "Logging in to a website using Excel"