Opening multiple webpages

Hello Experts. I have a browser control through which I want to open many web pages, one at a time, wherein I will search for information that may have changed. I don't need help with how to search for the info I'm looking for. What I need your help with is how to go through one page at a time, waiting till the seach therein is done before moving on to the next URL. I've gotten very rusty working with Arrays, so I'll need some extra attention here. This page seems to be onto something, but I need more elaboration:
http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20177242.html?query=browser+control+loop+through+links&topics=93#6449318

Many kind thanks in advance,
John
John AccountAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jimbobmcgeeCommented:
A very basic example, using the WebBrowser control, is to try the following (using a form -- Form1, with a button -- Command1 -- and a WebBrowser -- WebBrowser1):

    Sub Command1_Click()
        Dim szURL as Variant, a_szURLs As Variant
        Set a_szURLS = Array("http://www.mydomain.com/page1.htm", _
                                         "http://www.mydomain.com/page2.htm", _
                                         "http://www.mydomain.com/page3.htm", _
                                         "http://www.mydomain.com/page4.htm")

        For Each szURL In a_szURLs                                                                           'LOOP THROUGH THE URLS
            WebBrowser1.Navigate2 szURL                                                                   'LOAD THE URL
            Do Until (WebBrowser1.ReadyState = 4) And (WebBrowser1.Busy = False)    'ALLOW PAGE TO LOAD
                DoEvents
            Loop
            DoYourCheck()
        Next szURL
    End Sub

    Sub DoYourCheck()
        'YOUR CHECK CODE GOES HERE
    End Sub

HTH

J.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
John AccountAuthor Commented:
Getting a Type Mismatch on that array.
jimbobmcgeeCommented:
Take out the Set command:

    a_szURLs = Array(...)

J.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.