Looping in a function

[VIP3R]

I have a function called Go(HowMany As Integer). I want this function to go to a WebPage over and over which is specified by HowMany! But I also want it to wait untill the page is full loaded and then go to the page again! If u need me to clairify things for please say so! This is important!

[oetje]

To do something as many times as HowMany says:

Private Sub Go(HowMany As Integer)
    'do it HowMany times
    For i = 1 To HowMany
        'do stuff here
        '...
    Next
End If

And to download a webpage: http://www.vbsquare.com/tips/tip171.html.

Use the Navigate function for the WebBrowser Control to go to webpages.

[VIP3R]

Megatron, I know that but I want my function to wait untill the webbrowser is ready and then go to another webpage!

[theman32x]

i think there is an event in the webcontrol that allows you to see when the file finished ... it something completedownload or document ... i am currently vb-less cause i formatted so i can't check it for u

The Webbrowser Control has a ReadyState property which is what you are probably looking for.

And here are it's tags:

READYSTATE_COMPLETE
READYSTATE_INTERACTIVE
READYSTATE_LOADED
READYSTATE_LOADING
READYSTATE_UNINITIALIZED


I guess it's used like:

WebBrowser1.Navigate "http://www.vb-world.net"
If WebBrowser1.ReadyState = READYSTATE_COMPLETE Then
MsgBox "Vb-World has been fully loaded.", _
32, "Where do you want to go today?"
End If