View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
thomas donino thomas donino is offline
external usenet poster
 
Posts: 89
Default username and password controls


I was working on this with Joel earlier.
I have the following code which is barfing on ipf.Value = username
When I look at the html code for this page the username tag is name and the
password tag is id. The code is barfing when I try to set the value for the
username tag. any help below is appreciated.

Public Sub Login()

'Dim ipf As Object
Dim username As String
Dim pass As String
username = "vvv"
pass = "vvv"

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "www.elliottwave.com/"
Do While ie.ReadyState < 4 And ie.Busy = True
DoEvents
Loop
Set Form = ie.Document.getElementsByTagname("Form")
Set GoButton = Form(0).onsubmit

Set ipf = ie.Document.getElementByID("name")
ipf.Value = username
Set ipf = ie.Document.getElementByID("id")
ipf.Value = pass
Set ipf = ie.Document.all.Item("global_login_loginbutton")
Do Until .ReadyState = 4
DoEvents
Loop
ipf.submit

End With

End Sub