IEの操作:Webbrowserを使いURLを開きHTMLを取得(InnerHtml)

VB2008でサイトのHTMLを取得する実行例サンプルです。

IE(インターネットエクスプローラ)の操作へ



■実行画面
「URLを開く」ボタンをクリックすると、このサイトのTopページが開きます。
そして、サイトのHTMLを下のテキストボックスに表示しています。
HTMLコードを表示したフォーム

フォームにWebbrowserコントロールとテキストボックスを設置しています。
テキストボックスは、Multiline を True にし、ScrollBars を BOTH にしています。
実行手順は
1)Navigateに開くURLを指定します。
2)開くまでループで待ちます。
  Webbrowserは開くと、DocumentCompletedイベントが発生するので、イベントが発生しフラッグがTRUEになるまでループします。
3)WebBrowser1.Document.Body.InnerHtml でテキストボックスにHTMLを表示します。

■実行コード

Public Class Form1

Private webcompflag As Boolean

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://www.feedsoft.net/vb/")
webcompflag = False
Do While (webcompflag = False)
System.Windows.Forms.Application.DoEvents()
System.Threading.Thread.Sleep(10)
Loop
'テキストボックスに表示
TextBox1.Text = WebBrowser1.Document.Body.InnerHtml
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
webcompflag = True
End Sub
End Class


Visual Basic 2008 Express Edition実践入門