Web - Username, password and form submit

[Rob_J]

Hi,

First post here. Fairly new to VBA, I have a problem which I've searched this and other forums for an answer but none have quite got me to where I want to be. This goes beyond my trusty Mr Excel book...

The question.

How can I get my username and password into the form at the top of this web page - http://glenigan-cms.auros.co.uk/default.aspx and then submit.

The code that I've found enters my details but only in grey font. I belive this is because I have the wrong HTML id/name? I know even less about HTML than I do VBA!!

Should I be navigating to the form when I navigate to the page initially?


If I try to submit the form(0), it submits the search box?
I've tried changing the form number to 1,2,3,4 but this returns an error.

Sub Test()
    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = True
    IE.navigate ("[URL]http://glenigan-cms.auros.co.uk/default.aspx[/URL]")
 
    Do
        If IE.readyState = 4 Then
 
            Exit Do
        Else
            DoEvents
        End If
    Loop
 
    IE.document.forms(0).all("[COLOR=black]Template_GLE_Login_LoginView1_login_UserName").[/COLOR]Value = "theusername"
    IE.document.forms(0).all("Template_GLE_Login_LoginView1_login_Password").Value ="thepassword"
    IE.document.forms(0).submit
 
 
End Sub

I would be most grateful for a point in the right direction.

thank you,

Rob


this is the thread which has helped me thus far - http://www.mrexcel.com/forum/showthread.php?t=461524
Norie are you out there.....

 

[John_w]

Try this:

Sub Test()

    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.application")

    With IE
        .Visible = True
        .navigate ("http://glenigan-cms.auros.co.uk/default.aspx")

        While .Busy Or .readyState <> 4: DoEvents: Wend

        .document.all("Template_GLE_Login_LoginView1_login_UserName").Value = "YOURUSERNAME"
        .document.all("Template_GLE_Login_LoginView1_login_Password").Value = "YOURPASSWORD"
        .document.all("Template_GLE_Login_LoginView1_login_LoginButton").Click

        While .Busy Or .readyState <> 4: DoEvents: Wend
        Debug.Print .LocationURL
    End With

End Sub

 

[Rob_J]

Thanks John,

You solved the problem with selecting the correct form.

Unfortunatly the values entered for the username and password are still grey and don't submit.

What seems to be changing is the "display text" but not actually entering any values in to the form?

Any other suggestions?

thanks,
Rob

 

[Rob_J]

got the answer

http://www.mrexcel.com/forum/showthread.php?t=461524

assigning getelementid was the key

 

[John_w]

I don't think getElementById is the key because

.document.getElementById("Template_GLE_Login_LoginView1_login_UserName").Value

and

.document.all("Template_GLE_Login_LoginView1_login_UserName").Value

are just different ways of setting the value of the same element.

I think the .Focus is the important bit.

Sub Test2()

    Dim IE As Object

    Set IE = CreateObject("InternetExplorer.application")

    With IE
        .Visible = True
        .navigate ("http://glenigan-cms.auros.co.uk/default.aspx")

        While .Busy Or .readyState <> 4: DoEvents: Wend

        .document.all("Template_GLE_Login_LoginView1_login_UserName").Focus
        .document.all("Template_GLE_Login_LoginView1_login_UserName").Value = "YOURUSERNAME"
        .document.all("Template_GLE_Login_LoginView1_login_Password").Focus
        .document.all("Template_GLE_Login_LoginView1_login_Password").Value = "YOURPASSWORD"
        .document.all("Template_GLE_Login_LoginView1_login_LoginButton").Click

        While .Busy Or .readyState <> 4: DoEvents: Wend
        Debug.Print .LocationURL
    End With

End Sub

 

[Norie]

John

Do you really need the Focus?

I ran your code without it and it appeared to work fine.

 

[John_w]

I also thought my first code worked fine, notwithstanding the fact that I don't have a valid username and password and get an invalid login message when submitted. But then Rob J said "Unfortunatly the values entered for the username and password are still grey and don't submit." so I included the .Focus to match his solution in the other thread.

 

[Norie]

John

When I stepped through the code with the Focus lines commented out it worked fine in putting the username and password.

However when the form was submitted I got the inevitable wrong username/password and the form kind of 'reset' itself.