wait for website to finished loading webbrowser control

[Mr_Zer0]

Hey,well im using webbrowser control and when it submits the submit button it takes while to load then will say "loaded" on this site,the problem is it has code after and it loads b4 the site is loaded i tried using sleep but still buggy

WebBrowser1.Document.All.submit.Click

Sleep 9000
WebBrowser1.GoBack

thats what im using but it "freezes" well sleeps so it cant finish loading the site then goes bak,so basicaly i want the site to finish loading after clicking submit then go bak to the page thanks

[Mitsukai]

try the WebBrowser_DocumentComplete event also check if the document object is nothing if so then exit the event

[Mr_Zer0]

you got example thanks

[Mr_Zer0]

any one please?

[Mr_Zer0]

i need this bad any help

[Static]

Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
       If (pDisp Is WB1.Application) Then
                  'code here
       End If
End Sub

[Mr_Zer0]

hmm i dont understand how to use this ?

[Static]

thats the webborwser_documentcomplete event...

the pdisp is webbrowser... is to check to make sure the ENTIRE page is loaded...

so you code goes inside the IF statement..
chec the URL to see where u are

IF URL = "whatever.." then
Click submit...
Else
Go back
end if

kinda like that

[Mr_Zer0]

Private Sub WB1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WB1.Application) Then
WebBrowser1.Navigate "www.google.com"
End If
End Sub

Private Sub Form_Load()
If URL = "www.google.com" Then
MsgBox "hi"
Else
End If
End Sub


maybe somthing like this?but doesnt load i respect you for tryin to help

[Mr_Zer0]

hey i got it to work but this way is buggy for me any over ways?thanks

[Static]

like this

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com"
    
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Debug.Print URL
    If (pDisp Is WebBrowser1.Application) Then
        If URL = "http://www.google.com/" Then
            WebBrowser1.Document.All.q.Value = "TEST SEARCH"
            WebBrowser1.Document.All.btnG.Click
        Else
            MsgBox "Search Results"
        End If
    End If
End Sub