Creating a Login Button for a Website

[JesseV92]

Hi all,

I am relatively new to VBA but I'm enjoying figuring out new things in it.

Right now I am trying to create a button in Excel that will automatically go to my university's log-in page and fill in my credentials. I already got a button like this working for my Gmail account. However, for my university login it does not seem to work. I have the following lines of code:

Sub UniversityLogin()
Dim IE As Object
Dim MyUsername As String, MyPassword As String


MyUsername = "MyUsername"
MyPassword = "MyPassword"

Set IE = CreateObject("INTERNETEXPLORER.Application")

IE.Navigate ("www.myeur.nl")
IE.Visible = True

Do While IE.Busy: DoEvents: Loop

Application.Wait (Now + TimeValue("00:00:02"))


IE.Document.all.Item("Erna_ID").Value = MyUsername
IE.Document.all.Item("Password").Value = MyPassword
IE.Document.all.Item("loginbutton").Click

End Sub

The whole first part (opening the website) works fine. The bottleneck right now are the last three lines. I used the same lines for my Gmail login button (though there instead of ''Erna_ID'' I used "email address"). Basically what I cannot get to work is the code to recognize the correct text boxes called ERNA ID for username and Password for Password. Is there anyone who has got any tips on solving this for both this specific website (www.myeur.nl) and for any website in general? I would really like to learn how to do this for other websites (e.g. Facebook or LinkedIn) too.

[AB33]

It is difficult to get help with login request as we do not know your login details.
I will give you some pointers.

The name and ID of the first input box is IDToken1 and IDToken2 for second box.

IE.Document.all.Item("IDToken1").Value = MyUsername
IE.Document.all.Item("IDToken2").Value = MyPassword
IE.Document.all.Item("loginbutton").Click
I would use getelementByID method for boxes, but as I said, there is no way testing if these line work as I do not have password and username to test it.

[JesseV92]

Hi AB33,

Thank you for your reply.

Maybe I should rephrase my question. The problem with my Macro right now is that it does not recognize/find the text box. So in other words: I am trying to figure out how the Macro can recognize the area where it needs to put in my details. On the website im currently trying to make this work for (www.myeur.nl) there are two places where text needs to put in. There is a text box behind Erna ID (where I want to enter my/any username) and a text box behind Password (where I want to enter my/any password). Would you know how to make this work? It does not have to actually login yet, right now I am first trying to get it to put in any text in those two boxes (the values for MyUsername and MyPassword in the code).

P.S., when I inspect the element in Internet Explorer the text box is indeed called IDToken1. However, this does not make it work for me?

[AB33]

Because you have IDs and Names.
Try

Please Login or Register  to view this content.

[JesseV92]

Ah thanks a million, now I understand your point in your first comment. These lines indeed do work.

Now just one last thing: what would the code for the login button be then? Because the element there is a Name right (called "Login")?

[AB33]

Ah, you now caught me. I left that line on purpose as I could not find the click or summit button.
If the button has an ID or name, it would have been
IE.Document.getElementById("loginbutton").Click
This line will not work and will give you an error, but try it.

IE.Document.forms(0).submit

[AB33]

May be try one too

Please Login or Register  to view this content.

[JesseV92]

Hmm no neither of those seem to be working. I really do appreciate the effort though!

[AB33]

Last dice before some one can have a go.

Please Login or Register  to view this content.

Change the values in jaysixela and 12qwaszx it your own details

It is the damn JavaScirpt. I have not idea how it works

[JesseV92]

Hmm no still no luck... The JavaScript is indeed the bottleneck here. Perhaps someone else has any thoughts on this?

Anyway, thanks again for all your help so far!