VBからIEを立ち上げる

Internet Explorerを立ち上げてYahooのページを出してみる。

VB2008からInternet Explorer(IE)を立ち上げることで、

Internet ExplorerをVBから動かすことができる。

たとえば

IEを立ち上げて、Yahooのトップページ行く
そして
検索窓に、「ほしのあき」と入力する
それから
検索ボタンをおして
ほしのあき　の検索結果を見るなどができる。

ここでは

Internet Explorerを立ち上げて
Yahooを呼び出すまでの動作です

 

        '####  IE を作成
        Dim objIE as Object

        objIE = CreateObject("InternetExplorer.application")
        objIE.visible = True

        Dim URL as String = "http://www.yahoo.co.jp"

        objIE.Navigate(URL)

        'ここから下のDoEventsは
        'IEがYahooの画面を読み込み終わったかどうか判断しています
        'でも、正確になかなか取れません

        Do While objIE.Busy
            DoEvents()
        Loop

        Do While (objIE.document.readyState <> "complete")
            DoEvents()
        Loop

        Do While objIE.readyState <> "4"
            DoEvents()
        Loop

        Sleep(1000)