On Jan 7, 7:51*am, geniusideas wrote:
On Jan 6, 12:39*am, ron wrote:

On Jan 5, 8:26*am, geniusideas wrote:

Dear AB,

The above code won't work, unable to load desire website. Totally
hang.
Please help.

What's the website url?..Ron

Any web also cannot, even u try google..

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&lt mpl=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