url navigation in a while loop doesnt work

[Danny]

i am trying to load different pages and scanning some words out of the pages.
But my problem is that the readystate is never 4 except when i show a msgbox

example:

axWebbrowser.Navigate(sUrlPart1+ sUrl)

while axWebbrowser.Readystate <> SHDocVm.tagReEADYSTATE_COMPLETE
iReadystate = axWebbrowser.Readystate
end while
' this example will keep looping becuase Readystate stays 1

But when i do this:
axWebbrowser.Navigate(sUrlPart1+ sUrl)

while axWebbrowser.Readystate <> SHDocVm.tagReEADYSTATE_COMPLETE
MsgBox(axWebbrowser.Readystate)
iReadystate = axWebbrowser.Readystate
end while

The program works only problem are the msgbox popups.
I tried also to put a thread.sleep(10000) in the loop but did doesnt work either.
So whats going on here?
And how do i solve this?

[Herfried K. Wagner [MVP]]

* dm******@home.nl (Danny) scripsit:

i am trying to load different pages and scanning some words out of the pages.
But my problem is that the readystate is never 4 except when i show a msgbox

example:

axWebbrowser.Navigate(sUrlPart1+ sUrl)

Use 'Navigate2' instead and add your other code to the webbrowser's
'DocumentComplete' event.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Danny Mertens]

Sorry didnt work,
iReadystate is still 1 and doesnt change.
*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Cor Ligthert]

Danny,

Maybe this helps you,
\\\ eDocuments is an arraylist
Private Sub AxWebBrowser1_DocumentComplete(ByVal sender _
As System.Object, _ ByVal e As
AxSHDocVw.DWebBrowserEvents2 _ DocumentCompleteEvent) _
Handles AxWebBrowser1.DocumentComplete
Dim wb As SHDocVw.WebBrowser = _
DirectCast(e.pDisp, SHDocVw.WebBrowser)
eDocuments.Add(wb.Document)
End Sub

Cor

i am trying to load different pages and scanning some words out of the pages. But my problem is that the readystate is never 4 except when i show a msgbox
example:

axWebbrowser.Navigate(sUrlPart1+ sUrl)

while axWebbrowser.Readystate <> SHDocVm.tagReEADYSTATE_COMPLETE
iReadystate = axWebbrowser.Readystate
end while
' this example will keep looping becuase Readystate stays 1

But when i do this:
axWebbrowser.Navigate(sUrlPart1+ sUrl)

while axWebbrowser.Readystate <> SHDocVm.tagReEADYSTATE_COMPLETE
MsgBox(axWebbrowser.Readystate)
iReadystate = axWebbrowser.Readystate
end while

The program works only problem are the msgbox popups.
I tried also to put a thread.sleep(10000) in the loop but did doesnt work either. So whats going on here?
And how do i solve this?