How to access certain website log in with user name and password andclick certain button?

  • Thread starter Thread starter geniusideas
  • Start date Start date
G

geniusideas

Hi,
I have new project related to VBA. I search google and found many
solution but doesn't work. The project is to access specific website
log in with user name and password and later click specific button to
get some info.
Please help if you the coding in vba. Thanks
 
Check this link out:
http://www.mrexcel.com/forum/showthread.php?t=302438

Something to get you started:

In your VBA set refference to:
Microsoft Internet controls

Then use some code along these lines - it's not complete for you -
you'll need to finish it up yourself but it can get you started.

Option Explicit

Sub ClcikMyButton()
Dim ie As SHDocVw.InternetExplorer
Dim hDoc As MSHTML.HTMLDocument

Set ie = New SHDocVw.InternetExplorer

With ie
.Visible = True

Do Until Not ie.Busy And ie.ReadyState = 4
DoEvents
Loop

.Navigate "http://www.google.com"'<--put your url here

'wait until IE finished loading the page
Do Until Not ie.Busy And ie.ReadyState = 4
DoEvents
Loop

End With

Set hDoc = ie.Document


'In some web browser find the ELEMENT_IDs of the textboxes, buttons
of the URL of your interest.
'If they don't have IDs - you'll need to figure out a different way
of accessing those html elements.
With hDoc
.getElementById("PutYourUserNameELEMENT_ID_here").Value =
"YourUserName"
.getElementById("PutYourPWDELEMENT_ID_here").Value = "YourPWD"
.getElementById("PutYourLogonButtonELEMENT_ID_here").Click'This
can be done alsy with form.subbmit - depending on the website.
End With


'put here some code to navigate to your url where the button to click
is
'put here some code to click on the button

End Sub
 
Dear AB,

The above code won't work, unable to load desire website. Totally
hang.
Please help.
 
So, is it creating the IE object (i.e., does it create an Internet
Explorer window) but fails to load the page that you want it to?
 
So, is it creating the IE object (i.e., does it create an Internet
Explorer window) but fails to load the page that you want it to?
Click to expand...

yes, fail to load page but create internet explorer window
 
Any web also cannot, even u try google..
Click to expand...

This works for Google log-in...Ron

Sub IE_Automation()

' Open the Google log-in web page
my_url = "https://www.google.com/accounts/ServiceLogin?
continue=http://www.google.com/ig% _
3Ftab%3Dgw%26hl%3Den&followup=http://www.google.com/
ig%3Ftab%3Dgw%26 _
hl
%3Den&service=ig&passive=true&cd=US&hl=en&nui=1&ltmpl=default"

Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate my_url
End With

' Loop until the page is fully loaded
Do Until ie.ReadyState = 4 And Not ie.Busy
DoEvents
Loop

' Log-in
Set ipf = ie.Document.all.Item("Email")
ipf.Value = "your e-mail address"

Set ipf = ie.Document.all.Item("Passwd")
ipf.Value = "your Google password"

Set ipf = ie.Document.getElementByID("signIn")
ipf.Click

' Loop until the page is fully loaded
Do Until ie.ReadyState = 4 And Not ie.Busy
DoEvents
Loop

' Now do whatever

End Sub
 
Back
Top