vbs script wait for Internet explorer page to fully load

[daillest319]

im trying to have the code to wait for the page to fully load before it goes on to the next command. sleep command doesnt work great since the page can sometimes take longer then the sleep timer. please can someone help me?

Dim oIE,
Set oIE = WScript.CreateObject("InternetExplorer.Application") 


oIE.Visible = true
oIE.Navigate("[URL unfurl="true"]http://www.yahoo.com")[/URL]
WScript.Sleep 10000
oIE.Document.All.Item("txtUserName").Value = "user"
oIE.Document.All.Item("txtPassword").Value = "password"
WScript.Sleep 10000

 

[PHV]

Replace this:
WScript.Sleep 10000
with this:
Do While oIE.Busy Or oIE.ReadyState <> 4: WScript.Sleep 100: Loop


Hope This Helps, PH.
FAQ219-2884
FAQ181-2886