Webbrowser ReadyState

[lintz]

I enter a stock code I want the price for in a hidden webbrowser control and then simulate clicking the submit button using the below code. The problem is the page hasn't finished loading by the time I get the source code of the page.

I thought the loop I've got would have worked but it doesn't?? Are there any other ways to "do nothing" until a page has finished displaying all text/images etc...??

WB1.Document.All("SecurityCode").Value = QuoteInfo(1, i) 'share code
WB1.Document.getElementById("btnAction").Click 'submit form
 
'while page is loading do nothing
Do While WB1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
 
'Get html source
SourceCode = WB1.Document.documentElement.OuterHTML

[iPrank]

Are there any other ways to "do nothing" until a page has finished displaying all text/images etc...??

Something like this ?

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
 
    If pDisp Is WebBrowser1.Object Then
        Debug.Print "Finished Loading"
        ' Do your job
    Else
        ' Do nothing
    End If
 
End Sub

[lintz]

Thanks Prank, added some further code and does what I'm after

[iPrank]

Glad to help